R/reverse.R

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

#' reverse() it reverse a score in a linear way, using the minimum and maximum values. Is often use onto likert type response variables, when the original responses are not coded with values that follow the direction of higher values are higher level of the attribute.
#'
#' @param x a numeric vector
#'
#' @return a reverse coded numeric vector
#'
#' @examples
#'
#' items_data <- items_data %>%
#'               mutate(item = reverse(original))
#' dplyr::count(items_data, original, item)
#'
#' @export
reverse <- function(var){
# remove labels
var <- labelled::remove_labels(var)
var <- haven::zap_labels(var)

# get max and min of vector
max <- max(var, na.rm = TRUE)
min <- min(var, na.rm = TRUE)

# produced reverse score
return(max + min - var)
}