#assumes SOA example life table to be load
data(soaLt)
soa08Act=with(soaLt, new("actuarialtable",interest=0.06,
x=x,lx=Ix,name="SOA2008"))
#evaluate the value of a 40 years term life insurance for an aged 25
Axn(actuarialtable=soa08Act, x=25, n=40)
#check an actuarial relevant relationship
k=12
i=0.06
j=k*((1+i)^(1/k)-1)
Axn(soa08Act, 30,k=12)
i/j*Axn(soa08Act, 30,k=1)
Run the code above in your browser using DataLab