fixation_classifier: classify time points as fixations or saccades

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

Usage

fixation_classifier(data, degPerSec)

Arguments

data
degPerSec

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, degPerSec) 
{
    data$fixation <- rep(NA, nrow(data))
    for (i in 1:nrow(data)) {
        if (!is.na(data$AngularVelocity[i]) & data$AngularVelocity[i] >= 
            degPerSec) {
            data$fixation[i] <- FALSE
        }
        else if (!is.na(data$AngularVelocity[i])) {
            data$fixation[i] <- TRUE
        }
    }
    currentNumber <- 1
    data$fixationNumber <- rep(NA, nrow(data))
    for (i in 1:nrow(data)) {
        if (!is.na(data$fixation[i]) & data$fixation[i]) {
            data$fixationNumber[i] <- currentNumber
        }
        else if (!is.na(data$fixation[i + 1]) & (i < nrow(data)) & 
            (data$fixation[i + 1] == TRUE)) {
            currentNumber = currentNumber + 1
        }
    }
    return(data)
  }

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