R/vmAvg.R

In NRSC/nphys: R package for interpreting neurphysiology field and whole-cell data

#' Get voltage average from 0 for sweeps
#'
#'
#' @param x numeric vector
#' @param r range of samples to calculate mean from
#'
#' @export
vmAvg <- function(x, r = 1:1000) {

    zD <- mean(x[r])

    return(zD)

}