R/downsample_pupil.R

In dmirman/gazer: Tools for Processing Eye Tracking Data

#' Downsample pupil data
#'
#' This function will reduce the sampling fequency
#' @param dataframe dataframe
#' @param bin.length Length of bins to average
#' @param timevar name of time variable
#' @param aggvars vector of variable names to group by for aggregation
#' @export
downsample_pupil <- function(dataframe, bin.length = NULL, timevar="time", aggvars=c("subject", "script","timebins")){
  downsample <- dataframe %>%
    mutate(timebins = round(!!sym(timevar)/bin.length)*bin.length)
  # if there are aggregation variables, then aggregate
  if(length(aggvars > 0)){ 
    downsample <- downsample %>%
      dplyr::group_by_(.dots = aggvars) %>%
      dplyr::summarize(aggbaseline=mean(baselinecorrectedp)) %>%
      dplyr::ungroup()
  }
  return(downsample)
}