library(MortalityTables)
mortalityTables.load("Austria_Annuities_AVOe2005R")
# A trivial deferred annuity tariff with no costs:
tariff = InsuranceTarif$new(name="Test Annuity", type="annuity",
mortalityTable = AVOe2005R.unisex, i=0.01)
contract = InsuranceContract$new(
tariff,
age = 35, YOB = 1981,
policyPeriod = 30, premiumPeriod = 15, deferralPeriod = 15,
sumInsured = 1000,
contractClosing = as.Date("2016-10-01")
);
showVmGlgExamples(contract)
# Optionally output to a file rather than the console:
# \donttest{
showVmGlgExamples(contract, file = tempfile("annuity-example", fileext = ".txt"))
# }
Run the code above in your browser using DataLab