From 133db535e919df8dd7856b73d79a8983fa5d0cf9 Mon Sep 17 00:00:00 2001
From: Francesco Sabatini <francesco.sabatini@idiv.de>
Date: Mon, 17 Aug 2020 17:48:37 +0200
Subject: [PATCH] Minor bug fix
---
01b_MesobromionCluster.R | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/01b_MesobromionCluster.R b/01b_MesobromionCluster.R
index 75528f3..ae5032b 100644
--- a/01b_MesobromionCluster.R
+++ b/01b_MesobromionCluster.R
@@ -83,8 +83,11 @@ Mesobromion <- function(species.path, traits.path, output, myfunction="get.corXY
if(exclude.na==T){
print("Excluding NAs and recalculating relative covers")
- traits <- traits %>%
- filter(complete.cases(.))
+ traits <- traits %>%
+ rownames_to_column("species0") %>%
+ filter(complete.cases(.)) %>%
+ column_to_rownames("species0")
+
species <- species %>%
dplyr::select(rownames(traits)) %>%
mutate(sumVar = rowSums(.)) %>%
--
GitLab