tests/testthat/testValuatePortfolio.R

context("valuate of one portfolio of guaratee contracts")
library(vamc)

fundScen <- genFundScen(fundMap, indexScen)[1:5, , ]
test_that("test for the correctness of valuation", {
  skip_on_cran()
  tmp <- tempfile()
  expect_equal_to_reference(valuatePortfolio(VAPort, mortTable, fundScen,
                                             1 / 12, cForwardCurve), tmp)
})

Try the vamc package in your browser

Any scripts or data that you put into this service are public.

vamc documentation built on Feb. 28, 2020, 5:08 p.m.