From 86f05e2c03b3bff640960f7ffdad8f038a88c5dc Mon Sep 17 00:00:00 2001 From: egouldo Date: Mon, 9 Sep 2024 12:31:19 +1000 Subject: [PATCH] #151 update file for reprex generation, output objects and load pkg with devtools --- manuscript/manuscript/investigate_back.R | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/manuscript/manuscript/investigate_back.R b/manuscript/manuscript/investigate_back.R index 2efc582..075e7b3 100644 --- a/manuscript/manuscript/investigate_back.R +++ b/manuscript/manuscript/investigate_back.R @@ -1,3 +1,4 @@ +devtools::load_all() out <- targets::tar_read(ManyEcoEvo_yi) %>% mutate( data = @@ -146,6 +147,13 @@ back_transformed_sd_sims <- relocate(contains("sd_log"), .after = starts_with("sd.")) %>% select(-contains("ci"), -contains("lower"), -contains("upper")) +check_transformations_se + +back_transformed_se_sims + +check_transformations_sd + +back_transformed_sd_sims # ---- blue tit --- @@ -185,4 +193,6 @@ check_transformations_se <- relocate(contains("mean_log"), .after = starts_with("fit")) %>% relocate(contains("se_log"), .after = starts_with("se.")) %>% relocate(contains("sd_log"), .after = starts_with("sd.")) %>% - select(-contains("ci"), -contains("lower"), -contains("upper")) \ No newline at end of file + select(-contains("ci"), -contains("lower"), -contains("upper")) + +check_transformations_se \ No newline at end of file