data(bfiN) # loading example data set
# calculating itemparameters and their SE for 5 neuroticism items with 6 answer categories (0-5).
neuro_itempar<-ipSE.poly(daten = bfiN, m = 6)
summary(neuro_itempar) # summary for result
# plotting item thresholds with with their CI = 95\%
plot(neuro_itempar)
###### example from details section 'Some Notes on Standard Errors' ########
# neuro_itempar_400<-ipSE.poly(daten = bfiN, m = 6,nsample=400)
# plot(neuro_itempar)
# plot(neuro_itempar_400)Run the code above in your browser using DataLab