Nothing
context("features")
test_that("features", {
seeds = 1:3
sizes = c(5, 10, 100)
for (size in sizes) {
for (seed in seeds) {
set.seed(seed)
x = random_instance(d = 2, size = size)
feats = features(x)
expect_is(feats, "list", info = paste("Features not a list for size =",
size, "and seed =", seed))
}
}
})
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.