Em qualquer lugar, a qualquer hora?
Refletindo sobre seu padrão de gastos, Cynthia quer saber quanto dinheiro teria acumulado se colocasse o dinheiro em uma conta bancária em vez de gastá-lo com downloads e ingressos de shows. Para isso, você vai calcular o valor dos fluxos de caixa em um ponto futuro no tempo, usando uma função de desconto apropriada.
O padrão de gastos de Cynthia está mostrado acima. O vetor cash_flows, que você definiu no primeiro exercício, já foi carregado no seu workspace. A taxa de juros continua em 2%.
Este exercicio faz parte do curso
Avaliação de Produtos de Seguro de Vida em R
Instruções do exercicio
- Defina a função
discount()que calcula o valor no tempo \(s\) de 1 EUR pago no tempo \(t\). - Use
discount()para calcular o valor presente decash_flowsnos tempos de 0 a 5. Isso deve bater com o seu resultado anterior, ou seja, 444,93 EUR. - Imprima o valor do vetor de fluxo de caixa quando Cynthia completar 18 anos, em 6 anos a partir de agora.
- Calcule o valor acumulado do vetor de fluxo de caixa no tempo 6 de uma forma diferente. Desta vez, converta o
present_valueno tempo 0 para o valor no tempo 6.
exercicio interativo prático
Tente este exercicio completando este código de exemplo.
# 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(___, ___)