data(Laski)
Laski_RML <- lme(fixed = outcome ~ treatment,
random = ~ 1 | case,
correlation = corAR1(0, ~ time | case),
data = Laski)
suppressWarnings(
Laski_g <- g_REML(Laski_RML, p_const = c(0,1), r_const = c(1,0,1))
)
if (requireNamespace("plyr", quietly = TRUE)) {
simulate(Laski_g, nsim = 5)
}
Run the code above in your browser using DataLab