Add reclass() to ZLEMA()

Same issue as #131.
joshuaulrich · Feb 13, 2024 · c2025ce · c2025ce
1 parent 6add5d9
commit c2025ce
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/R/MovingAverages.R b/R/MovingAverages.R
@@ -348,11 +348,14 @@ function (x, n=10, ratio=NULL, ...) {
   # Call C routine
   ma <- .Call(C_zlema, x, n, ratio)
 
+  # Convert back to original class
+  ma <- reclass(ma,x)
+
   if(!is.null(dim(ma))) {
     colnames(ma) <- "ZLEMA"
   }
 
-  reclass(ma,x)
+  return(ma)
 }
 
 #-------------------------------------------------------------------------#