tests/testthat/testSmoteClassif.R

context("SmoteClassif")

test_that("smoteClassif return a data frame", {
  data(iris)
  ir <- iris[c(1:70, 100:135), ]
  irnew <- SmoteClassif(Species~., ir)
  expect_true(is.data.frame(irnew))
})
paobranco/UBL documentation built on May 6, 2021, 6:57 p.m.