R/score_go_nogo.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_go_nogo
#' @export
score_go_nogo <- function(df, nogo_letter = "X") {
  PACKAGE.VERSION <- packageVersion("RM2C2")
  scored <- df %>%
    mutate(no.go.letter = nogo_letter,
           response_time = ifelse(responseTime == -1,NA,responseTime)) %>%
    mutate(is.nogo.frame = ifelse(letter == no.go.letter, 1, 0),
           FA = ifelse(is.nogo.frame == 1 & response == 1,1,0),
           MISS = ifelse(is.nogo.frame == 0 & response == 0,1,0),
           HIT = ifelse(is.nogo.frame == 0 & response == 1,1,0),
           CR = ifelse(is.nogo.frame == 1 & response == 0,1,0))  %>%
    mutate(PACKAGE.VERSION = PACKAGE.VERSION)
  return(scored)
}