# Create Model
model <- (
outcome('Y')
+ within_predictor('X')
+ effect_size(
icc = 0.1,
within = 0.1,
random_slope = 0.03
)
)
# Add random slope to the model
model + random_slope('X')
Run the code above in your browser using DataLab