data("HS.ability.data")idGendergradeageyagemschooladditioncodecountingstraightwordrnumberrfigurerobjectnumberffigurewdeductnumericproblemrseriesarithmetvisualcubespaperflagspaperrevflagssubgeneralparagrapsentencewordcwordmpaperrev (a paper form board test) can substitute for paper and flagssub for the lozenges test flags.data(HS.ability.data)
str(HS.ability.data)
levels(HS.ability.data$school)
plot(flags ~ flagssub, data = HS.ability.data)
Run the code above in your browser using DataLab