R/AggregateWordsFirstrun.R

In sascha2schroeder/popEye: Analysis of eye-tracking data from reading experiments

AggregateWordsFirstrun <- function(fix) {
  
  # create outfile  
  firstruntmp <- fix[fix$word.run == 1, ]
  firstruntmp$id <- as.character(paste(firstruntmp$trialnum, firstruntmp$wordnum, sep = ":"))
  firstrun <- firstruntmp[duplicated(firstruntmp$id) == F, ]
  
  names <- c("id", "subid", "trialid", "trialnum", "itemid", "cond", "wordnum", 
             "word", "fixid")
  firstrun <- firstrun[names]  
  firstrun <- firstrun[order(firstrun$id), ]
  
  # compute measures
  firstrun$firstrun.blink <- as.numeric(tapply(firstruntmp$blink, list(firstruntmp$id), max))
  firstrun$firstrun.skip <- as.numeric(tapply(firstruntmp$word.firstskip, list(firstruntmp$id), max))
  firstrun$firstrun.nfix <- as.numeric(tapply(firstruntmp$fixid, list(firstruntmp$id), length))
  firstrun$firstrun.refix <- as.numeric(tapply(firstruntmp$word.refix, list(firstruntmp$id), max))
  firstrun$firstrun.reg.in <- as.numeric(tapply(firstruntmp$word.reg.in, list(firstruntmp$id), max))
  firstrun$firstrun.reg.out <- as.numeric(tapply(firstruntmp$word.reg.out, list(firstruntmp$id), max))
  firstrun$firstrun.dur <- as.numeric(tapply(firstruntmp$dur, list(firstruntmp$id), sum))
  firstrun$firstrun.gopast <- NA
  firstrun$firstrun.gopast.sel <- NA
  
  # save
  firstrun <- firstrun[order(firstrun$trialnum, firstrun$wordnum), ]
  names <- c("subid", "trialid", "trialnum", "itemid", "cond", "wordnum", "word", 
             "firstrun.blink", "firstrun.skip", "firstrun.nfix", "firstrun.refix", 
             "firstrun.reg.in", "firstrun.reg.out", "firstrun.dur", 
             "firstrun.gopast", "firstrun.gopast.sel")
  firstrun <- firstrun[names]
  firstrun <- firstrun[order(firstrun$subid), ]
  
  return(firstrun)
  
}