Anti Antisaccade Task

Anti is a Eye Tracking Antisaccade Tasks (not to be confused with antistate) written in EPrime for asl.

The task was used in Brain Mechanisms R01 (7T), behavioral visit of PET Study (?), and cog (?)

The Eprime file can be found in bea_res/Tasks/Behavorial/anti-beakid/ANTI.es

Output files are like bea_res/Data/Tasks/Anti/Basic/11910/20221216/Raw/EyeData/11910_20221216_anti.eyd

In the 7T Behavioral Protocol, duration for the red fix cross are 0.5 2 4 6. There are 12 of each.

raw_eye_data_file = '/Volumes/L/bea_res/Data/Tasks/Anti7TASL/10129/20180829/Raw/EyeData/txt/10129.20180829.1.data.tsv'
 
d <- read.table(raw_eye_data_file,header=T)
 
# XDAT is analogous to EEG trigger sent to and embedded in eye tracking recording
# <100 is cue, >100 is dot, 250 is "clear" (end of trial)
# sampling rate of ASL tracker is 60Hz
durs <- d %>% 
   mutate(trial=cumsum(XDAT!=lag(XDAT,default=0)),
          event=cut(XDAT,c(0,100,200,250),
                         labels=c('cue','dot','end'))) %>% 
  group_by(trial,event,XDAT) %>% 
  summarise(dur=round(n()/60,1)) 
 
# how many trials at each duration do we have?
durs %>%
  filter(event=="cue") %>% 
  with(rle(sort(dur)))
# Run Length Encoding
#  lengths: int [1:4]  12  12  12  12
#  values : num [1:4] 0.7 2.2 4.2 6.2