ears             package:exactRankTests             R Documentation

_S_u_r_v_i_v_a_l _o_f _V_e_n_t_i_l_a_t_i_n_g _T_u_b_e_s

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

     Survival times of ventilating tubes of left and right ears in 78
     children with otitis media.

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

     data(ears)

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

     A data frame with 78 observations on the following 5 variables.

     _l_e_f_t Survival time in month of tube in left ear.

     _l_c_e_n_s Censoring indicator for left ear: '0' censored and '1'
          event.

     _r_i_g_h_t Survival time in month of tube in right ear.

     _r_c_e_n_s Censoring indicator for right ear: '0' censored and '1'
          event.

     _g_r_o_u_p a factor with levels 'control' and 'treat'.  .in -5 

_S_o_u_r_c_e:

     Sin-Ho Jung and Jong-Hyeon Jeong (2003). Rank tests for clustered
     survival data. _Lifetime Data Analysis_, *9*, 21-33.

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

     V.M. Howie and R.H. Schwarz (1983). Acute otitis media: One year
     in general pediatric practice. _American Journal of Diseases in
     Children_, *137*, 155-158.

     D.W. Teele, J.O. Klein, B. Rosner et al. (1989). Epidemiology of
     otitis media during the first seven years of life in children in
     greater Boston. _Journal of Infectious Diseases_, *160*, 89-94.

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

     data(ears)
     if (require(survival, quietly=TRUE)) {
       ls <- cscores(Surv(ears$left, ears$lcens), int=TRUE)
       perm.test(ls ~ group, data=ears)
     }

