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"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.