diff --git a/R/standardise_response.R b/R/standardise_response.R index a9e3720..c3f7264 100644 --- a/R/standardise_response.R +++ b/R/standardise_response.R @@ -181,7 +181,7 @@ process_response <- function(data, ...){ #' ManyEcoEvo_yi %>% #' filter(dataset == "eucalyptus") %>% #' pluck("data", 1) %>% -#' back_transform_response_vars_yi("yi", "eucalyptus") %>% +#' back_transform_response_vars_yi() %>% #' log_transform_response() #' @export #' @import dplyr diff --git a/vignettes/data_cleaning_preparation.Rmd b/vignettes/data_cleaning_preparation.Rmd index f2f0e76..d1fb5a7 100644 --- a/vignettes/data_cleaning_preparation.Rmd +++ b/vignettes/data_cleaning_preparation.Rmd @@ -80,8 +80,7 @@ blue_tit_predictions <- # ----- back-transform analyst estimates to original response scale ---- blue_tit_back_transformed <- blue_tit_predictions %>% - back_transform_response_vars_yi(estimate_type = "yi", - dataset = "blue tit") %>% + back_transform_response_vars_yi() %>% ungroup %>% select( id_col,