round weighted N

easystats · Aug 12, 2023 · 995fb79 · 995fb79
1 parent 4651aac
commit 995fb79
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/means_by_group.R b/R/means_by_group.R
@@ -182,7 +182,7 @@ means_by_group.data.frame <- function(x,
   out_weights <- stats::aggregate(data["weights"], data["group"], sum)
 
   colnames(out) <- c("Category", "Mean")
-  out$N <- out_weights[[2]]
+  out$N <- round(out_weights[[2]])
   out$SD <- out_sd[[2]]
   out$p <- out$CI_high <- out$CI_low <- NA