From b51c0f543934e4bff2788409af3a13584b710f1c Mon Sep 17 00:00:00 2001
From: Suraj Yerramilli
Date: Sat, 6 Jun 2015 00:56:01 +0530
Subject: Added class estPoly

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

diff --git a/R/estpoly.R b/R/estpoly.R
index b3e31c3..b0e127b 100644
--- a/R/estpoly.R
+++ b/R/estpoly.R
@@ -25,7 +25,7 @@ estARX <- function(data,order=c(0,1,0)){
   est <- list(coefficients = model,vcov = vcov, sigma = sqrt(sigma2),
               df = df,fitted.values=(X%*%coef)[1:N,],
               residuals=(Y-X%*%coef)[1:N,],call=match.call())
-  class(est) <- "estARX"
+  class(est) <- c("estARX","estPoly")
   est
 }
 
-- 
cgit