R/pos_event_function.R

In jonathanbart/baxtr: A Package for the Social Scientist

#' Calculate the Positive Life Event Scale
#'
#' This function renames columns; converts all columns to  numerics (only works on columns where inputs are character strings)
#' and calculates a Positive Life Event score.
#' @param start_col The column number where the scale begins, reference by number only.
#' @param end_col The column number where the scale end, reference by number only.
#' @param data The reference dataframe.
#' @keywords
#' Positive Life Event, The Positive Life Event Scale
#' @note
#' This function is designed to work with the validated question order as printed in the reference article. This function will
#' give inaccurate results if question order is different from the published validated scale.
#' @references
#' Disabato, D. J., Kashdan, T. B., Short, J. L., & Jarden, A. (2017). What predicts positive life events that influence the course of depression? A longitudinal examination of gratitude and meaning in life. Cognitive Therapy and Research, 41(3), 444-458.
#' @examples
#' df <- data.frame("var1" = c("None", "Did not happen", "Some"),
#' "var2" = c("Did not happen", "A little","Some"),
#' "var3" = c("A lot", "Did not happen", "Some"),
#' "var4" = c("A lot", "A little", "Some"),
#' "var5" = c("A lot", "Did not happen", "A little"),
#' "var6" = c("good_event_1", "good_event_2", "good_event_3"),
#' "var7" = c("None", "A lot", "A little"),
#' "var8" = c("good_event_4", "good_event_5", "good_event_6"),
#' "var9" = c("A lot", "A little", "None"))
#' pos_event(1, 9, df)
#' @export

pos_event <- function (start_col, end_col, data) {
  n <- c("pos1", "pos2", "pos3", "pos4", "pos5", "pos6_des", "pos6_num", "pos7_des", "pos7_num")
  names(data)[start_col:end_col] = n
  data[,n] <- apply(data[,n], 2, as.character)
  a <- c("pos1", "pos2", "pos3", "pos4", "pos5", "pos6_num", "pos7_num")
  data[,a] <- apply(data[,a], 2, factor, levels = c("Did not happen", "None", "A little", "Some", "A lot"),
                    labels = c(0, 1, 2, 3, 4))
  data[,a] <- apply(data[,a], 2, to_numeric)
  data$pos_event_score <- (data$pos1 + data$pos2+ data$pos3 + data$pos4 + data$pos5 + data$pos6_num + data$pos7_num)/7
  data
}