# NOT RUN {
#--- some data, 2 items from depression, anxiety and stress scales
# for 250 cases out of possible 1000
data(dass)
inData <- dass[1:250,c("d1", "d2", "a1", "a2", "s1", "s2")]
inTraitAdj <- matrix(1, nrow=1, ncol=1)
inItemTraitAdj <- matrix(1, nrow=6, ncol=1)
n1 <- ple.lma(inData, model.type="nominal", inItemTraitAdj, inTraitAdj, tol=1e-03)
scalingPlot(n1)
# }
Run the code above in your browser using DataLab