tests/testthat.R

library(testthat)
library(MOVICS)
library(InterSIM)

test_that("get optimal cluster number from simulated dataset", {
  sim <- InterSIM(n.sample = 50)
  simdat <- lapply(sim[1:3],t)
  expect_equal(getClustNum(data = simdat)$N.clust, 3)
})
xlucpu/refineMIBC documentation built on Jan. 14, 2022, 8:35 p.m.