Parcelas mensais do financiamento imobiliário
Os pais de Cynthia recebem um financiamento de 125.000 EUR em troca de pagamentos mensais fixos \(K\) ao longo dos próximos 20 anos, como mostrado no gráfico abaixo.
Usando as variáveis number_payments e monthly_interest definidas no exercício anterior, que já estão pré-carregadas para você, sua tarefa é determinar o valor de \(K\) com base no princípio da equivalência atuarial.
Este exercicio faz parte do curso
Avaliação de Produtos de Seguro de Vida em R
Instruções do exercicio
- Defina os fatores de desconto correspondentes do primeiro mês de pagamento até o último. Faça isso elevando 1 mais
monthly_interestà potência menos um vetor de 1 aténumber_payments. - Crie a variável
payments, que representa o padrão de pagamentos. Deve ser um vetor de uns com comprimentonumber_payments. - Por fim, calcule a parcela mensal \(K\) dividindo o valor do financiamento, 125.000, pelo valor presente do padrão de pagamentos.
exercicio interativo prático
Tente este exercicio completando este código de exemplo.
# Define the discount factors
discount_factors <- (___) ^ - (___)
# Define the payment pattern
payments <- rep(___, ___)
# Calculate the monthly loan payment K
K <- ___ / ___(___ * ___)
K