R/ItemFileSent.R

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

ItemFileSent <- function(dat, env = parent.frame(n = 1)) {
  
  # create output slot
  
  item <- data.frame(matrix(NA, 1, 7))
  colnames(item) <- c("subid", "trialid", "trialnum", "itemid", "cond", "sentnum", "sent")
  
  # trial loop
  for (trial in 1:length(dat$item)) {
    # trial = 1
    
    itemtmp <- 
      dat$item[[trial]]$meta$stimmat[duplicated(dat$item[[trial]]$meta$stimmat$sentnum) == F, ]
    
    names <- c("subid", "trialid", "trialnum", "itemid", 
               "cond", "sentnum", "sent")
    itemtmp <- itemtmp[names]
    
    # add to output
    item <- rbind(item, itemtmp)
    
  }
  
  # save
  item <- item[-1, ]
  
  return(item)
  
}