diff options
| -rw-r--r-- | R/nonparam.R | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/R/nonparam.R b/R/nonparam.R index 0a7e194..932b97d 100644 --- a/R/nonparam.R +++ b/R/nonparam.R @@ -177,7 +177,7 @@ spa <- function(data,npad=255){ # WOSA and Hanning window gamma <- sapa::SDF(temp,method="wosa",sampling.interval = deltat(data),npad=npad) - freq <- attributes(gamma)$frequency*2*pi + freq <- matrix(attributes(gamma)$frequency*2*pi) resp <- Conj(gamma[,2])/Mod(gamma[,3]) # power-spectrum |