Nothing
context("calculation of pq and p from mortality table")
library(vamc)
histFundScen <- genFundScen(fundMap, histIdxScen)
test_that("test for correctness of pq and p", {
tmp <- tempfile()
testPolicy <- VAPort[1, ]
expect_equal_to_reference(calcMortFactors(testPolicy, mortTable, dT = 1 / 12),
tmp)
})
test_that("test for error message when current date is prior to birth date", {
testPolicy <- VAPort[1, ]
testPolicy[1, "currentDate"] <- "1960-01-01"
expect_error(calcMortFactors(testPolicy, mortTable, dT = 1 / 12),
"Current date is prior to birth date.")
})
test_that("test for error message when current date is prior to birth date", {
testPolicy <- VAPort[1, ]
testPolicy[1, "matDate"] <- "1960-01-01"
expect_error(calcMortFactors(testPolicy, mortTable, dT = 1 / 12),
"Maturity date is prior to birth date.")
})
test_that("test for error message when current date is prior to birth date", {
testPolicy <- VAPort[1, ]
testPolicy[1, "matDate"] <- "1999-01-01"
expect_error(calcMortFactors(testPolicy, mortTable, dT = 1 / 12),
"Maturity date is prior to current date.")
})
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.