Fixed a typo

R/adam-sma.R

@@ -144,7 +144,7 @@ sma <- function(y, order=NULL, ic=c("AICc","AIC","BIC","BICc"),
             stop("The provided model is not Simple Moving Average!",call.=FALSE);
         }
         else{
-            order <- model$order[1];
+            order <- model$orders[1];
         }
     }