data(gender)
## Not run:
# # Note: substantial computation time
# model.gender <- listExperiment(y ~ gender + ageGroup + education +
# motherTongue + region + selfPlacement,
# data = gender, J = 4,
# treatment = "treatment", direct = "direct",
# control.constraint = "none",
# sensitive.response = 0,
# misreport.treatment = TRUE)
# summary(model.gender)
# ## End(Not run)
Run the code above in your browser using DataLab