1 files changed, 1 insertions, 1 deletions
diff --git a/R/iv.R b/R/iv.R
index 47fb187..73b7cc8 100644
--- a/R/iv.R
+++ b/R/iv.R
@@ -148,7 +148,7 @@ iv4 <- function(z,order=c(0,1,0)){
   
   # Step 3
   w <- resid(mod_iv)
-  mod_ar <- ar(w,aic = F,order=na+nb)
+  mod_ar <- ar(w,aic = F,order.max =na+nb)
   Lhat <- signal::Arma(b=c(1,-mod_ar$ar),a=1)
   
   # Step 4