R/hanning.R

`hanning` <-
    function (x, n=7)
{
    j <- 0:(n - 1)
    win <- 1 - cos(2 * pi / (n - 1) * j)
    win <- win / sum(win)
    as.vector(filter(x, win))
}
AndyBunn/dplR documentation built on June 5, 2024, 4:53 a.m.