Anti Antisaccade Task

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