Closed wwiecek closed 2 years ago
mean_weights_proto <- function(x) {
mean_hypervar <- mean(treatment_effect(x)$sigma_tau)
dt <- prepare_ma(x$data, effect = "logOR")
studyvar <- (dt$se)^2
names(studyvar) <- dt$group
study_prec <- 1 / (mean_hypervar + studyvar)
study_prec/sum(study_prec)
}
Now done in pooling()
As per Rubin 1981. Rachael Meager says: