Learn R Programming

lifecontingencies (version 1.3.1)

getLifecontingencyPv: Functions to obtain the present value of a life contingency given the time to death

Description

It returns the present value of a life contingency, specified by its APV symbol, known the time to death ob the sibjects

Usage

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")

Arguments

deathsTimeX

Time to death

lifecontingency

lifecontingency symbol

object

life table(s)

x

age(s) of the policyholder(s)

t

term of the contract

i

interest rate

m

deferrement

k

fractional payments

payment

either "advance" or "deferred"

deathsTimeXyz

matrix of death times from birth

tablesList

list of table of the same size of num column of deathTimeXyz.

status

"joint" or "last" survivor.

Value

A vector or matrix of size number of rows of deathTimeXyz / deathTimeXy

Warning

The function is provided as is, without any warranty regarding the accuracy of calculations. The author disclaims any liability for eventual losses arising from direct or indirect use of this software.

Details

This function is a wrapper to the many internal functions that give the PV known the age of death.

References

Actuarial Mathematics (Second Edition), 1997, by Bowers, N.L., Gerber, H.U., Hickman, J.C., Jones, D.A. and Nesbitt, C.J.

See Also

rLifeContingenciesXyz, rLifeContingencies

Examples

Run this code
# NOT RUN {
#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