#151 update file for reprex generation, output objects and load pkg w…

…ith devtools

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")) 
+  select(-contains("ci"), -contains("lower"), -contains("upper")) 
+
+check_transformations_se