# \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
factor_score(M1, ability_method = "MLE")
# }
Run the code above in your browser using DataLab