detect blinks by a change in pupil size — detect_blinks_by

This allows the user to set a threshold for pupil size and remove anything classed as a blink as a result

detect_blinks_by_size(
  data,
  pupil,
  threshold = 2.5,
  extend_forward = 0,
  extend_back = 0
)

Arguments

data: dataset of class PupillometryR
pupil: column name for pupil data
threshold: velocity threshold for blink detection
extend_forward: number of observations to remove forward of blink
extend_back: number of obervations to remove behind blink

Value

returns dataframe with blinks removed including forward and back, and data in blink column.

Examples

Sdata <- make_pupillometryr_data(data = pupil_data,
subject = ID,
trial = Trial,
time = Time,
condition = Type)

Sdata2 <- detect_blinks_by_size(data = Sdata,
pupil = pupil_data,
threshold = 2.5,
extend_forward = 0,
extend_back = 0)
#> Error in mutate(., .min = mean(!!sym(pupil), na.rm = T) - (threshold *     sd(!!sym(pupil), na.rm = T)), .max = mean(!!sym(pupil), na.rm = T) +     (threshold * sd(!!sym(pupil), na.rm = T))): ℹ In argument: `.min = mean(pupil_data, na.rm = T) - (threshold *
#>   sd(pupil_data, na.rm = T))`.
#> ℹ In group 1: `ID = "1"`, `Trial = Easy1`.
#> Caused by error in `is.data.frame()`:
#> ! 'list' object cannot be coerced to type 'double'