From e07d13172aa18e67c08e3c3eed6908d3c0519a5b Mon Sep 17 00:00:00 2001 From: egouldo Date: Wed, 14 Aug 2024 17:27:38 +1000 Subject: [PATCH] #88 add process_response() - for alternate to standardise_response() --- R/standardise_response.R | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) diff --git a/R/standardise_response.R b/R/standardise_response.R index e8ac762..4ba66b8 100644 --- a/R/standardise_response.R +++ b/R/standardise_response.R @@ -101,3 +101,26 @@ standardise_response <- function(dat, # TODO for any analyses implicitly excluded, return a message to the user return(dat) } + +#' Process response data for meta-analysis +#' +#' @description +#' This function generates the response data for meta-analysis without standardising the effect sizes / out-of-sample predictions. +#' @describeIn process_analyst_data Process response data for meta-analysis but do not standardise effect-sizes +process_response <- function(dat, + estimate_type = NULL, + param_table = NULL, + dataset = NULL){ #TODO what to do about args in pmap_prepare_response? allow ... args in fns(x,y,z, ...)? + + Z_names_lookup <- c(Z = "estimate", #blue tit + Z = "fit", #eucalyptus + VZ = "se.fit") # both datasets + + dat %>% + mutate(back_transformed_data = + map(back_transformed_data, + rename, + any_of(Z_names_lookup)), + params = NA) + #TODO replace dummy function with actual function +}