0byt3m1n1
Path:
C:
/
Program Files
/
R
/
R-4.4.1
/
library
/
nlme
/
tests
/
[
Home
]
File: 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))