From 0669ef68b5143f7cfeaf9a71a65a317f9a1fd750 Mon Sep 17 00:00:00 2001
From: Rob Hyndman <robjhyndman@gmail.com>
Date: Tue, 17 Sep 2024 16:58:17 +1000
Subject: [PATCH] Argument passing to scale()

---
 R/mvscale.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/mvscale.R b/R/mvscale.R
index b1c2ba8..b4706de 100644
--- a/R/mvscale.R
+++ b/R/mvscale.R
@@ -75,8 +75,8 @@ mvscale <- function(object, center = stats::median, scale = robustbase::s_Qn,
   }
   # Create more resilient version of scale function
   if(!is.null(scale)) {
-    my_scale <- function(x, mu.too = FALSE, na.rm = TRUE) {
-      s <- scale(x, mu.too = mu.too, na.rm = na.rm)
+    my_scale <- function(x, ..., na.rm = TRUE) {
+      s <- scale(x, ..., na.rm = na.rm)
       s[s == 0] <- 1 # Avoid division by zero
       return(s)
     }