#############################################################################
# EXAMPLE 1: Dataset Reading
#############################################################################
data( data.read )
dat <- data.read
# Scoring according to the ISOP model
msc <- isop.scoring( dat )
# plot student scores
boxplot( msc$person$mpsc ~ msc$person$score )
#############################################################################
# EXAMPLE 2: Dataset students from CDM package | polytomous items
#############################################################################
library(CDM)
data( data.Students , package="CDM")
dat <- na.omit(data.Students[ , -c(1:2) ])
# Scoring according to the ISOP model
msc <- isop.scoring( dat )
# plot student scores
boxplot( msc$person$mpsc ~ msc$person$score )
# scoring with known scoring rule for activity items
items <- paste0( "act" , 1:5 )
score.itemcat <- msc$score.itemcat
score.itemcat <- score.itemcat[ items , ]
msc2 <- isop.scoring( dat[,items] , score.itemcat=score.itemcat )
Run the code above in your browser using DataLab