tests/testthat/test_input.r

In mllg/fmrmr: Fast mRMR

context("input")
test_that("zero-length input", {
  x = getData()
  nn = setNames(numeric(0), character(0))
  expect_equal(mrmr_survival(x$time, x$status, x$x, nselect = 0), nn)
  expect_equal(mrmr_survival(x$time, x$status, x$x[, integer(0)]), nn)
})

test_that("wrong input", {
  x = getData()
  expect_error(mrmr_survival(x$time[1:2], x$status, x$x), "length")
  expect_error(mrmr_survival(x$time, x$status, x$x[1:10, ]), "rows")
  expect_error(mrmr_survival(x$time, rep(FALSE, length(x$status)), x$x), "events")
  expect_error(mrmr_survival(x$time, x$status, x$x, nselect = -1), ">= 0")
  expect_error(mrmr_survival(x$time, x$status, x$x, nselect = 1000), "<=")
})