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