# NOT RUN {
data(screen8)
## do average reading scores differ across after-school activities?
## test using a table
read.tab <- tapply(screen8$read, list(screen8$sch.id, screen8$activity), mean)
onewaytestClust(read.tab)
## test using formula method
onewaytestClust(read~activity, id=sch.id, data=screen8)
# }
Run the code above in your browser using DataLab