ANC Table              package:epicalc              R Documentation

_D_a_t_a_s_e_t _o_n _e_f_f_e_c_t _o_f _n_e_w _A_N_C _m_e_t_h_o_d _o_n _m_o_r_t_a_l_i_t_y (_a_s _a _t_a_b_l_e)

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

     This dataset contains frequency of various combinations  of
     methods of antenatal care in two clinics with the outcome being 
     perinatal mortality.

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

     data(ANCtable)

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

     A data frame with 8 observations on the following 4 variables.

     '_d_e_a_t_h' a numeric vector: 1=no, 2=yes

     '_a_n_c' a numeric vector indicating antenatal care type: 1=old 2=new 

     '_c_l_i_n_i_c' a numeric vector indicating clinic code: 1=clinic A, 
          2=clinic B

     '_F_r_e_q' a numeric vector of frequencies

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

     data(ANCtable)
     use(ANCtable)
     death <- death==2
     anc <- factor(anc); levels(anc) <- c("old", "new")
     clinic <- factor(clinic); levels(clinic) <- c("A","B") 
     glm1 <- glm(death ~ anc ,weights=Freq, family=binomial)
     logistic.display(glm1)
     glm2 <- glm(death ~ anc + clinic ,weights=Freq, family=binomial)
     logistic.display(glm2)
     lrtest(glm1, glm2)
     rm(death, anc, clinic)

