From 3c28e080710c3532ecf9668b76752425d1349835 Mon Sep 17 00:00:00 2001
From: trvinh <trvinh@gmail.com>
Date: Thu, 19 Mar 2020 01:02:05 +0100
Subject: [PATCH] fixed rank_indexing

---
 R/class2tree.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/class2tree.R b/R/class2tree.R
index 5f0ff311..b19ce6a4 100644
--- a/R/class2tree.R
+++ b/R/class2tree.R
@@ -293,7 +293,7 @@ rank_indexing <- function (rankList) {
               for (
                 r in ls(rank2index)[!(ls(rank2index) %in% ls(tmpEnv))]
               ) {
-                if (rank2index[[r]] >= tmpEnv[[subList[i-1]]]) {
+                if (rank2index[[r]] >= currentIndex) {
                   tmpEnv[[r]] <- 
                     rank2index[[r]] + (tmpEnv[[iRank]] - rank2index[[iRank]])
                   flag <- 1