Nothing
# By making experiment beforehand (recommended)
df <- data.frame(g = "A", p1 = "2A>(US)", r1 = TRUE)
models <- c("HD2022", "RW1972", "PKH1982")
exps <- lapply(models, function(m) {
make_experiment(df,
parameters = get_parameters(df, model = m),
model = m
)
})
test_that("compare_models works with experiment list", {
expect_true(length(compare_models(exps)) == 3)
})
test_that("compare_models works with partial arguments", {
expect_true(length(compare_models(df, models = models)) == 3)
})
test_that("compare models throws error if the design is already parsed", {
expect_error(compare_models(parse_design(df), models = models))
})
test_that("compare models throws error if user passes design but no models", {
expect_error(compare_models(df))
})
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.