# \donttest{
# Generate example item response matrix
data <- matrix(rbinom(500, size = 1, prob = 0.5), ncol=10, nrow=50)
# For 1PL LSIRM
lsirm_result <- lsirm(data ~ lsirm1pl(spikenslab = FALSE, fixed_gamma = FALSE))
diagnostic(lsirm_result)
# For 2PL LSIRM
lsirm_result <- lsirm(data ~ lsirm2pl(spikenslab = FALSE, fixed_gamma = FALSE))
diagnostic(lsirm_result)
# }
Run the code above in your browser using DataLab