R/spk.R

Defines functions spk

Documented in spk

spk <-
function(x){

    n <- length(x);

    k <- floor(0.5 * n);

    y <- Mod(fft(x)[1:(k+1)])
    
    10 * ( 2 * log( y, 10) - log(n,10) );
}
landmarkacoustics/SoundPoints-R documentation built on May 29, 2019, 9:14 a.m.