# NOT RUN {
#--------------------------------------
# Predictors in a single-level regression
dat.sl <- data.frame(x = c(4, 2, 5, 6, 3, 4, 1, 3, 4),
y = c(5, 3, 6, 3, 4, 5, 2, 6, 5))
# Center predictor at the sample mean
center(dat.sl$x)
# Center predictor at the value 3
center(dat.sl$x, value = 3)
#--------------------------------------
# Predictors in a multilevel regression
dat.ml <- data.frame(id = c(1, 2, 3, 4, 5, 6, 7, 8, 9),
cluster = c(1, 1, 1, 2, 2, 2, 3, 3, 3),
x.l1 = c(4, 2, 5, 6, 3, 4, 1, 3, 4),
x.l2 = c(4, 4, 4, 1, 1, 1, 3, 3, 3),
y = c(5, 3, 6, 3, 4, 5, 2, 6, 5))
# Center level-1 predictor at the grand mean (CGM)
center(dat.ml$x.l1)
# Center level-1 predictor within cluster (CWC)
center(dat.ml$x.l1, type = "CWC", cluster = dat.ml$cluster)
# Center level-2 predictor at the grand mean (CGM)
center(dat.ml$x.l2, type = "CGM", cluster = dat.ml$cluster)
# }
Run the code above in your browser using DataLab