Geçici ve ömür boyu
Son olarak, ödemelerin zamanla sınırlandığı bir geçici peşin yaşam anüitesi için Cynthia'ya bir fonksiyon yazmada yardımcı olabilir misin? İlk ödeme zaman \(0\)'da, son ödeme ise \(n-1\)'de gerçekleşir.
Hem life_table hem de R fonksiyonu life_annuity_due çalışma alanında hâlâ mevcut.
Bu egzersiz, kursun bir parçasıdır
R ile Hayat Sigortası Ürünlerinin Değerlemesi
Egzersiz talimatları
- EPV'nin geçici bir peşin yaşam anüitesi için hesaplanacağı şekilde,
life_annuity_due()kodundan yola çıkaraktemporary_life_annuity_due()fonksiyonunu tanımla. Fonksiyon artık ödeme sayısını belirten ek birnargümanına sahip. Bu nedenle hemkpxhem dediscount_factorstoplam uzunluğunolacak şekilde oluşturulmalı. temporary_life_annuity_due()fonksiyonunu kullanarak, kadınlar için 1999 dönem yaşam tablosunu kullanıp (20) yaşı için %2 oranla 10 yıllık bir peşin yaşam anüitesinin EPV'sini hesapla.
Uygulamalı etkileşimli egzersiz
Bu egzersizi bu örnek kodu tamamlayarak deneyin.
# EPV of a whole life annuity due for (20) at interest rate 2% using life_table
life_annuity_due(20, 0.02, life_table)
# Function to compute the EPV of a temporary life annuity due for a given age, period of n years, interest rate i and life table
temporary_life_annuity_due <- function(age, n, i, life_table) {
px <- 1 - life_table$qx
kpx <- c(1, cumprod(px[(___):(___)]))
discount_factors <- (1 + i) ^ - (0:(___))
___
}
# EPV of a temporary life annuity due for (20) over 10 years at interest rate 2% using life_table
temporary_life_annuity_due(___, ___, ___, ___)