# NOT RUN {
test.data<-data.prep(scored.data,c(3,15,15,20),
c("Algebra","Geometry","Measurement", "Math"))
subscore.Wainer(test.data)
subscore.Wainer(test.data)$summary
subscore.Wainer(test.data)$subscore.augmented
# }
Run the code above in your browser using DataLab