diff options
| author | Suraj Yerramilli | 2016-02-23 15:22:17 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2016-02-23 15:22:17 +0530 |
| commit | a25095eadb843c6bf0e1dec5f5646081ab75cf3b (patch) | |
| tree | fa5366a67b332069124dcf3c4103ffd343706464 | |
| parent | 7e3f663b58538b8a7a68fb59d4c9df6b034831cd (diff) | |
| download | SysID-R-code-a25095eadb843c6bf0e1dec5f5646081ab75cf3b.tar.gz SysID-R-code-a25095eadb843c6bf0e1dec5f5646081ab75cf3b.tar.bz2 SysID-R-code-a25095eadb843c6bf0e1dec5f5646081ab75cf3b.zip | |
changing frequency into matrix
| -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 |