minor alignments

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()
 
 

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