fixation_merge: merge fixations that are decided to be too close

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

Usage

fixation_merge(fix1, fix2, fixations, data)

Arguments

fix1
fix2
fixations
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 (fix1, fix2, fixations, data) 
{
    Starttime <- fixations$Timestamp[FixationIndex == fix1]
    Duration <- tail(data$Timestamp[!is.na(data$fixationNumber) & 
        data$fixationNumber == fix2], 1) - Starttime
    FixationPointX <- mean(data$GazePointX[!is.na(data$fixationNumber) & 
        (data$fixationNumber == fix1 | data$fixationNumber == 
            fix2)])
    FixationPointY <- mean(data$GazePointY[!is.na(data$fixationNumber) & 
        (data$fixationNumber == fix1 | data$fixationNumber == 
            fix2)])
    fixations$FixationDuration[fixations$FixationIndex == fix1] <- Duration
    fixations$MappedFixationPointX[fixations$FixationIndex == 
        fix1] <- FixationPointX
    fixations$MappedFixationPointY[fixations$FixationIndex == 
        fix1] <- FixationPointY
    fixations <- fixations[!(fixations$FixationIndex == fix2), 
        ]
    return(fixations)
  }

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