Overal en altijd?

Als ze naar haar uitgavenpatroon kijkt, vraagt Cynthia zich af hoeveel geld ze zou overhouden als ze het op een bankrekening zet in plaats van het uit te geven aan downloads en concertkaartjes. Daarvoor bereken je de waarde van de kasstromen op een toekomstig tijdstip met een geschikte disconteringsfunctie.

Cynthia's uitgavenpatroon staat hierboven. De vector cash_flows, die je in de eerste oefening hebt gedefinieerd, is alvast in je werkruimte geladen. De rentevoet is nog steeds 2%.

Deze oefening maakt deel uit van de cursus

Waardering van levensverzekeringsproducten in R

Bekijk cursus

Oefeninstructies

Definieer de functie discount() die de waarde op tijdstip \(s\) berekent van 1 EUR die op tijdstip \(t\) wordt betaald.
Gebruik discount() om de contante waarde van de cash_flows op tijdstippen 0 tot en met 5 te berekenen. Dit moet overeenkomen met je eerdere resultaat, namelijk 444,93 EUR.
Print de waarde van de kasstroomvector wanneer Cynthia over 6 jaar 18 wordt.
Bereken de opgebouwde waarde van de kasstroomvector op tijdstip 6 op een andere manier. Zet dit keer de present_value op tijdstip 0 om naar de waarde op tijdstip 6.

Interactieve oefening met praktijkervaring

Probeer deze oefening door deze voorbeeldcode aan te vullen.

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

Code bewerken en uitvoeren