8 lines
239 B
R
Raw Permalink Normal View History

2025-01-12 00:52:51 +08:00
library(nlme)
data(Orthodont)
# add a column with an NA that is not used in the fit
Orthodont$Others = runif(nrow(Orthodont))
is.na(Orthodont$Others[3]) = TRUE
fm1 = lme(Orthodont, random = ~1)
augPred(fm1, length.out = 2, level = c(0,1))