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

Fixed bug in 99

parent 5d8a58e1
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 1 addition and 1 deletion
99_HIDDEN_functions.R
+ 1
− 1
View file @ 66b24bae
...@@ -53,7 +53,7 @@ get.corXY.bootstrap <- function(comm, traits, trait.sel="all", bootstrap=199){ ...@@ -53,7 +53,7 @@ get.corXY.bootstrap <- function(comm, traits, trait.sel="all", bootstrap=199){
## caution ## caution
## ALL columns with only 0-1 values are AUTOMATICALLY considered as asym.bin sensu FD:gowdis ## ALL columns with only 0-1 values are AUTOMATICALLY considered as asym.bin sensu FD:gowdis
##get all columns with binary variables ##get all columns with binary variables
binary.traits <- which( (traits %>% summarize_all(is.bin)) ==T) binary.traits <- which( (traits %>% summarize_all( ~all(na.omit(.) %in% 0:1) )) ==T)
if(identical(trait.sel, "all")) {trait.sel <- 1:ncol(traits)} if(identical(trait.sel, "all")) {trait.sel <- 1:ncol(traits)}
ii <- trait.sel ii <- trait.sel
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment