############
data(cog);data(cogBOOKLET) # loading reponse and allocation data
d<-(cog[cog$BOOKID!=14,]) # skip persons which got booklet No.14.
inc<-make.incidenz(tab=cogBOOKLET, bookid=d$BOOKID) # make just the incidenz matrix
result<-ppML.dicho(daten=d[,4:34], SIGMA=itempar.dicho(d[,4:34]),incidenz = inc )
summary(result)
summary(result,FALSE) # return just the ML person estimates and their standard errors.Run the code above in your browser using DataLab