From 8646a25e987e8f35fb258e8a19a580a4af6d29b3 Mon Sep 17 00:00:00 2001
From: maclomaclee <50185441+maclomaclee@users.noreply.github.com>
Date: Thu, 11 Jan 2024 23:18:54 +0000
Subject: [PATCH] 110104

---
 util/util.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/util/util.R b/util/util.R
index 01d622f..70cdab1 100644
--- a/util/util.R
+++ b/util/util.R
@@ -222,7 +222,7 @@ subgroup_analysis <- function(df, experiment_type, outcome, moderator, rho_value
   subgroup_analysis_plotdata <- data.frame(levels(df2[[moderator]]), k_subgroups, subgroup_analysis$beta, subgroup_analysis$se, subgroup_analysis$pval, subgroup_analysis$ci.lb, subgroup_analysis$ci.ub)
   colnames(subgroup_analysis_plotdata) <- c(moderator, "k", "SMD", "se","p", "ci_l", "ci_u") #, "pi.lb", "pi.ub")
   subgroup_analysis_plotdata$symbol <- 15
-  subgroup_analysis_plotdata$size <- (1/subgroup_analysis_plotdata$se) * 2
+  subgroup_analysis_plotdata$size <- (1/subgroup_analysis_plotdata$se)
   subgroup_analysis_plotdata$summary <- FALSE
   subgroup_analysis_plotdata$fontfaace <- "plain"
   subgroup_analysis_plotdata$fontsize <- 3.88