From 02b430c61fc21692f46db27c2cba298910f15749 Mon Sep 17 00:00:00 2001
From: Suraj Yerramilli
Date: Tue, 16 Feb 2016 14:36:19 +0530
Subject: support for printing bj models

---
 R/poly.R | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/R/poly.R b/R/poly.R
index 138cbbd..9ab4fab 100644
--- a/R/poly.R
+++ b/R/poly.R
@@ -175,8 +175,12 @@ params <- function(x){
       coefs <- c(coefs,x$C[-1])
       nc <- length(x$C)-1
     } 
-  } else if(x$type=="oe"){
-    coefs <- c(x$B,x$F1[-1])
+  } else if(x$type=="oe"||x$type=="bj"){
+    coefs <- c(x$B)
+    if(x$type=="bj"){
+      coefs <- c(coefs,x$C[-1],x$D[-1])
+    }
+    coefs <- c(coefs,x$F1[-1])
     nf <- length(x$F1) - 1; nk <- x$ioDelay; 
     nb <- length(x$B)
   }
-- 
cgit