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