From 82d624edcf09d8db7b94cf2b90cb182f5abe8234 Mon Sep 17 00:00:00 2001 From: egouldo Date: Mon, 29 Jul 2024 20:45:07 +1000 Subject: [PATCH] #29 rm duplicate creation of fn fit_MA_mv() --- R/meta_analyse_datasets.R | 10 ---------- 1 file changed, 10 deletions(-) diff --git a/R/meta_analyse_datasets.R b/R/meta_analyse_datasets.R index 91e7eab..19a9a49 100644 --- a/R/meta_analyse_datasets.R +++ b/R/meta_analyse_datasets.R @@ -34,16 +34,6 @@ meta_analyse_datasets <- function(MA_data){ cli::cli_h1(text = "Meta-analysing Datasets") - fit_MA_mv <- function(effects_analysis, Z_colname, VZ_colname, estimate_type){ - Zr <- effects_analysis %>% pull({{Z_colname}}) - VZr <- effects_analysis %>% pull({{VZ_colname}}) - mod <- poss_fit_metafor_mv(estimate = Zr, - variance = VZr, - estimate_type = estimate_type, - data = effects_analysis) - return(mod) - } - if( any(str_detect(unique(MA_data$estimate_type), pattern = "Zr")) ){ # Must group by cols else multiple "effects_analysis" elements # get passed to fit_MA_mv()