diff options
Diffstat (limited to 'R/nonparam.R')
| -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 fcc1e20..c6cdaa7 100644 --- a/R/nonparam.R +++ b/R/nonparam.R @@ -103,7 +103,7 @@ spa <- function(data,WinSize=NULL){ M <- WinSize } - gamma <- SDF(temp,method="wosa", + gamma <- SDF(temp,method="wosa",sampling.interval = data$Ts, taper. = taper(type="hanning",n.sample=M)) out <- list(response = gamma[,2]/gamma[,3]) class(out) <- "spa" |