Outbreak investigation {epiDisplay}R Documentation

Dataset from an outbreak of food poisoning on a sportsday, Thailand 1990.

Description

This dataset contains information from an outbreak investigation concerning food poisoning on a sportsday in Thailand 1990.

Dichotomous variables for exposures and symptoms were coded as follow:

0 = no
1 = yes
9 = missing or unknown

Usage

data(Outbreak)

Format

A data frame with 1094 observations on the following 13 variables.

id

a numeric vector

sex

a numeric vector

0 = female
1 = male
age

a numeric vector: age in years

99 = missing
exptime

an AsIs or character vector of exposure times

beefcurry

a numeric vector: whether the subject had eaten beefcurry

saltegg

a numeric vector: whether the subject had eaten salted eggs

eclair

a numeric vector: pieces of eclair eaten

80 = ate but could not remember how much
90 = totally missing information
water

a numeric vector: whether the subject had drunk water

onset

an AsIs or character vector of onset times

nausea

a numeric vector

vomiting

a numeric vector

abdpain

a numeric vector: abdominal pain

diarrhea

a numeric vector

References

Thaikruea, L., Pataraarechachai, J., Savanpunyalert, P., Naluponjiragul, U. 1995 An unusual outbreak of food poisoning. Southeast Asian J Trop Med Public Health 26(1):78-85.

Examples

data(Outbreak)
.data <- Outbreak
# Distribution of reported pieces of eclair taken
attach(.data)
tab1(eclair) 

# Defining missing value
.data$eclair[.data$eclair > 20] <- NA
detach(.data)
attach(.data)
pieces.of.eclair <- cut(eclair, c(0,1,2,20), include.lowest=TRUE, right=FALSE)
tabpct(pieces.of.eclair, diarrhea)
rm(list=ls())
detach(.data) 

[Package epiDisplay version 3.5.0.1 Index]