#29 rm duplicate creation of fn fit_MA_mv()

egouldo · Jul 29, 2024 · 82d624e · 82d624e · egouldo · Jul 31, 2024
1 parent 2cbc5dc
commit 82d624e
Showing 1 changed file with 0 additions and 10 deletions.
diff --git 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()