Memplot harapan hidup menurut usia

Cynthia memutuskan memvisualisasikan harapan hidup sebagai fungsi dari usia. Dapatkah Anda membimbing Cynthia cara menyusun grafik tersebut?

Agar efisien di R, Anda sebaiknya terlebih dahulu menulis fungsi yang menghitung curtate life expectancy untuk usia dan tabel hayat tertentu. Lalu, Anda dapat menerapkan fungsi ini pada semua usia dalam tabel hayat. Dengan menggunakan sapply() (docs) keluarannya akan disederhanakan menjadi struktur data yang paling dasar.

Objek life_table yang telah dimuat berisi period life table tahun 1999 untuk perempuan di Belgia.

Latihan ini merupakan bagian dari kursus

Penilaian Produk Asuransi Jiwa di R

Lihat Kursus

Instruksi latihan

Lengkapi kode yang mendefinisikan fungsi curtate_future_lifetime().
Buat vektor ages dengan mengekstrak kolom age dari life_table.
Gunakan sapply() dengan argumen ages, curtate_future_lifetime, dan life_table untuk menghitung curtate life expectancy pada semua usia di tabel hayat.
Plot future_lifetimes terhadap ages.

Latihan interaktif langsung praktik

Cobalah latihan ini dengan melengkapi kode contoh ini.

# 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")

Edit dan Jalankan Kode