get regional reading measures from DataViewer interest area report

[davebraze]

Wrap this into a function for ease of use. Ultimately, will want to elaborate on the set of reading measures. See file "NOTES.org" https://github.com/davebraze/FDBeye/blob/master/NOTES.org , for pointers.

library(readr)

## read an interest area report
d <- read_tsv("InterestAreaReport_multiword_n38_24Oct2016.txt",
              na=c("", "NA", "."))
d <- d[d$crit=="Critical",] ## drop foils
d1 <- d[1:5,] ## consider just one trial

d1$IA_LABEL

## derive conventional regional reading measures from DataViewer provided variables.
fpurt <- ifelse(d1$IA_FIRST_FIX_PROGRESSIVE, d1$IA_FIRST_RUN_DWELL_TIME, NA)
ffix <-  ifelse(d1$IA_FIRST_FIX_PROGRESSIVE, d1$IA_FIRST_FIXATION_DURATION, NA)
fpregres <- ifelse(d1$IA_FIRST_FIX_PROGRESSIVE, d1$IA_REGRESSION_OUT, NA)
rpurt <- ifelse(d1$IA_FIRST_FIX_PROGRESSIVE, d1$IA_REGRESSION_PATH_DURATION, NA)
totaldur <- d1$IA_DWELL_TIME
spurt <- totaldur-fpurt; spurt <- ifelse(is.na(spurt), 0, spurt)