Nothing
context("aging of one portfolio of guaratee contracts")
library(vamc)
histFundScen <- genFundScen(fundMap, histIdxScen)
test_that("test for correctness of aging a portfolio of guarantee contracts", {
skip_on_cran()
tmp <- tempfile()
expect_equal_to_reference(agePortfolio(VAPort, mortTable, histFundScen,
histDates, dT = 1 / 12, "2014-01-01",
cForwardCurve), tmp)
})
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.