Nothing
x <- list(1:2, 3:5, 2:4)
n <- set2int(x)
x2 <- int2set(n)
n2 <- set2int(x2)
test_that("integer set representation works", {
expect_equal(x, x2)
expect_equal(n, n2)
})
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.