getLifecontingencyPv(deathsTimeX, lifecontingency, object, x, t, i = object@interest,
m = 0, k = 1, payment = "advance")
getLifecontingencyPvXyz(deathsTimeXyz, lifecontingency, tablesList, x, t, i, m = 0,
k = 1, status = "joint", payment = "advance")
rLifeContingenciesXyz
, rLifeContingencies
#simulate the PV values for some life contingencies given some death times
data(soa08Act)
testgetLifecontingencyPvXyzAxyz<-getLifecontingencyPvXyz(deathsTimeXyz=
matrix(c(50,50,51,43,44,22,12,56,20,24,53,12),
ncol=2),
lifecontingency = "Axyz",tablesList = list(soa08Act, soa08Act), i = 0.03, t=30,x=c(40,50),
m=0, k=1,status="last")
testgetLifecontingencyPvAxn<-getLifecontingencyPv(deathsTimeX = seq(0, 110, by=1),
lifecontingency = "Axn", object=soa08Act,
x=40,t=20, m=0, k=1)
Run the code above in your browser using DataLab