R/score_symbol_search.R

In nelsonroque/surveydolphinr: Scoring and Summarizing of Cognitive task data from an early variant of the Mobile Monitoring of Cognitive Change Project (M2C2) platform.

#' RM2C2: Scoring, Summarizing

#' @name score_symbol_search
#' @export
score_symbol_search <- function(df) {
  PACKAGE.VERSION <- packageVersion("RM2C2")
  scored <- df %>% mutate(accuracy = ifelse(user_response == correct_response,1,0)) %>%
    mutate(PACKAGE.VERSION = PACKAGE.VERSION)
  return(scored)
}