#############################################################################
# EXAMPLE 1: Dataset Reading (dichotomous items)
#############################################################################
data(data.read)
dat <- as.matrix( data.read)
I <- ncol(dat)
# Model 1: ISOP Model (11 score groups)
mod1 <- isop.dich( dat )
summary(mod1)
plot(mod1)
# Model 2: ISOP Model (5 score groups)
score.breaks <- seq( -.005 , 1.005 , len=5+1 )
mod2 <- isop.dich( dat , score.breaks=score.breaks)
summary(mod2)
#############################################################################
# EXAMPLE 2: Dataset PISA mathematics (dichotomous items)
#############################################################################
data(data.pisaMath)
dat <- data.pisaMath$data
dat <- dat[ , grep("M" , colnames(dat) ) ]
# fit ISOP model
# Note that for this model many iterations are needed
# to reach convergence for ADISOP
mod1 <- isop.dich( dat , maxit=4000)
summary(mod1)
#############################################################################
# EXAMPLE 3: Dataset Students (polytomous items)
#############################################################################
# Dataset students: scale cultural activities
library(CDM)
data(data.Students , package="CDM")
dat <- na.omit( data.Students[ , paste0("act",1:4) ] )
# fit models
mod1 <- isop.poly( dat )
summary(mod1)
plot(mod1)
Run the code above in your browser using DataLab