From 3f917515bd48ceae48f9c9a7532f92d641428464 Mon Sep 17 00:00:00 2001
From: Francesco Sabatini <francesco.sabatini@idiv.de>
Date: Fri, 28 Aug 2020 13:48:53 +0200
Subject: [PATCH] minor
---
99_HIDDEN_functions.R | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/99_HIDDEN_functions.R b/99_HIDDEN_functions.R
index 0c4da10..d66bbd1 100644
--- a/99_HIDDEN_functions.R
+++ b/99_HIDDEN_functions.R
@@ -37,7 +37,7 @@ get.corXY.bootstrap <- function(comm, traits, trait.sel="all", bootstrap=199){
## CAUTION - function below doesn't work as expected
# binary.traits <- which(apply(traits[,ii,drop=F], MARGIN=2, function(x)( all(na.omit(x) %in% 0:1) ))==T)
- syn.out.tmp <- SYNCSA::matrix.x(comm=comm, traits=traits[,ii,drop=F], scale=T)$matrix.X #, asym.bin=binary.traits
+ syn.out.tmp <- matrix.x(comm=comm, traits=traits[,ii,drop=F], scale=T)$matrix.X #, asym.bin=binary.traits
W.beals <- as.data.frame(beals(comm, include=T, type=2))
# permute traits
### Create vector of species to resample from, which exclude species with NAs
--
GitLab