Blink Detection

[jgeller112]

Hi!

It is my understanding that tracklossed data are usually labeled as blinks? The blink detect function is not working with some of the data I am processing. Interestingly, it works with data from Experiment Builder, but not when I process data from Psychtoolbox. I compared the below data to the sample report from SR and there are some large discrepancies in blink detection.

install::remotes("dmirman/gazer")
samp <- system.file("extdata", "samp.xls", package = "gazer")
samp<-fread(samp)

 blk <- saccades::detect.fixations(samp, lambda=16)

blk1 <- blk %>%
        dplyr::filter(event=="blink") %>%
        tidyr::gather(data=., key="startend", value="time", start:end) # gather all the blinks
blk_merge <- dplyr::full_join(samp, blk1)