Pravidlo součinu!

Cynthii nadchlo pravidlo součinu pro pravděpodobnosti přežití. Chce si pomocí něj ověřit výsledky, které vypočítala dříve. Začneme ale postupně. Jaká je pravděpodobnost, že (18letá) Cynthia bude naživu, až by měla dokončit svůj \(3 + 2\) letý bakalářský a magisterský program?

Dále vypočítáš \(_kp_x\) pro \(x\) odpovídající 18leté ženě a \(k=1,2,3, \ldots\) Jaká je pravděpodobnost, že 18letá dívka dosáhne magického věku 100 let?

Sloupec qx extrahovaný z life_table je již načten. Jednoroční pravděpodobnosti přežití px jsou definovány jako jedna minus míra úmrtnosti qx.

Toto cvičení je součástí kurzu

Oceňování produktů životního pojištění v R

Zobrazit kurz

Pokyny k cvičení

Pomocí prod() (docs) vypočítej pravděpodobnost, že se 18letá dívka dožije 23 let.
Definuj kpx jako vícerokové pravděpodobnosti přežití 18leté dívky až do věku 100 let pomocí cumprod().
Vypiš pravděpodobnost, že 18letá dívka dosáhne magického věku 100 let.
Vícerokové pravděpodobnosti přežití vizualizuj vykreslením kpx oproti vektoru od 1 do length() proměnné kpx.

Interaktivní cvičení na vyzkoušení si v praxi

Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.

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

Upravit a spustit kód