Aturan perkalian!

Cynthia tertarik dengan aturan perkalian yang berlaku untuk probabilitas bertahan hidup. Ia ingin memverifikasi probabilitas yang sebelumnya ia hitung menggunakan aturan ini. Namun mari mulai perlahan. Berapa probabilitas bahwa ia (berusia 18 tahun) masih hidup ketika ia diperkirakan lulus dari program sarjana dan magister \(3 + 2\) tahun?

Selanjutnya, Anda akan menghitung \(_kp_x\) untuk \(x\) perempuan berusia 18 tahun dan \(k=1,2,3, \ldots\) Berapa probabilitas bagi seseorang berusia 18 tahun untuk mencapai angka keramat 100?

Kolom qx yang diambil dari life_table telah dimuat sebelumnya. Probabilitas bertahan hidup satu tahun px telah didefinisikan sebagai satu dikurangi laju mortalitas qx.

Latihan ini merupakan bagian dari kursus

Penilaian Produk Asuransi Jiwa di R

Lihat Kursus

Instruksi latihan

Hitung probabilitas seseorang berusia 18 tahun untuk menjadi 23 menggunakan prod() (docs).
Definisikan kpx sebagai probabilitas bertahan hidup multiyear bagi seseorang berusia 18 tahun hingga usia 100 menggunakan cumprod().
Cetak probabilitas seseorang berusia 18 tahun untuk mencapai angka keramat 100.
Visualisasikan probabilitas bertahan hidup multiyear dengan memplot kpx terhadap vektor dari 1 hingga length() dari kpx.

Latihan interaktif langsung praktik

Cobalah latihan ini dengan melengkapi kode contoh ini.

# Calculate the probability that (18) survives 5 more years
___(px[(___):(___)])

# Compute the survival probabilities of (18) until the age of 100
kpx <- ___(px[(___):(___)])

# Extract the probability that (18) survives until the age of 100
___

# Plot the probabilties for (18) to reach the age of 19, 20, ..., 100
plot(___, ___, 
    pch = 20, 
    xlab = "k", 
    ylab = expression(paste(""[k], "p"[18])), 
    main = "Survival probabilities for (18)")

Edit dan Jalankan Kode