Outbreak investigation        package:epicalc        R Documentation

_D_a_t_a_s_e_t _f_r_o_m _a_n _o_u_t_b_r_e_a_k _o_f _f_o_o_d _p_o_i_s_o_n_i_n_g _o_n _a _s_p_o_r_t_s_d_a_y, _T_h_a_i_l_a_n_d _1_9_9_0.

_D_e_s_c_r_i_p_t_i_o_n:

     A dataset from an outbreak investigation concerning food poisoning
     in a sportsday, Thailand 1990.

     Dichotomous variables for exposures and symptoms were coded as the
     following:

         0  = no
         1  = yes
         9  = missing or unknown

_U_s_a_g_e:

     data(Outbreak)

_F_o_r_m_a_t:

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

     '_i_d' a numeric vector

     '_s_e_x' a numeric vector

              0  = female
              1  = male

     '_a_g_e' a numeric vector: age in years

              99  = missing

     '_e_x_p_t_i_m_e' a AsIs or character: exposure time

     '_b_e_e_f_c_u_r_r_y' a numeric vector: whether the subject had eaten
          beefcurry

     '_s_a_l_t_e_g_g' a numeric vector: whether the subject had eaten saltegg

     '_e_c_l_a_i_r' a numeric vector: pieces of eclair eaten

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

     '_w_a_t_e_r' a numeric vector: whether the subject had drunken water

     '_o_n_s_e_t' a AsIs or character: onset time

     '_n_a_u_s_e_a' a numeric vector

     '_v_o_m_i_t_i_n_g' a numeric vector

     '_a_b_d_p_a_i_n' a numeric vector: abdominal pain

     '_d_i_a_r_r_h_e_a' a numeric vector

_R_e_f_e_r_e_n_c_e_s:

     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.

_E_x_a_m_p_l_e_s:

     data(Outbreak)
     use(Outbreak)

     # Distribution of reported pieces of eclair taken
     tab1(eclair) 

     # Defining missing value
     recode(eclair, eclair>20, NA) 
     pieces.of.eclair <- cut(eclair, c(0,1,2,20))
     tabpct(pieces.of.eclair, diarrhea) 

