data(srt4armSimData)
new_srt5armData <- srtAddIntervention(existing_data = srt4armSimData, np = 100,
es = 0.3, attritionrate = 0.1, outcome = "posttest", interventions = "interventions",
id = "ID", continuous_covariates = c("pretest"), categorical_covariates = c("gender", "ethnicity"))
head(new_srt5armData)
Run the code above in your browser using DataLab