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))
})

Try the UBL package in your browser

Any scripts or data that you put into this service are public.

UBL documentation built on Oct. 8, 2023, 1:07 a.m.