tests/testthat/test-prepare_data.R

In diceR: Diverse Cluster Ensemble in R

data(hgsc)
hgsc <- hgsc[1:40, 1:30]

test_that("tsne option results in 2D representation", {
  skip_if_not_installed("Rtsne")
  dat_tsne <- prepare_data(hgsc, type = "tsne")
  expect_equal(ncol(dat_tsne), 2)
})

test_that("conventional and robust options reduce dimension but center/scale", {
  dat_con <- prepare_data(hgsc, type = "conventional")
  dat_rob <- prepare_data(hgsc, type = "robust")
  expect_lte(ncol(dat_con), ncol(hgsc))
  expect_lte(ncol(dat_rob), ncol(hgsc))
})