Var som helst, när som helst?
När Cynthia reflekterar över sina utgiftsmönster undrar hon hur mycket pengar hon skulle samla ihop om hon sätter in sina pengar på ett bankkonto i stället för att spendera dem på nedladdningar och konsertbiljetter. Därför ska du beräkna värdet av kassaflödena vid en framtida tidpunkt med hjälp av en lämplig diskonteringsfunktion.
Cynthias utgiftsmönster visas ovan. Vektorn cash_flows, som du definierade i den första övningen, har laddats in i din arbetsyta i förväg. Räntan är fortfarande 2 %.
Den här övningen är en del av kursen
Värdering av livförsäkringsprodukter i R
Övningsinstruktioner
- Definiera funktionen
discount(), som beräknar värdet vid tidpunkten \(s\) av 1 EUR betald vid tidpunkten \(t\). - Använd
discount()för att beräkna nuvärdet avcash_flowsvid tidpunkterna 0 till 5. Resultatet ska stämma överens med ditt tidigare svar, nämligen 444,93 EUR. - Skriv ut värdet av kassaflödesvektorn när Cynthia fyller 18 år om 6 år från nu.
- Beräkna det ackumulerade värdet av kassaflödesvektorn vid tidpunkten 6 på ett annat sätt. Konvertera den här gången
present_valuevid tidpunkten 0 till värdet vid tidpunkten 6.
Interaktiv övning med praktiskt arbete
Testa den här övningen genom att slutföra den här exempelkoden.
# 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(___, ___)