templates/summary_template.R

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

#' RM2C2: Scoring, Summarizing

#' @name summary_
#' @export
summary_ <- function(df, group_var) {
  PACKAGE.VERSION <- packageVersion("RM2C2")
  TASK_NAME <- "TASK_NAME"
  summary.df <- df %>%
    group_by(.dots = c(group_var)) %>%
    summarise(n.trials = n()) %>%
    mutate(PACKAGE.VERSION = PACKAGE.VERSION)
    
  # add task name to column names
  len_group_var = length(group_var)
  names(summary.df)[(len_group_var+1):ncol(summary.df)] <- paste0(TASK_NAME,".",names(summary.df)[(len_group_var+1):ncol(summary.df)])
  return(summary.df)
}