Outbreak investigation {epiDisplay}

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)