# NOT RUN {
data(screen8)
head(screen8)
## plot average math scores by cluster size
cl.size <- as.numeric(table(screen8$sch.id))
ave.math <- tapply(screen8$math, list(screen8$sch.id), mean)
plot(cl.size, ave.math)
# }
Run the code above in your browser using DataLab