Modified idpoly constructor

1 files changed, 7 insertions, 3 deletions

diff --git a/R/poly.R b/R/poly.R
index cd9410f..df55f8c 100644
--- a/R/poly.R
+++ b/R/poly.R
@@ -1,5 +1,5 @@
 #' @export
-idpoly <- function(A,B,C,D,F1,ioDelay=0){
+idpoly <- function(A=1,B=1,C=1,D=1,F1=1,ioDelay=0){
   out <- list(A= A,B=B,C=C,D=D,F1=F1,ioDelay = ioDelay)
   class(out) <- "idpoly"
   return(out)
@@ -7,7 +7,7 @@ idpoly <- function(A,B,C,D,F1,ioDelay=0){
 
 #' @export
 arx <- function(A,B,ioDelay=0){
-  out <- idpoly(A=A,B=B,C=1,D=1,F1=1,ioDelay = ioDelay)
+  out <- idpoly(A=A,B=B,ioDelay = ioDelay)
   class(out) <- c("arx","idpoly")
   return(out)
 }
@@ -49,7 +49,11 @@ print.arx <- function(obj){
 
 #' @export
 armax <- function(A,B,C,ioDelay=0){
-  out <- idpoly(A=A,B=B,C=C,D=1,F1=1,ioDelay = ioDelay)
+  out <- idpoly(A=A,B=B,C=C,ioDelay = ioDelay)
   class(out) <- c("armax","idpoly")
   return(out)
+}
+
+oe <- function(B,C,ioDelay=0){
+  out <- idpoly(B)
 }
\ No newline at end of file