# Simple 2x2 mixed design
simple_design <- define_design(
id = "subject",
between = list(group = c("Control", "Treatment")),
within = list(time = c("pre", "post"))
)
# A nested (cluster-randomized) design where the intervention
# is assigned at the class level.
nested_design <- define_design(
id = "pupil",
between = list(
class = list(intervention = c("yes", "no"))
),
nesting_vars = list(class = factor(1:10))
)
Run the code above in your browser using DataLab