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 April 20, 2024, 10:33 p.m.