Skip to content
Prev 4962 / 5636 Next

[R-meta] Correcting Hedges' g vs. Log response ratio in nested studies

Thanks so  much, James. This is how I got it set up. Do I have it right?

dat <- read.table(header=TRUE,text="
study  gi   vi  cluster n1  n2
1     .2   .05  T       25  23
1     .3   .08  T       18  11
2     1    .1   F       19  21
2     2    .2   F       12  36")

g_cluster <- \(gi, n1, n2, icc=.15){

  n <- mean(c(n1,n2), na.rm=TRUE)
  N <- sum(c(n1,n2), na.rm=TRUE)
  gi*sqrt( 1-((2*(n-1)*icc)/(N-2)) )
}
library(dplyr)
  group_by(dat , study) %>%
  mutate(gi= ifelse(cluster, g_cluster(gi,n1,n2),  gi))
On Thu, Nov 2, 2023 at 3:22?PM James Pustejovsky <jepusto at gmail.com> wrote: