eye_average: average left and right eye gaze points

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

Usage

eye_average(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) 
{
    data$GazePointX <- rep(NA, nrow(data))
    data$GazePointY <- rep(NA, nrow(data))
    data$EyeLocX <- rep(NA, nrow(data))
    data$EyeLocY <- rep(NA, nrow(data))
    data$EyeLocZ <- rep(NA, nrow(data))
    for (i in 1:nrow(data)) {
        if (!is.na(data$Validity[i])) {
            data$GazePointX[i] <- (data$GazePointXLeft[i] + data$GazePointXRight[i])/2
            data$GazePointY[i] <- (data$GazePointYLeft[i] + data$GazePointYRight[i])/2
            data$EyeLocX[i] <- (data$EyeLocXLeft[i] + data$EyeLocXRight[i])/2
            data$EyeLocY[i] <- (data$EyeLocYLeft[i] + data$EyeLocYRight[i])/2
            data$EyeLocZ[i] <- (data$EyeLocZLeft[i] + data$EyeLocZRight[i])/2
        }
    }
    return(data)
  }

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