Adjusted loop on combo selection at nround >1

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