```
#Create the Italian 92 male actuarial table at 3\% from the demoIta dataset.
data(demoIta)
SIM92=new("actuarialtable",x=demoIta$X[0:110],
lx=demoIta$SIM92[0:110],interest=0.03)
#How much a 25 old policyholder should pay to receive \$ 100,000 when he
#turns 65, assuming he is in life?
Exn(SIM92,x=25,n=65-25)
#How much a 25 old policyholder should pay to receive \$ 100,000 when he
#turns 65 or when he dies?
AExn(SIM92,x=25,n=65-25)
Exn(SIM92,x=25,n=65-25)+Axn(SIM92,x=25,n=65-25)
#On the SOA actuarial table, calculate the APV whole life insurance for a
#policyholder aged 30 with benefit payable at the end of month of death at 4\% interest rate.
Axn(soa08Act, x=30,i=0.04,k=12)
#For the APV calculated at the above point, determine the level benefit
#premium assuming it will be paid until the policyholder's death.
Axn(soa08Act, x=30,i=0.04,k=12)/axn(soa08Act, x=30,k=0.04)
#Calculate the quarterly premium that a policyholder aged (50) shall pay
#until the year of death to insure a face value of 100,000. The face value will be paid at the end of the
#quarter of death.
P=100000*Axn(soa08Act,50,k=4)/axn(soa08Act,x=50,k=4)
#Compute the 15-year benefit premium for a 35-year term insurance with benefit
#payable at the end of month of deat.
#Assume the interest rate to be 3 %% and the premium to be paid at the beginning of each month.
APV=100000*Axn(soa08Act, x=30,n=35,i=0.03, k=12) #Get the APV
Pa=APV/axn(soa08Act, x=30,n=15,i=0.03,k=12) #annualized benefit premium (payable monthly)
Pm=Pa/12 #montly benefit premium
Pm
```

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.