round weighted total N

easystats · Mar 24, 2023 · 9716c6a · 9716c6a
1 parent b62a9ee
commit 9716c6a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/report_sample.R b/R/report_sample.R
@@ -101,7 +101,7 @@ report_sample <- function(data,
     }
     # define total N, based on weights
     if (!is.null(weights)) {
-      total_n <- sum(as.vector(table(data[[group_by]]))) * mean(data[[weights]], na.rm = TRUE)
+      total_n <- round(sum(as.vector(table(data[[group_by]]))) * mean(data[[weights]], na.rm = TRUE))
     } else {
       total_n <- sum(as.vector(table(data[[group_by]])))
     }