tests/testthat/data/rapp.test.1/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))
rappster/rapp documentation built on May 26, 2019, 11:56 p.m.