Yaşa göre beklenen yaşam süresini görselleştirme

Cynthia, beklenen yaşam süresini yaşın bir fonksiyonu olarak görselleştirmeye karar veriyor. Böyle bir grafiği nasıl oluşturacağı konusunda Cynthia'ya yol gösterebilir misin?

Bunu R'da verimli yapmak için önce, verilen bir yaş ve yaşam tablosu için perdeli beklenen yaşam süresini (curtate life expectancy) hesaplayan bir fonksiyon yazmalısın. Sonra bu fonksiyonu yaşam tablosundaki tüm yaşlar üzerinde uygulayabilirsin. sapply() (docs) kullanarak çıktı, mümkün olan en temel veri yapısına indirgenir.

Önceden yüklenmiş life_table nesnesi, Belçika'daki kadınlar için 1999 dönem yaşam tablosunu içerir.

Bu egzersiz, kursun bir parçasıdır

R ile Hayat Sigortası Ürünlerinin Değerlemesi

Kursa Göz Atın

Egzersiz talimatları

curtate_future_lifetime() fonksiyonunu tanımlayan kodu tamamla.
life_table'dan age sütununu çıkararak bir ages vektörü oluştur.
Yaşam tablosundaki tüm yaşlarda perdeli beklenen yaşam süresini hesaplamak için sapply()'i ages, curtate_future_lifetime ve life_table argümanlarıyla kullan.
future_lifetimes'ı ages'e karşı grafiğe dök.

Uygulamalı etkileşimli egzersiz

Bu egzersizi bu örnek kodu tamamlayarak deneyin.

# Function to compute the curtate expected future lifetime for a given age and life table
curtate_future_lifetime <- function(age, life_table) {
  px <- ___
  kpx <- ___(px[(___):length(px)])
  ___(___)
}

# Vector of ages
ages <- ___

# Curtate future lifetimes for all ages
future_lifetimes <- ___(___, ___, ___)

# Future lifetime by age
plot(___, ___, type = 'l', lwd = 2, col = "green", xlab = "Age x", ylab = "Future lifetime", main = "Future lifetime by age")

Kodu Düzenle ve Çalıştır