From 7e376c7936d7d9ea9d4bbdeefbbceadf060d8967 Mon Sep 17 00:00:00 2001
From: Suraj Yerramilli
Date: Sat, 19 Mar 2016 18:56:12 +0530
Subject: minor corrections in spa

---
 R/nonparam.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'R/nonparam.R')

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
   }
-- 
cgit