R/max_possible.R

In jameswgriffith/lurn: Tools for LURN Research: Scoring the LURN SI-10 and LURN SI-29

# Find maximum possible score based on items completed --------------------

max_possible <- function(items, max_possible_responses) {

  (!is.na(items)) %*% max_possible_responses

}