Ovunque, in qualsiasi momento?
Riflettendo sulle sue abitudini di spesa, Cynthia si chiede quanti soldi accumulerebbe se invece di spendere in download e biglietti per concerti li depositasse su un conto bancario. A questo scopo, calcolerai il valore dei flussi di cassa in un momento futuro, usando una funzione di sconto appropriata.
Lo schema di spesa di Cynthia è mostrato sopra. Il vettore cash_flows, che hai definito nel primo esercizio, è stato caricato in anticipo nel tuo workspace. Il tasso d'interesse è sempre del 2%.
Questo esercizio fa parte del corso
Valutazione dei prodotti assicurativi sulla vita in R
Istruzioni dell'esercizio
- Definisci la funzione
discount()che calcola il valore al tempo \(s\) di 1 EUR pagato al tempo \(t\). - Usa
discount()per calcolare il valore attuale deicash_flowsai tempi da 0 a 5. Questo dovrebbe coincidere con il tuo risultato precedente, cioè 444,93 EUR. - Stampa il valore del vettore dei flussi di cassa quando Cynthia compirà 18 anni tra 6 anni.
- Calcola in un altro modo il valore accumulato del vettore dei flussi di cassa al tempo 6. Questa volta converti il
present_valueal tempo 0 nel valore al tempo 6.
esercizio interattivo pratico
Prova questo esercizio completando questo codice di esempio.
# 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(___, ___)