Nothing
test_that("pairwise scores", {
p <- pairwise_scores(iris[c(1,2,53,55),])
expect_s3_class(p, "pairwise")
expect_identical(dim(p), c(10L,6L))
p <- pairwise_scores(iris, by="Species")
expect_s3_class(p, "pairwise")
expect_identical(dim(p), c(24L,6L))
})
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.