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