tests/testthat/test-benchClust.R

test_that("multiplication works", {
  ls_tb <- benchClust(DATASET, "ID", "t", "Record", "Group", out_pc$arr_cluster)
  expect(all(dplyr::between(range(unlist(ls_tb), na.rm = T), 0, 1)), failure_message = "Rand index out of range.")
})
maoyinan/BayesPC documentation built on Dec. 21, 2021, 1:48 p.m.