Displaying 1 result from an estimated 1 matches for "fm2orthf".
Did you mean:
fm1orthf
2005 Jul 12
1
nlme plot
...; "age" "Subject" "Sex"
> levels( Orthodont$Sex )
[1] "Male" "Female"
> OrthoFem <- Orthodont[ Orthodont$Sex == "Female", ]
>
> fm1OrthF <- lme( distance ~ age, data = OrthoFem, random = ~ 1 | Subject )
> fm2OrthF <- update( fm1OrthF, random = ~ age | Subject )
> orthLRTsim <- simulate.lme( fm1OrthF, fm2OrthF, nsim = 1000 )
> plot( orthLRTsim, df = c(1, 2) ) # produces Figure 2.3
Error in if ((dfType <- as.double(names(x)[1])) == 1) { :
argument is of length zero
Execution halted