From 777263d66da4bbc76e54bd8f1fcdfee371af104e Mon Sep 17 00:00:00 2001
From: Francesco Sabatini <francesco.sabatini@idiv.de>
Date: Wed, 8 Apr 2020 18:51:18 +0200
Subject: [PATCH] minor alignments
---
01_Mesobromion.R | 10 ++++++++--
01b_MesobromionCluster.R | 2 +-
2 files changed, 9 insertions(+), 3 deletions(-)
diff --git a/01_Mesobromion.R b/01_Mesobromion.R
index 796a0b2..d6fd595 100644
--- a/01_Mesobromion.R
+++ b/01_Mesobromion.R
@@ -191,7 +191,7 @@ sign <- data.frame(Trait.comb=names(sign), sign=sign)
corXY %>%
arrange(Test, desc(Coef))
-aa <- data.frame(Trait.comb=paste0("t", 1:81),
+aa <- data.frame(Trait.comb=paste0("t", 1:ncol(traits)),
trait.name=colnames(traits))#[-which(colnames(traits) %in% c("species", "species0"))])
corXY.ci <- data.frame(Trait.comb=rownames(corXY.bootstr),
@@ -264,7 +264,7 @@ traits.sign.alone <- mydata.SES %>%
filter(ntraits==1) %>%
filter(sign.SES==T) %>%
pull(trait1)
-
+
mydata <- mydata.SES %>%
filter(ntraits==1)%>%
mutate(seq=1:nrow(.))
@@ -291,6 +291,12 @@ ggplot(data=mydata) +
+
+traits.sign <- traits %>%
+ dplyr::select(traits.sign.alone)
+write_csv(traits.sign, "_data/Mesobromion/traits.out.10perc.sign.txt")
+
+
break()
diff --git a/01b_MesobromionCluster.R b/01b_MesobromionCluster.R
index 60d7534..720a14e 100644
--- a/01b_MesobromionCluster.R
+++ b/01b_MesobromionCluster.R
@@ -18,7 +18,7 @@ require(doParallel)
source("99_HIDDEN_functions.R")
-Mesobromion <- function(species.path, traits.path, output, myfunction="get.corXY", max.inter.t, chunkn, chunk.i, nperm=199){
+Mesobromion <- function(species.path, traits.path, output, myfunction="get.corXY.bootstr", max.inter.t, chunkn, chunk.i, nperm=199){
myfunction <- get(myfunction)
## calculate corr between species composition matrix and traits
--
GitLab