diff --git a/99_HIDDEN_functions.R b/99_HIDDEN_functions.R index 0c4da102c4541c5de23c3dd7003fd819000057df..d66bbd1c49412a297ee27bfe74a886b62c1c42fb 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