Nothing
library(vdiffr)
test_that("bertin works", {
expect_doppelganger("bertin", bertin(feixas2004))
create_bertinCluster <- function() {
set.seed(0)
suppressMessages(h <- bertinCluster(feixas2004)) # ward -> ward.D message
}
expect_doppelganger("bertinCluster", create_bertinCluster)
})
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.