# lifecontingencies-package: Package to perform actuarial mathematics on life... In spedygiorgio/lifecontingencies: Financial and Actuarial Mathematics for Life Contingencies

## Description

The lifecontingencies package performs standard financial, demographic and actuarial mathematics calculation. The main purpose of the package is to provide a comprehensive set of tools to perform risk assessment of life contingent insurances.

## Details

 Package: lifecontingencies Type: Package Version: 1.3.4 Date: 2018-04-01 License: GPL-2.0 LazyLoad: yes

## Warning

This package and functions herein are provided as is, without any guarantee regarding the accuracy of calculations. The author disclaims any liability arising by any losses due to direct or indirect use of this package.

## Note

Work in progress.

## Author(s)

Giorgio Alfredo Spedicato with contributions from Reinhold Kainhofer and Kevin J. Owens Maintainer: <spedicato_giorgio@yahoo.it>

## References

The lifecontingencies Package: Performing Financial and Actuarial Mathematics Calculations in R, Giorgio Alfredo Spedicato, Journal of Statistical Software, 2013,55 , 10, 1-36

`accumulatedValue`, `annuity`
 ``` 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40``` ```##financial mathematics example #calculates monthly installment of a loan of 100,000, #interest rate 0.05 i=0.05 monthlyInt=(1+i)^(1/12)-1 Capital=100000 #Montly installment R=1/12*Capital/annuity(i=i, n=10,k=12, type = "immediate") R balance=numeric(10*12+1) capitals=numeric(10*12+1) interests=numeric(10*12+1) balance[1]=Capital interests[1]=0 capitals[1]=0 for(i in (2:121)) { balance[i]=balance[i-1]*(1+monthlyInt)-R interests[i]=balance[i-1]*monthlyInt capitals[i]=R-interests[i] } loanSummary=data.frame(rate=c(0, rep(R,10*12)), balance, interests, capitals) head(loanSummary) tail(loanSummary) ##actuarial mathematics example #APV of an annuity data(soaLt) soa08Act=with(soaLt, new("actuarialtable",interest=0.06, x=x,lx=Ix,name="SOA2008")) #evaluate and life-long annuity for an aged 65 axn(soa08Act, x=65) ```