From 5d792e797a565ef28add54f82fa1d946aaa1c1e4 Mon Sep 17 00:00:00 2001
From: Francesco Sabatini <francesco.sabatini@idiv.de>
Date: Tue, 4 Aug 2020 12:29:18 +0200
Subject: [PATCH] Minor fix to 01b

---
 01b_MesobromionCluster.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/01b_MesobromionCluster.R b/01b_MesobromionCluster.R
index 03a024d..79bf597 100644
--- a/01b_MesobromionCluster.R
+++ b/01b_MesobromionCluster.R
@@ -71,7 +71,8 @@ Mesobromion <- function(species.path, traits.path, output, myfunction="get.corXY
   myfunction <- get(myfunction)
   ## calculate corr between species composition matrix and traits
   species <- read_delim(species.path, delim="\t") %>%
-		as.data.frame()
+		as.data.frame() %>% 
+    column_to_rownames("RELEVE_NR")
   traits <- read_delim(traits.path, delim="\t") %>%
 		as.data.frame() #%>% 
 ### TEMPORARY FOR TESTING!
-- 
GitLab