diff --git a/01b_MesobromionCluster.R b/01b_MesobromionCluster.R
index 03a024d282a33cbf8d661583953a1326b3007592..79bf5979c87e2dca2166ff1c8016f55378fc4500 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!