# NOT RUN {
data( rat.blood )
model_mats <- model_terms_clme( mcv ~ time + temp + sex + (1|id), data = rat.blood )
Y <- model_mats$Y
X1 <- model_mats$X1
X2 <- model_mats$X2
U <- model_mats$U
cons <- list(order = "simple", decreasing = FALSE, node = 1 )
clme.out <- clme_em(Y = Y, X1 = X1, X2 = X2, U = U, constraints = cons)
# }
Run the code above in your browser using DataLab