data(Exam)
str(Exam)
summary(Exam)
fm1 <- lme(normexam ~ standLRT + sex + schgend,
data = Exam, random = ~ 1|school)
summary(fm1)
fm2 <- lme(normexam ~ standLRT*sex + schgend,
data = Exam, random = ~ 1|school)
summary(fm2)
fm3 <- lme(normexam ~ standLRT*sex + schgend,
data = Exam, random = ~ standLRT|school)
summary(fm3)
Run the code above in your browser using DataCamp Workspace