# NOT RUN {
# 2-lvl model
f <- sim_formula("y ~ treatment * time + (1 + time | subject)")
# ANCOVA using 'data_transform'
f <- sim_formula("y ~ treatment + pretest",
data_transform = transform_to_posttest,
test = "treatment")
# }
Run the code above in your browser using DataLab