# \donttest{
# A preparation of dichotomous item response data
data <- DataGeneration(N=500, nitem_D = 10)$data_D
# Analysis
M1 <- IRTest_Dich(data)
# Plotting item response function
plot_item(M1, item.number = 1)
# }
Run the code above in your browser using DataLab