# NOT RUN {
sM <- make_scoring_matrix_aem(5, "mae")
responses <- matrix(sample(1L:5L, 20, replace = TRUE), ncol = 4,
dimnames = list(NULL, paste0("item", 1:4)))
responses
sM
expand_responses(responses, sM)
# }
Run the code above in your browser using DataLab