Från engångspremie till årlig premie

Cathleen vill finansiera sin uppskjutna livränta med årliga premier som betalas under 25 år från och med 40 års ålder. Eftersom hon planerar att minska sin undervisningstid från och med 55 års ålder ska premien halveras efter 15 år, vilket visas i grafen nedan. Vad blir den initiala premien som Cathleen ska betala?

Variablerna kpx, discount_factors och single_premium som beräknades i föregående övning är förhandsinladdade.

Den här övningen är en del av kursen

Värdering av livförsäkringsprodukter i R

Visa kurs

Övningsinstruktioner

Definiera premiemönstret som rho. Den här vektorn ska ha samma längd som kpx.
Beräkna och skriv ut initial_premium genom att dividera single_premium med summan av den elementvisa multiplikationen av rho, discount_factors och kpx.
Granska de årliga premierna genom att skriva ut produkten av initial_premium och rho.
Beräkna det totala belopp som Cathleen måste betala för att finansiera livräntan, utan att ta hänsyn till pengars tidsvärde och dödlighet.

Interaktiv övning med praktiskt arbete

Testa den här övningen genom att slutföra den här exempelkoden.

# Premium pattern rho
rho <- c(rep(1, ___), rep(0.5, ___), rep(0, ___))

# The initial premium
initial_premium <- ___ / ___(___ * ___ * ___)
initial_premium

# The annual premiums 
___ * ___

# Sum of the annual premiums (no actuarial discounting)
___(___ * ___)

Redigera och kör kod