diff options
| author | Suraj Yerramilli | 2016-03-19 18:56:12 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2016-03-19 18:56:12 +0530 |
| commit | 7e376c7936d7d9ea9d4bbdeefbbceadf060d8967 (patch) | |
| tree | 4ee83c073bec25ca9d81507ff2bdd81339205e78 /R/nonparam.R | |
| parent | a3c8be0455fda4667270a1e7ec71b99d64a45a3e (diff) | |
| download | SysID-R-code-7e376c7936d7d9ea9d4bbdeefbbceadf060d8967.tar.gz SysID-R-code-7e376c7936d7d9ea9d4bbdeefbbceadf060d8967.tar.bz2 SysID-R-code-7e376c7936d7d9ea9d4bbdeefbbceadf060d8967.zip | |
minor corrections in spa
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 d1e56a9..ad8254d 100644 --- a/R/nonparam.R +++ b/R/nonparam.R @@ -201,7 +201,7 @@ spa <- function(x,winsize=NULL,freq=NULL){ phi_yu <- sapply(freq,cov2spec,Ryu[i,j,],M) phi_u <- sapply(freq,cov2spec,Ruu[j,j,],M) G[i,j,] <- phi_yu/phi_u - temp <- phi_y - phi_yu*Conj(phi_yu)/phi_u + temp <- temp - phi_yu*Conj(phi_yu)/phi_u } spec[i,i,] <- temp } |