R/hamming.window.R

hamming.window <- function (n)
  {
    if (n == 1)
      c <- 1
    else
      {
	n <- n-1
	c <- 0.54 - 0.46*cos(2*pi*(0:n)/n)
      }
    return(c)
  }
flagroth/j1071 documentation built on May 16, 2019, 1:15 p.m.