R/spk.R

In landmarkacoustics/SoundPoints-R: an R version of the SoundPoints algorithm

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