29 lines
724 B
R
29 lines
724 B
R
|
library(nlme)
|
||
|
|
|
||
|
|
op <- options(digits = 3) # reduce rounding differences
|
||
|
|
|
||
|
|
Ovary[c(1,272), 2] <- NA
|
||
|
|
fm1 <- gls(follicles ~ sin(2*pi*Time) + cos(2*pi*Time), Ovary,
|
||
|
|
correlation = corAR1(form = ~ 1 | Mare), na.action=na.exclude)
|
||
|
|
fitted(fm1)
|
||
|
|
residuals(fm1)
|
||
|
|
summary(fm1)
|
||
|
|
|
||
|
|
Orthodont[100:102, 2] <- NA
|
||
|
|
fm2 <- lme(distance ~ age + Sex, data = Orthodont, random = ~ 1,
|
||
|
|
na.action=na.exclude)
|
||
|
|
fitted(fm2, 0:1)
|
||
|
|
fitted(fm2)
|
||
|
|
residuals(fm2, 0:1)
|
||
|
|
round(residuals(fm2), 2)
|
||
|
|
summary(fm2)
|
||
|
|
|
||
|
|
Soybean[1:5, "Time"] <- NA
|
||
|
|
fm3 <- gnls(weight ~ SSlogis(Time, Asym, xmid, scal), Soybean,
|
||
|
|
weights = varPower(), na.action=na.exclude)
|
||
|
|
fitted(fm3)
|
||
|
|
residuals(fm3)
|
||
|
|
summary(fm3)
|
||
|
|
|
||
|
|
options(op)# revert when this file is source()d
|