tests/testthat/test-CH_index_functions.R

test_that("CH function work", {
  expect_equal(CH.sel(iris[, 1:4], 2, 5, "kmed")$Best.nc, 3)
  expect_error(CH.sel(iris[, 1:4], 2, 5, "km"))
})

Try the doMIsaul package in your browser

Any scripts or data that you put into this service are public.

doMIsaul documentation built on Oct. 19, 2021, 1:07 a.m.