R/score_symbol_search.R

In nelsonroque/RM2C2: Scoring and Summarizing of Cognitive task data from the Mobile Monitoring of Cognitive Change Project (M2C2).

#' 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)
}