# NOT RUN {
##### data = seizure
str(seizure)
### independence
seiz0M <- cold(y ~ lage + lbase + v4 + trt + trt:lbase, data = seizure,
dependence = "ind")
summary(seiz0M)
### AR1
seiz1M <- cold(y ~ lage + lbase + v4 + trt + trt:lbase, data = seizure,
dependence = "AR1")
summary(seiz1M)
anova(seiz0M, seiz1M)
# }
Run the code above in your browser using DataLab