Skip to content
Snippets Groups Projects
Commit 3f917515 authored by Francesco Sabatini's avatar Francesco Sabatini
Browse files

minor

parent ed9aff20
Branches
No related tags found
No related merge requests found
...@@ -37,7 +37,7 @@ get.corXY.bootstrap <- function(comm, traits, trait.sel="all", bootstrap=199){ ...@@ -37,7 +37,7 @@ get.corXY.bootstrap <- function(comm, traits, trait.sel="all", bootstrap=199){
## CAUTION - function below doesn't work as expected ## 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) # 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)) W.beals <- as.data.frame(beals(comm, include=T, type=2))
# permute traits # permute traits
### Create vector of species to resample from, which exclude species with NAs ### Create vector of species to resample from, which exclude species with NAs
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment