Timing exercise           package:epicalc           R Documentation

_D_a_t_a_s_e_t _o_n _t_i_m_e _g_o_i_n_g _t_o _b_e_d, _w_a_k_i_n_g _u_p _a_n_d _a_r_r_i_v_a_l _a_t _t_h_e _w_o_r_k_s_h_o_p

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

     This dataset came from an interview survey on the workshop
     attendants on 2004-12-14.

     Note that the date of bed time was 2004-12-13 if the respondent
     went to bed before midnight.

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

     data(Timing)

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

     A data frame with 18 observations on the following 11 variables.

     '_i_d' a numeric vector

     '_g_e_n_d_e_r' a factor with levels 'male' 'female'

     '_a_g_e' a numeric vector

     '_m_a_r_i_t_a_l' a factor with levels 'single' 'married' 'others'

     '_c_h_i_l_d' a numeric vector

     '_b_e_d_h_r' a numeric vector

     '_b_e_d_m_i_n' a numeric vector

     '_w_o_k_h_r' a numeric vector

     '_w_o_k_m_i_n' a numeric vector

     '_a_r_r_h_r' a numeric vector

     '_a_r_r_m_i_n' a numeric vector

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

     data(Timing)
     use(Timing)
     des()
     arrival.time <- ISOdatetime(year=2004, month=12, day=14, hour=arrhr,
             min=arrmin, sec=0)
     summ(arrival.time, by= gender)

