tests/testthat/test-dfscaling.R

In UBC-MDS/Rmleda: R package that helps with preliminary eda for supervised machine learning tasks

df_1 <- tidyr::tibble(
  x = c(0, 0, 2, 2),
  y = c(2, 2, 4, 4),
  z = 5,
  target = c(1,1,0,1)
)

df_result <- tidyr::tibble(
  x = c(-0.866, -0.866, 0.866, 0.866),
  y = c(-0.866, -0.866, 0.866, 0.866),
  target = as.factor(c(1,1,0,1))
)

df_empty <- tidyr::tibble()


test_that("dfscaling checks that input data must be of type dataframe", {
  expect_error(dfscaling("I'm not a dataframe", target))
})

test_that("dfscaling checks for empty dataframes", {
  expect_error(dfscaling(df_empty, target))
})

test_that("dfscaling works", {
  expect_true(all.equal(dfscaling(df_1, target), df_result, tolerance = 0.01))
})