Wszędzie i zawsze?
Analizując swoje wydatki, Cynthia zastanawia się, ile pieniędzy by zgromadziła, gdyby wpłaciła je na konto bankowe zamiast wydawać na pobieranie muzyki i bilety na koncerty. Obliczysz wartość przepływów pieniężnych w przyszłym punkcie czasowym, korzystając z odpowiedniej funkcji dyskontowej.
Wzorzec wydatków Cynthii przedstawiono powyżej. Wektor cash_flows, który zdefiniowano w pierwszym ćwiczeniu, został wczytany do twojego środowiska pracy. Stopa procentowa nadal wynosi 2%.
To ćwiczenie jest częścią kursu
Wycena produktów ubezpieczeń na życie w R
Instrukcje do ćwiczenia
- Zdefiniuj funkcję
discount(), która oblicza wartość w chwili \(s\) kwoty 1 EUR wypłaconej w chwili \(t\). - Użyj funkcji
discount(), aby obliczyć wartość bieżącą wektoracash_flowsdla chwil od 0 do 5. Wynik powinien być zgodny z wcześniej uzyskaną wartością, czyli 444,93 EUR. - Wyświetl wartość wektora przepływów pieniężnych w chwili, gdy Cynthia skończy 18 lat, czyli za 6 lat.
- Oblicz zakumulowaną wartość wektora przepływów pieniężnych w chwili 6 w inny sposób – tym razem przekształć
present_valuez chwili 0 do wartości w chwili 6.
Interaktywne ćwiczenie praktyczne
Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.
# 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(___, ___)