系数级别[2]在R中重复

我编写此函数是为了重新采样数据以进行类不平衡学习，但当我运行此函数时，它会给我提供重复的因子级别[2]，或者调整公式（公式，数据）中存在错误：找不到对象“originalData”

SampleData<-function(originalData, ch)
{
  if(ch==1)
  {
    training<-ovun.sample(defects~.,data=originalData, method = "over", N=nrow(originalData[originalData$defects=="FALSE",])*2)$data
  }

  else if(ch == 2)
  {
    data <- ovun.sample(defects~.,seed = 54321,data=originalData, method = "under", N=nrow(originalData[originalData$defects=="TRUE",])*2)$data
  }

  else if(ch == 3)
  {
    data <- ovun.sample(defects~.,seed = 54321,data=originalData, method = "both", p = 0.5, N=nrow(originalData))$data
  }

  else if(ch == 4)
  {

    data<-SMOTE(defects~.,data=originalData,seed = 54321, perc.over = 200, perc.under = 100, k = 5)
  }
  else if(ch == 5)
  {

    data<- ROSE(defects ~ ., data  = originalData,seed = 54321,N=nrow(originalData))$data
  }

  else
  {
    data <- originalData
  }
  return(data)
}

---

sampledata如果包含一个。应该包括的内容：什么是
originalData
和
ch
？什么是函数
ovun.sample
、
SMOTE
和
ROSE
？这些是属于ROSE和DMwR包的重采样函数。