R/periodogram.R

per <- function(z) {
  n <- length(z)
  (Mod(fft(z))**2/(2*pi*n)) [1:(n %/% 2 + 1)]
}
andrewzm/waveslim documentation built on May 10, 2019, 11:16 a.m.