diff --git a/01b_MesobromionCluster.R b/01b_MesobromionCluster.R index ba3546474166410734a7f911020c717a638ad4a8..77a6cf8faedf661ad6aba37ae3e95232217593e0 100644 --- a/01b_MesobromionCluster.R +++ b/01b_MesobromionCluster.R @@ -128,7 +128,7 @@ Mesobromion <- function(species.path, traits.path, output, myfunction="get.corXY nall <- length(allcomb.t) } else { best.split <- as.numeric(unlist(strsplit(best, "_"))) - max.inter.t <- nround-1 + max.inter.t <- nround-length(best.split) #n.traits <- ncol(traits) list.traits <- as.numeric(traits.sign.alone) list.traits <- list.traits[-which(list.traits %in% best.split)] ## list of remaining traits without best