# Specify model
model <- (
outcome('Y')
+ within_predictor('X')
+ effect_size(
icc = 0.2,
within = 0.3
)
)
# Set seed
set.seed(198723)
# Create formula based on data set
model |> generate(5, 50) |> to_formula()
Run the code above in your browser using DataLab