R/ksmoothVec.R

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

#' ksmoothVec
#'
#' @param x
#' @param bw
#'
#' @return
#' @export
#'
#' @examples
ksmoothVec <- function(x, bw = 50){
    y = x
    x = zoo::index(x)
    krnl = ksmooth(x, y, kernel = "box", bandwidth = bw)
    all.equal(krnl$x, x)
    return(krnl)
}