fixation_filter: pick out fixations from data
In rwoldford/EyeFixR: Determinations fixation locations from eye-tracking data

Usage Arguments Examples

fixation_filter(file, xResolution = 1280, yResolution = 1024, xMM = 340, yMM = 270, agreementThreshold = 200, maxInterpolation = 75000, smoothingWindowSize = 3, smoothingMethod = "median", fixationMaxVelocity = 30)

`file`
`xResolution`
`yResolution`
`xMM`
`yMM`
`agreementThreshold`
`maxInterpolation`
`smoothingWindowSize`
`smoothingMethod`
`fixationMaxVelocity`

##---- 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 (file, xResolution = 1280, yResolution = 1024, xMM = 340, 
    yMM = 270, agreementThreshold = 200, maxInterpolation = 75000, 
    smoothingWindowSize = 3, smoothingMethod = "median", fixationMaxVelocity = 30) 
{
    data <- read.table(file, sep = ",", header = FALSE, strip.white = TRUE)
    names(data) <- c("Timestamp", "ValidityLeft", "EyeLocXLeft", 
        "EyeLocYLeft", "EyeLocZLeft", "GazePointXLeft", "GazePointYLeft", 
        "ValidityRight", "EyeLocXRight", "EyeLocYRight", "EyeLocZRight", 
        "GazePointXRight", "GazePointYRight")
    data <- eye_agreement(data, agreementThreshold, xResolution, 
        yResolution)
    data <- eye_average(data)
    data <- gaze_interpolation(data, maxInterpolation)
    data <- gaze_smoothing(data, smoothingWindowSize, smoothingMethod)
    data <- angular_velocity(data, xMM, yMM)
    data <- fixation_classifier(data, fixationMaxVelocity)
    return(data)
  }