tests/testthat/test-msrdb.R

In lakerwsl/RDB: Robust Differential Abundance Test in Compositional Data

context("Testing MsRDB function")
library(RDB)
library(testthat)

data(vangay)


test_that("'MsRDB' function provides expected results", {
  res = msrdb(seqtabInterest,Z, knn = 20)
  expect_equal(is.null(res), F)
})