# \donttest{
# generate example item response matrix
data <- matrix(rbinom(500, size = 1, prob = 0.5), ncol=10, nrow=50)
lsirm_result <- lsirm(data ~ lsirm1pl())
plot(lsirm_result)
# use oblique rotation
plot(lsirm_result, rotation = TRUE)
# interaction map interactively
plot(lsirm_result, interact = TRUE)
# clustering the respondents or items
plot(lsirm_result, cluster = TRUE)
# }
Run the code above in your browser using DataLab