# NOT RUN {
#--- some data
data(dass)
inData <- dass[1:250,c("d1", "d2", "d3", "a1","a2","a3","s1","s2","s3")]
#--- no errors
error.check(inData, model.type="independence")
#--- for unidimensional
inTraitAdj <- matrix(1, nrow=1, ncol=1)
inItemTraitAdj <- matrix(1, nrow=9, ncol=1)
#--- no errors
error.check(inData, model.type="rasch", inTraitAdj, inItemTraitAdj)
error.check(inData, model.type="gpcm", inTraitAdj, inItemTraitAdj)
error.check(inData, model.type="nominal", inTraitAdj, inItemTraitAdj)
# }
Run the code above in your browser using DataLab