# Create Model
model <- (
outcome('Y')
+ within_predictor('X')
+ effect_size(icc = 0.1)
)
# Set seed
set.seed(198723)
# Create data set with default centering
model |> generate(5, 50) |> center(all = TRUE) -> mydata
# Create data centering X with cwc
model |> generate(5, 50) |> center(X = cwc) -> mydata
# See centering strategy
attr(mydata, 'center')
Run the code above in your browser using DataLab