data(cog) # loading example data set
# calculating itemparameters and their SE for 31 math items
se_sigma<-ipSE.dicho(daten=cog[,4:34], pot=TRUE)
summary(se_sigma) # summary for result
# plotting item difficulties with a CI = 95\%
plot(se_sigma)
# use different color for CI
plot(se_sigma, col.error="green")
# without CI bars
plot(se_sigma,ci=0)
###### example from details section 'Some Notes on Standard Errors' ########
# se_sigma_400<-ipSE.dicho(daten=cog[,4:34], pot=TRUE,nsample=400)
# plot(se_sigma)
# plot(se_sigma_400)Run the code above in your browser using DataLab