#create a data frame describing a cross-sectional parallel cluster
#randomised trial
df <- nelder(~(cl(10)*t(5)) > ind(10))
df$int <- 0
df[df$cl > 5, 'int'] <- 1
# simulate data using the Model class
df$y <- Model$new(
formula = ~ factor(t) + int - 1 + (1|gr(cl)) + (1|gr(cl,t)),
data = df,
family = stats::gaussian()
)$sim_data()
if (FALSE) {
fit <- mcml_lmer(y ~ factor(t) + int - 1 + (1|cl/t), data = df)
}
Run the code above in your browser using DataLab