From 8fb44152db28a92b983f313880affeaa9a8c3170 Mon Sep 17 00:00:00 2001
From: Suraj Yerramilli
Date: Tue, 29 Dec 2015 15:14:34 +0530
Subject: adapting to the new structure

---
 R/estpoly.R | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'R/estpoly.R')

diff --git a/R/estpoly.R b/R/estpoly.R
index 42dac24..604dd71 100644
--- a/R/estpoly.R
+++ b/R/estpoly.R
@@ -132,7 +132,7 @@ residplot <- function(model,newdata=NULL){
 #' 
 #' \tabular{ll}{
 #'    \code{sys} \tab an \code{idpoly} object containing the 
-#'    fitted coefficients \cr
+#'    fitted ARX coefficients \cr
 #'    \code{fitted.values} \tab the predicted response \cr
 #'    \code{residuals} \tab the residuals  \cr
 #'    \code{input} \tab the input data used \cr
@@ -188,8 +188,8 @@ arx <- function(x,order=c(0,1,0)){
   model <- idpoly(A = c(1,coef[1:na]),B = coef[na+1:nb],
                ioDelay = nk,Ts=deltat(x))
   
-  estpoly(coefficients = model,vcov = vcov, sigma = sqrt(sigma2),
-              df = df,fitted.values=(X%*%coef)[1:N,],
+  estpoly(sys = model,stats=list(vcov = vcov, sigma = sqrt(sigma2),
+              df = df),fitted.values=(X%*%coef)[1:N,],
               residuals=(Y-X%*%coef)[1:N,],call=match.call(),input=u)
 }
 
-- 
cgit