Consistent local function definition

robjhyndman · Sep 17, 2024 · 126b6ad · 126b6ad
1 parent 0669ef6
commit 126b6ad
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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) {