packrat/lib-R/nlme/tests/varIdent.R

## test for PR#9765
library(nlme)
Orth <- subset(Orthodont, Subject %in% c("M01","F01"))
# Argument fixed in varIdent is ignored
vf  <- varIdent(form=~1|Sex,fixed=c(Female=0.5))
vf <- Initialize(vf, data=Orth)
stopifnot(varWeights(vf) == rep(c(1,2), each=4))
UBC-MDS/Karl documentation built on May 22, 2019, 1:53 p.m.