R/periodogram.R

In neuroconductor-devel/waveslim: Basic Wavelet Routines for One-, Two-, and Three-Dimensional Signal Processing

Defines functions per

Documented in per

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