library(nlme)
data(armd, package = "nlmeU")
lm3.form <- visual ~ visual0 + time + treat.f
fm16.5ml <- lme(lm3.form,
random = list(subject = pdDiag(~time)),
weights = varPower(form = ~time),
data = armd, method = "ML") # M16.5
df1 <- subset(armd, subject = "1") # Panel R20.7
logLik1(fm16.5ml, df1)
Run the code above in your browser using DataLab