Nothing
context("Function text attribute")
test_that("function_text slot for prior", {
p0_mod <- prior(family = "normal", mean = 0L, sd = 1L)
p1_mod <- prior(family = "student_t", mean = 0L, sd = 1L, df = 10L)
p2_mod <- prior(family = "cauchy", location = 0L, scale = 1L)
p3_mod <- prior(family = "beta", alpha = 1L, beta = 1L)
p4_mod <- prior(family = "uniform", min = 0L, max = 1L)
p5_mod <- prior(family = "point", point = 0L)
testthat::expect_identical(
p0_mod@function_text,
"prior(\"normal\", mean = 0, sd = 1)",
label = "normal prior"
)
testthat::expect_identical(
p1_mod@function_text,
"prior(\"student_t\", mean = 0, sd = 1, df = 10)",
label = "student_t prior"
)
testthat::expect_identical(
p2_mod@function_text,
"prior(\"cauchy\", location = 0, scale = 1)",
label = "cauchy prior"
)
testthat::expect_identical(
p3_mod@function_text,
"prior(\"beta\", alpha = 1, beta = 1)",
label = "beta prior"
)
testthat::expect_identical(
p4_mod@function_text,
"prior(\"uniform\", min = 0, max = 1)",
label = "uniform prior"
)
testthat::expect_identical(
p5_mod@function_text,
"prior(\"point\", point = 0)",
label = "point prior"
)
})
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.