R/count_not_na.R

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

# Count non-NA values row-by-row ------------------------------------------

count_not_na <- function(items) {
  apply(items,
        1,
        function(x) {
          sum(!is.na(x))
        })
}