excluding initial value in return

1 files changed, 1 insertions, 1 deletions

diff --git a/R/rarx.R b/R/rarx.R
index 89a4d8e..a121185 100644
--- a/R/rarx.R
+++ b/R/rarx.R
@@ -75,5 +75,5 @@ rarx <- function(x,order=c(1,1,1),lambda=0.95){
     theta[i+1,] <- t(t(theta[i,,drop=F])+eps_i[1]*kappa_i)
     Plast <- (diag(na+nb)-kappa_i%*%t(temp))%*%Plast/lambda
   }
-  list(theta=theta,yhat=yhat)
+  list(theta=theta[1+1:N,],yhat=yhat)
 }
\ No newline at end of file