test_that("get_fixed_parameters returns fixed params listed in model def", {
def <- list(
parameters = list(
CL = 5.312,
V = 42.52,
V2 = 41.68,
Q = 3.222
),
fixed = "Q"
)
expect_equal(get_fixed_parameters(def), "Q")
})
test_that("get_fixed_parameters returns fixed params listed in model def even if null/empty", {
j1 <- '{"fixed": null}'
j2 <- '{"fixed": []}'
res1 <- get_fixed_parameters(jsonlite::fromJSON(j1))
res2 <- get_fixed_parameters(jsonlite::fromJSON(j2))
expect_null(res1)
expect_equal(res2, list())
})
test_that("get_fixed_parameters errors if fixed params are not present", {
def <- list(
parameters = list(
CL = 5.312,
V = 42.52,
V2 = 41.68,
Q = 3.222
)
)
expect_error(get_fixed_parameters(def))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.