R/ItemFileWord.R

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

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