From ebcba6fd992d9f0eec7063f2696bdaf644807cb0 Mon Sep 17 00:00:00 2001
From: Francesco Sabatini <francesco.sabatini@idiv.de>
Date: Tue, 12 May 2020 17:33:08 +0200
Subject: [PATCH] transform char to factor in taits
---
01b_MesobromionCluster.R | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/01b_MesobromionCluster.R b/01b_MesobromionCluster.R
index 401220b..03a024d 100644
--- a/01b_MesobromionCluster.R
+++ b/01b_MesobromionCluster.R
@@ -80,7 +80,8 @@ Mesobromion <- function(species.path, traits.path, output, myfunction="get.corXY
traits <- traits %>%
column_to_rownames("species0") %>%
- rename_all(.funs=~gsub(pattern=".mean$", replacement="", x=.)) #%>%
+ rename_all(.funs=~gsub(pattern=".mean$", replacement="", x=.)) %>%
+ mutate_if(~is.character(.), .funs=~as.factor(.))
#temporary ### Use only a subset of traits
#dplyr::select(LeafArea:Disp.unit.leng)
--
GitLab