R/EQpaste.R

In HaemAalborg/EQvalue: Function to calculate QALY from EuroQol questionaires

#' The function creates a variable, STATE, that is all the values together and can be used with the QALY function
#'
#' This only works if the data conforms to the standard naming of EQ-5D-5L variables according to the user
#' guide Which can be found at: https://euroqol.org/wp-content/uploads/2016/09/EQ-5D-5L_UserGuide_2015.pdf
#'
#' The naming of the data should be: MOBILITY, SELFCARE, ACTIVITY, PAIN, ANXIETY
#'
#' @param x dataframe with the 5 columns
#' @return STATE which is used im the QALY function
#' @export
#' @examples EQpaste(data.frame(MOBILITY = 2, SELFCARE = 1, ACTIVITY = 4, PAIN = 2, ANXIETY = 1))
#'
#'

EQpaste <- function(x) {
  x$STATE <- as.numeric(paste(x$MOBILITY, x$SELFCARE, x$ACTIVITY, x$PAIN, x$ANXIETY, sep = ""))
  x
}