tests/testthat/test-rankprod.R

context("rankprod")

test_that("small example", {
  mm <- matrix(1:9, nrow=3)
  expect_error(rankprod(mm))
  dimnames(mm) <- list(letters[1:nrow(mm)], LETTERS[1:nrow(mm)])
  set.seed(1)
  rp <- rankprod(mm, nsim=6)
  expect_equal(rownames(rp), c("c", "b", "a"))
})
jdreyf/jdcbioinfo documentation built on May 6, 2024, 8:19 a.m.