# NOT RUN {
#############################################
########### Simulated Example ###############
#############################################
data(simulated.data) # load simulated data
# parameter definition
beta0 <- 1
beta1 <- 1
beta2 <- 1
beta3 <- 1
beta4 <- 1
# parameter definition for missing indicator
alpha0 <- -1.1
alpha1 <- -1
alpha2 <- 1
alpha3 <- 1
alpha4 <- 1
alpha5 <- -1
parameter <- c(beta0, beta1, beta2, beta3, beta4,
alpha0, alpha1, alpha2, alpha3, alpha4, alpha5)
il(y ~ x1 + x2 + x3 + x4, data = simulated.data, parameter,
family = binomial(link = "logit"), na.action = na.pass)
# }
# NOT RUN {
# }
# NOT RUN {
#############################################
##### Real data example with separation #####
#############################################
data(nhanes) # load nhanes data
il(hyp ~ age2 + age3, data = nhanes, family = binomial(link = "logit"), na.action = na.pass)
# IL method encounters separation
# }
Run the code above in your browser using DataLab