Nothing
test_that("mindist", {
D1 <- matrix(1:7,7,5)
dfD1 <- as.data.frame(D1)
expect_equal(mindist(D1), 5)
expect_equal(mindist(dfD1), 5)
expect_equal(mindist(D1, "euclidean"), sqrt(5))
expect_error(mindist(D1, "jaccard"))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.