library(nlme)
fm1 <- lmList(Oxboys)
fm1
fm2 <- lme(fm1)
fm2
# bug report from Arne.Mueller@sanofi-aventis.com
mod <- distance ~ age + Sex
fm3 <- lme(mod, Orthodont, random = ~ 1)
predict(fm3, Orthodont)
## bug report and fix from Dimitris Rizopoulos and Spencer Graves:
## when 'returnObject = TRUE', do not stop() but give warning() on non-convergence:
fm1 <- lme(distance ~ age, data = Orthodont,
control = lmeControl(msMaxIter = 1, returnObject = TRUE))
## based on bug report on R-help
predict(fm3, Orthodont[1,])
# failed in 3.1-88
## wrong results from getData:
load("ss2.rda")
m1 <- lme(PV1MATH ~ ESCS + Age +time ,
random = ~ time|SCHOOLID,
data = ss2,
weights = varIdent(form=~1|time),
corr = corCompSymm(form=~1|SCHOOLID/StIDStd),
na.action = na.omit)
plot(m1, resid(.) ~ WEALTH)
m2 <- lme(PV1MATH ~ ESCS + Age +time ,
random = ~ time|SCHOOLID,
data = ss2,
weights = varIdent(form=~1|time),
corr = corCompSymm(form=~1|SCHOOLID/StIDStd),
na.action = na.omit)
plot(m2, resid(.) ~ WEALTH)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.