# NOT RUN {
data(dass)
inData <- dass[1:250,c("d1", "d2", "d3", "a1","a2","a3","s1","s2","s3")]
#--- unidimensional
inTraitAdj <- matrix(1, nrow=1, ncol=1)
inItemTraitAdj <- matrix(1, nrow=9, ncol=1)
s <- set.up(inData, model.type='nominal', inTraitAdj, inItemTraitAdj,
tol=1e-02)
n1 <- fit.nominal(s$Master, s$Phi.mat, s$starting.sv, s$pq.mat, s$tol,
s$PersonByItem, s$TraitByTrait, s$ItemByTrait, s$item.by.trait,
s$ItemNames, s$LambdaNames, s$NuNames, s$LambdaName, s$NuName,
s$PhiNames, s$npersons, s$nitems, s$ncat,s$ nless, s$ntraits,
s$Maxnphi)
# }
Run the code above in your browser using DataLab