iterator increase on ordered skip

ErikKusch · Mar 13, 2023 · 07a99ba · 07a99ba
1 parent d03ea50
commit 07a99ba
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/Extintions.R b/R/Extintions.R
@@ -263,6 +263,7 @@ ExtinctionOrder <- function(Network, Order, NetworkType = "Trophic", clust.metho
     # for (i in 1:length(Order)){
     if(is.na(Conected1[i])){
       if(verbose){setTxtProgressBar(ProgBar, i)}
+      i <- i+1
       next()
     }
     # print(i)