Kdykoli a odkudkoli?

Cynthia se zamýšlí nad svými výdaji a přemýšlí, kolik peněz by naspořila, kdyby je místo stahování hudby a nákupu vstupenek na koncerty ukládala na bankovní účet. Proto vypočítáš hodnotu peněžních toků v budoucím časovém okamžiku pomocí vhodné diskontní funkce.

Cynthiin výdajový vzor je zobrazen výše. Vektor cash_flows, který jsi definoval/a v prvním cvičení, je předem načtený do tvého pracovního prostředí. Úroková sazba je stále 2 %.

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

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

Zobrazit kurz

Pokyny k cvičení

Definuj funkci discount(), která vypočítá hodnotu v čase \(s\) za 1 EUR zaplacené v čase \(t\).
Použij discount() k výpočtu současné hodnoty cash_flows v časech 0 až 5. Výsledek by měl odpovídat dříve získané hodnotě, tedy 444,93 EUR.
Vypiš hodnotu vektoru peněžních toků v okamžiku, kdy Cynthii za 6 let bude 18 let.
Vypočítej akumulovanou hodnotu vektoru peněžních toků v čase 6 jiným způsobem. Tentokrát převeď present_value v čase 0 na hodnotu v čase 6.

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

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

# Define the discount function v
discount <- function(s, t, i = 0.02) {
  (1 + ___) ^ - (___ - ___)
}

# Calculate the present value
present_value <- sum(cash_flows * discount(___, ___))
present_value

# Calculate the value at time 6
sum(cash_flows * discount(___, ___))

# Calculate the value at time 6, starting from present_value
present_value * discount(___, ___)

Upravit a spustit kód