====== Anti Antisaccade Task ======
Anti is a [[:tools:eyetracking]] [[:tools:antisaccade]] (not to be confused with [[:tools:anti:antistate]]) written in [[:tools:Eprime]] for [[:tools:eyetracking:asl]].

The task was used in [[:grants:7t]], behavioral visit of [[:grants:pet]] (?), and [[:grants: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''

===== Cue Duration =====

In the [[:grants:7t:behavioral|7T Behavioral Protocol]], duration for the red fix cross are ''0.5'' ''2'' ''4'' ''6''. There are 12 of each.

<code=R>
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
</code>