data(Chem97)
str(Chem97)
summary(Chem97)
fm1 <- lme(score ~ 1, data = Chem97, random = ~ 1 | lea/school)
summary(fm1)
fm2 <- lme(score ~ gcsecnt, data = Chem97, random = ~ 1 | lea/school)
summary(fm2)
Run the code above in your browser using DataCamp Workspace