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)
  }

Try the e1071 package in your browser

Any scripts or data that you put into this service are public.

e1071 documentation built on Feb. 16, 2023, 8:31 p.m.