covariates <- list(
list(name = "pretest", type = "continuous", sd = 1, coefficient = 1.7),
list(name = "gender", type = "categorical", levels = c("Male", "Female"),
probs = c(0.3, 0.7), reference = "Male", coefficients = list(B = -0.5)),
list(name = "ethnicity", type = "categorical", levels = c("White", "Black", "Asian"),
probs = c(0.3, 0.3, 0.4), reference = "White", coefficients = list(B = 1.02, C = 1.3))
)
mstdata <- mstDataSimulation(ni = 3, ns = 10, np = 100, tpi = c(30, 30, 20, 20),
sigma = 1, sigmab0 = 0.5, sigmab1 = 0.5, B0 = 1.45,
es = c(0.2, 0.3, 0.1), seed = 1234, attritionrates = c(0.1, 0.1, 0.1, 0), covariates = covariates)
head(mstdata)
Run the code above in your browser using DataLab