Nothing
test_that("gp_opts returns correct default values", {
gp <- gp_opts()
expect_equal(gp$basis_prop, 0.2)
expect_equal(gp$boundary_scale, 1.5)
expect_equal(gp$alpha, Normal(0, 0.01))
expect_equal(gp$ls, LogNormal(mean = 21, sd = 7, max = 60))
expect_equal(gp$kernel, "matern")
expect_equal(gp$matern_order, 3 / 2)
expect_equal(gp$w0, 1.0)
})
test_that("gp_opts sets matern_order to Inf for squared exponential kernel", {
gp <- gp_opts(kernel = "se")
expect_equal(gp$matern_order, Inf)
})
test_that("gp_opts sets matern_order to 1/2 for Ornstein-Uhlenbeck kernel", {
gp <- gp_opts(kernel = "ou")
expect_equal(gp$matern_order, 1 / 2)
})
test_that("gp_opts warns for uncommon Matern kernel orders", {
expect_warning(gp_opts(matern_order = 2), "Uncommon Matern kernel order")
})
test_that("gp_opts warns about uncommon Matern kernel orders", {
expect_warning(gp_opts(matern_order = 2), "Uncommon Matern kernel order")
})
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.