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) {