фактор-уровень [2] дублируется в R

Question

Я написал эту функцию для повторной выборки моих данных для изучения дисбаланса класса, но при запуске он дает мне коэффициент фактора [2] дублируется, ИЛИ Ошибка в adj.formula (формула, данные): объект '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)
}