From f6822c969d2ff46f28912feaa5843afc7764fe39 Mon Sep 17 00:00:00 2001
From: Suraj Yerramilli
Date: Thu, 5 Nov 2015 23:50:32 +0530
Subject: adding print function for estPoly

---
 R/estpoly.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'R/estpoly.R')

diff --git a/R/estpoly.R b/R/estpoly.R
index 993fc46..7664264 100644
--- a/R/estpoly.R
+++ b/R/estpoly.R
@@ -71,10 +71,10 @@ summary.estPoly <- function(object)
 
 #' @export
 print.summary.estPoly <- function(object,...){
-  print(object$model)
+  print(object$model,...)
   cat("Call: ");print(object$call);cat("\n\n")
   
-  print(coef(object))
+  print(coef(object),...)
   cat(paste("\nMSE:",format(object$mse,digits=4),
             "\tFPE:",format(object$fpe,digits=4)))
   if(object$model$type=="arx") cat(paste("\nDoF:",object$df))
-- 
cgit