if (FALSE) {
data(rats)
fit <- nlmm(y ~ trt*time, random = ~ time, group = id, data = rats, cov = "pdSymm",
control = nlmmControl(multistart = FALSE))
# Symmetric variance-covariance of random intercepts and slopes
VarCorr(fit)
}
Run the code above in your browser using DataLab