R/periodogram.R

per <- function(z) {
  n <- length(z)
  (Mod(fft(z))**2/(2*pi*n)) [1:(n %/% 2 + 1)]
}

Try the waveslim package in your browser

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

waveslim documentation built on May 2, 2019, 4:41 p.m.