testthat::context("Test exact matches to cached results")
testthat::test_that("Confirm we are still getting precisely the same optimal policies as previously cached",
{
escapement <- multiple_uncertainty(x_grid = seq(0, 150, length = 151),
h_grid = seq(0, 150, length = 152),
y_grid = seq(0, 150, length = 153),
q_grid = seq(0, 150, length = 154),
sigma_g = 0.5,
sigma_m = 0.1,
sigma_i = 0.1)
testthat::expect_identical(escapement, escapement_cache)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.