data(mst4armSimData)
new_mst5armData <- mstAddIntervention(originalData = mst4armSimData, ns = 2, np = 100, es = 0.3,
intper = 0.5, attritionrate = 0.1, outcome = "posttest", interventions = "interventions",
schoolsID = "schools", pupilsID = "pupils",
continuous_covariates = c("pretest"), categorical_covariates = c("gender", "ethnicity"))
head(new_mst5armData)
Run the code above in your browser using DataLab