Nothing
test_that("adjust_dist works", {
D <- matrix(c(0,1,1,Inf,Inf,
1,0,1,Inf,Inf,
1,1,0,Inf,Inf,
Inf,Inf,Inf,0,1,
Inf,Inf,Inf,1,0),5,5,byrow=TRUE)
Dlist <- list(D,D)
expect_no_error(adjust_dist(Dlist))
})
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.