R/sum_score.R

In dacarras/r4sda: Collection of functions to produce descriptives analysis of secondary data and large scale assessments studies

#' sum_score() computes the mean for a given set of variables in a row wise manner
#'
#' @param x,y,z are set of variables from a data frame (i.e. a selection of numeric columns)
#'
#' @return a numeric vector
#'
#' @details simple wrapper to produce row wise sums (default is na.rm=TRUE)
#'
#' @examples
#' library(dplyr)
#' data_frame %>%
#' mutate(score =  sum_score(x, z, y))
#'
#'
#' @export
sum_score <- function(..., na.rm=TRUE){
  rowSums(cbind(...), na.rm=na.rm)
  # source: https://stackoverflow.com/questions/33401788/dplyr-using-mutate-like-rowmeans
  # by: https://stackoverflow.com/users/1191259/frank
}