diff --git a/99_HIDDEN_functions.R b/99_HIDDEN_functions.R
index 0f7dfce1418bbe291eb2c7cd453c7b3f0de5b664..b76a9d099e8d53a1f4d0940b4010c4f0c7f8708c 100644
--- a/99_HIDDEN_functions.R
+++ b/99_HIDDEN_functions.R
@@ -53,7 +53,7 @@ get.corXY.bootstrap <- function(comm, traits, trait.sel="all", bootstrap=199){
   ## caution
   ## ALL columns with only 0-1 values are AUTOMATICALLY considered as asym.bin sensu FD:gowdis
   ##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)}
   ii <- trait.sel