normalize_eprime.R

#!/usr/bin/env Rscript

suppressPackageStartupMessages({library(dplyr); library(lubridate);library(stringr);})

d <- read.table('txt/eprime_times.tsv',sep="\t",header=T)
normed <- d |>
    transmute(wpc='WPC-UNKNOWN',
              wpc=case_when(
                  grepl('CENTRIM', file) ~ "WPC-8791", # OR 9053
                  grepl('^(C4|FH)', file) ~ "WPC-Sarp",
                  grepl('^(alcpic)', file) ~ "WPC-6106",
                  grepl('^Diamond', file) ~ "WPC-Phil2",
                  grepl('^Resting_plus', file) ~ "WPC-8791", # OR 8232
                  .default="WPC-UNKNOWN"),
              sess_id=id_fname,
              task=gsub('-.*.txt','',file),
              run=1,
              acqtime=acqtime_task)

write.table(normed, 'txt/eprime-norm.tsv', sep="\t", quote=F, row.names=F)