make_fixation_table: put fixation results in a table

In rwoldford/EyeFixR: Determinations fixation locations from eye-tracking data

Usage

make_fixation_table(data)

Arguments

data

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (data) 
{
    FixationIndex <- rep(0, max(data$fixationNumber[!is.na(data$fixationNumber)]))
    Timestamp <- rep(0, max(data$fixationNumber[!is.na(data$fixationNumber)]))
    FixationDuration <- rep(0, max(data$fixationNumber[!is.na(data$fixationNumber)]))
    MappedFixationPointX <- rep(0, max(data$fixationNumber[!is.na(data$fixationNumber)]))
    MappedFixationPointY <- rep(0, max(data$fixationNumber[!is.na(data$fixationNumber)]))
    for (i in (min(data$fixationNumber[!is.na(data$fixationNumber)])):(max(data$fixationNumber[!is.na(data$fixationNumber)]))) {
        FixationIndex[i] <- i
        Timestamp[i] <- data$Timestamp[!is.na(data$fixationNumber) & 
            data$fixationNumber == i][1]
        FixationDuration[i] <- tail(data$Timestamp[!is.na(data$fixationNumber) & 
            data$fixationNumber == i], 1) - Timestamp[i]
        MappedFixationPointX[i] <- mean(data$GazePointX[!is.na(data$fixationNumber) & 
            data$fixationNumber == i])
        MappedFixationPointY[i] <- mean(data$GazePointY[!is.na(data$fixationNumber) & 
            data$fixationNumber == i])
    }
    fixations <- data.frame(FixationIndex, Timestamp, FixationDuration, 
        MappedFixationPointX, MappedFixationPointY)
    return(fixations)
  }

rwoldford/EyeFixR documentation built on May 12, 2019, 4:37 a.m.