Nothing
test_that("genInit function works", {
df <-
genInit(bounds = list(
a1 = c(-4, -3),
a2 = c(-1, 1),
a3 = c(3, 4)
), k = 5)
expect_equal(nrow(df), 5)
expect_length(df, 3)
expect_true(range(df)[1] >= -4)
})
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.