# \donttest{
# Preparation of dichotomous item response data
data <- DataGeneration(N=1000,
nitem_P = 8)$data_P
# Analysis
M1 <- IRTest_Poly(data)
# Recommendation of category collapsing
new_cat <- cat_clps(M1$par_est)
# Recategorization of data
recategorize(data, new_cat)
# }
Run the code above in your browser using DataLab