From 6690438dc5ff4a2dde1c15cf09a0a953c5b06bc3 Mon Sep 17 00:00:00 2001
From: Suraj Yerramilli
Date: Sat, 22 Aug 2015 21:11:57 +0530
Subject: minor changes

---
 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 8abc3c1..8f6cc41 100644
--- a/R/nonparam.R
+++ b/R/nonparam.R
@@ -55,7 +55,7 @@ impulseest <- function(data,M=30,K=0,regul=F,lambda=1){
   se <- sqrt(diag(vcov))
   
   out <- list(coefficients=coefficients,residuals=residuals,lags=K:(M+K),
-              x=colnames(data$input),y=colnames(data$output),se = se)
+              x=inputNames(data),y=outputNames(data),se = se)
   class(out) <- "impulseest"
   return(out)
 }
-- 
cgit