# NOT RUN {
data(dass)
inData <- dass[1:250,c("d1", "d2", "d3", "a1","a2","a3","s1","s2","s3")]
#--- to set data up for model of independence
ind.setup <- set.up(inData, model.type="independence")
#--- for model specification for uni-dimensional models
inTraitAdj <- matrix(1, nrow=1, ncol=1)
inItemTraitAdj <- matrix(1, nrow=9, ncol=1)
i.setup <- set.up(inData, model.type='independence')
r.setup <- set.up(inData, model.type='rasch', inTraitAdj,
inItemTraitAdj)
g.setup <- set.up(inData, model.type='gpcm', inTraitAdj,
inItemTraitAdj)
n.setup <- set.up(inData, model.type='nominal', inTraitAdj,
inItemTraitAdj)
# }
Run the code above in your browser using DataLab