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