eye_agreement: check if left and right eyes agree

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

Usage

eye_agreement(data, threshold, xRes, yRes)

Arguments

data
threshold
xRes
yRes

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, threshold, xRes, yRes) 
{
    data$Validity <- rep(NA, nrow(data))
    for (i in 1:nrow(data)) {
        if (!is.na(data$ValidityLeft[i])) {
            dist <- sqrt((xRes * (data$GazePointXLeft[i] - data$GazePointXRight[i]))^2 + 
                (yRes * (data$GazePointYLeft[i] - data$GazePointYRight[i]))^2)
            if (dist > threshold) {
                data$Validity[i] <- NA
            }
            else {
                data$Validity[i] <- data$ValidityLeft[i]
            }
        }
    }
    return(data)
  }

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