1 files changed, 0 insertions, 16 deletions
diff --git a/R/poly.R b/R/poly.R
index 5655a2f..15591e3 100644
--- a/R/poly.R
+++ b/R/poly.R
@@ -164,20 +164,4 @@ print.idpoly <- function(mod,se=NULL,dig=3){
     }
   }
   cat("\n")
-}
-
-#' @export
-predict.idpoly <- function(x,data,nahead=1){
-  y <- outputData(z); u<- inputData(z)
-  G <- signal::Arma(b=c(rep(0,x$ioDelay),x$B),
-                    a= as.numeric(polynom::polynomial(x$A)*
-                                    polynom::polynomial(x$F1)))
-  if(x$type=="oe" || nahead==Inf){
-    ypred <- signal::filter(G,u)
-  } else{
-    Hden <- as.numeric(polynom::polynomial(x$A)*polynom::polynomial(x$D))
-    Hinv <- signal::Arma(b=Hden,a=x$C) 
-  }
-  
-  return(ypred)
 }
 \ No newline at end of file