From aaaaafd3b25afe5e045ccff7294b609ab9af37d2 Mon Sep 17 00:00:00 2001
From: Francesco Sabatini <francesco.sabatini@idiv.de>
Date: Fri, 21 Aug 2020 08:34:48 +0200
Subject: [PATCH] align output 02

---
 02_Mesobromion_ExamineOutput.R | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/02_Mesobromion_ExamineOutput.R b/02_Mesobromion_ExamineOutput.R
index b99cbff..52e9c37 100644
--- a/02_Mesobromion_ExamineOutput.R
+++ b/02_Mesobromion_ExamineOutput.R
@@ -399,7 +399,7 @@ corXY.ci.pa <- corXY.ci.pa %>%
   dplyr::select(Trait.comb, Test, n, ntraits, everything()) %>% 
   mutate(run="seq")
 
-rm( dataFiles1, corXY.all) 
+rm( dataFiles, corXY.all) 
 
 
 #### 2.2.2 One by one - Graph of r(XY)  ####
@@ -493,11 +493,11 @@ for(nn in 1:maxtraits){
   }
 }
 
-best.4traits <- corXY.ci %>% 
+best.4traits.pa <- corXY.ci.pa %>% 
   filter(as.character(Trait.comb)==best.progr[length(best.progr)]) %>% 
-  dplyr::select(trait1:trait8) %>% 
+  dplyr::select(trait1:trait4) %>% 
   mutate_all(~as.character(.))
-best.4traits <- as.character(best.4traits[1,1:4])
+best.4traits.pa <- as.character(best.4traits.pa[1,1:4])
 
 ### Create dataset with best combinations + all the one-way combinations
 mydata.best <- mydata %>% 
-- 
GitLab