# NOT RUN {
library(WeMix)
library(lme4)
data(sleepstudy)
ss1 <- sleepstudy
doubles <- c(308, 309, 310) # subject with double obs
# Create weights
ss1$W1 <- ifelse(ss1$Subject %in% doubles, 2, 1)
ss1$W2 <- 1
# Run random-intercept 2-level model
mix1 <- mix(Reaction~ Days + (1|Subject),data=ss1, weights = c("W1","W2"),
fast=TRUE, nQuad=13, verbose=FALSE)
# Run random-intercept 2-level model with group-mean centering
grp_centered <- mix(Reaction ~ Days + (1|Subject), data=ss1, weights = c("W1","W2"), nQuad=13,
fast=TRUE, center_group = list("Subject" = ~Days),
verbose=FALSE)
# }
Run the code above in your browser using DataLab