From 126b6ad0c5360ae1301d7a89722949d0079f81bd Mon Sep 17 00:00:00 2001
From: Rob Hyndman <robjhyndman@gmail.com>
Date: Tue, 17 Sep 2024 16:59:17 +1000
Subject: [PATCH] Consistent local function definition

---
 R/mvscale.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/mvscale.R b/R/mvscale.R
index b4706de..2900f2b 100644
--- a/R/mvscale.R
+++ b/R/mvscale.R
@@ -81,7 +81,7 @@ mvscale <- function(object, center = stats::median, scale = robustbase::s_Qn,
       return(s)
     }
   } else {
-    my_scale <- function(x, ...) {1}
+    my_scale <- function(x, ..., na.rm = TRUE) {1}
   }
   # Scale
   if (d == 1L) {