Update row_means.R

easystats · Aug 13, 2023 · 2c4aace · 2c4aace
1 parent 8e5c0e2
commit 2c4aace
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/row_means.R b/R/row_means.R
@@ -117,10 +117,10 @@ row_means <- function(data,
 
   # proceed here if min_valid is not NULL
   if (!is.null(min_valid)) {
-    # is 'n' indicating a proportion?
+    # is 'min_valid' indicating a proportion?
     decimals <- min_valid %% 1
     if (decimals != 0) {
-      n <- round(ncol(data) * decimals)
+      min_valid <- round(ncol(data) * decimals)
     }
 
     # min_valid may not be larger as df's amount of columns