# \donttest{
# A preparation of dichotomous item response data
data <- DataGeneration(N=500,
nitem_D = 10)$data_D
# Analysis
M1 <- IRTest_Dich(data)
# Item fit statistics
item_fit(M1)
# }
Run the code above in your browser using DataLab