diff options
| author | Suraj Yerramilli | 2015-06-03 12:52:40 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2015-06-03 12:52:40 +0530 |
| commit | 6531524c58d578bc73eb4baaf50fe6682d5f5284 (patch) | |
| tree | 95a39f3ebaa7829b89e0dd0953f72bab761c5c89 /R/nonparam.R | |
| parent | 6eedf002e8d399e4ac8c08037653f74a016fc7e4 (diff) | |
| download | SysID-R-code-6531524c58d578bc73eb4baaf50fe6682d5f5284.tar.gz SysID-R-code-6531524c58d578bc73eb4baaf50fe6682d5f5284.tar.bz2 SysID-R-code-6531524c58d578bc73eb4baaf50fe6682d5f5284.zip | |
added the sampling interval parameter
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" |