SCUT用于平衡多类数据集

Question

我将实现SCUT算法来平衡我的多类数据集，我得到了这个错误

  

1申请中出错（T，2，max）：dim（X）必须有正长度

library(EMCluster, quietly = TRUE)
    library("lattice", lib.loc="C:/Program Files/R/R-3.4.2/library")
    library(grid)
    library(DMwR)
    CoronaryEvent <-data$CoronaryEvent
    class <- unique(CoronaryEvent)
    for(i in 2:length(unique(CoronaryEvent))-1){
      for(j in (i+1):length(unique(CoronaryEvent))){
        print(paste(i,j,sep=","))
        print(paste(class[i],class[j],sep=","))
        coronaryEvent equal to class i and class j
        class_i <- factor(as.factor(class[i]))
        class_j <- factor(as.factor(class[j]))

        a<-data[match(as.character(data$CoronaryEvent), class_i, nomatch = FALSE), ]
        a$CoronaryEvent <-as.factor(class_i)
        b<-data[match(as.character(data$CoronaryEvent), class_j, nomatch = FALSE), ]
        b$CoronaryEvent <-as.factor(class_j)
       D <- rbind(a,b)
       str(D)
      print(nrow(D))
      #oversampling binary dataset (minority class till reach 36 observations)
        m<-36
        if((nrow(a)<m)|(nrow(b)<m)){
          n<-nrow(a)
          perc = as.integer((m/n)*100)
          print(perc)
          newData <- SMOTE(CoronaryEvent ~ .,  D, perc.over = perc,perc.under = 50)
          print("oversampling")
          str(newData)
        }

        #undersampling majority class till 32 observations using EM algorithm
        else if((nrow(a)>m)|(nrow(b)>m)){
        print("undersampling")

        }


      }
    }

下图包含SCUT算法

有关详细信息，请参阅此链接：
https://www.researchgate.net/publication/301453161_SCUT_Multi-Class_Imbalanced_Data_Classification_using_SMOTE_and_Cluster-based_Undersampling

Answer 1

这个问题很老了，但我刚刚在 CRAN 上发布了一个名为 scutr 的包，它实现了 SCUT。它使用他们在论文中指出的过采样/欠采样方法。如果您想尝试一下，还提供了一些其他重采样方法。 API 对自定义函数或来自其他包的函数很友好。希望这对发现此问题的其他人有用。

Link to CRAN page