# NOT RUN {
# Transferring scored response data to the required list format
test.data<-data.prep(scored.data,c(3,15,15,20),
c("Algebra","Geometry","Measurement", "Math"))
#Estimate true subscores using Haberman's method based on observed subscores
subscore.corr(test.data)
subscore.s(test.data)$summary
subscore.s(test.data)$correlation
# }
Run the code above in your browser using DataLab