Oricând, oriunde?

Reflectând asupra obiceiurilor ei de cheltuieli, Cynthia se întreabă cât de mulți bani ar acumula dacă și-ar depune banii într-un cont bancar, în loc să îi cheltuiască pe descărcări și bilete la concerte. În acest scop, vei calcula valoarea fluxurilor de numerar la un moment viitor în timp, folosind o funcție de actualizare adecvată.

Modelul de cheltuieli al Cynthiei este ilustrat mai sus. Vectorul cash_flows, pe care l-ai definit în primul exercițiu, a fost preîncărcat în spațiul tău de lucru. Rata dobânzii este în continuare 2%.

Acest exercițiu face parte din cursul

Evaluarea produselor de asigurare de viață în R

Vezi cursul

Instrucțiuni pentru exercițiu

Definește funcția discount(), care calculează valoarea la momentul \(s\) a 1 EUR plătit la momentul \(t\).
Folosește discount() pentru a calcula valoarea prezentă a vectorului cash_flows la momentele 0 până la 5. Rezultatul ar trebui să corespundă cu cel obținut anterior, adică 444,93 EUR.
Afișează valoarea vectorului fluxurilor de numerar când Cynthia împlinește 18 ani, peste 6 ani de acum.
Calculează valoarea acumulată a vectorului fluxurilor de numerar la momentul 6 într-un mod diferit. De data aceasta, convertește present_value de la momentul 0 la valoarea de la momentul 6.

Exercițiu interactiv practic

Încearcă acest exercițiu completând acest cod de exemplu.

# 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(___, ___)

Editează și rulează codul