Avaliação de Produtos de Seguro de Vida em R
Roel Verbelen, Ph.D.
Statistician, Finity Consulting
Duas perguntas:
Como lidar com taxas de juros ao fazer uma mudança de período (ex.: de anos para meses)?
Como passar de uma taxa constante para uma taxa que varia no tempo?
Taxa de juros anual $i$.
Como obter $i^{\star}_m$, a taxa aplicável a um período de $1/m$ do ano?

$\qquad$ Então:
$$ 1+i = (1+i^{\star}_m)^m \quad \Leftrightarrow \quad i^{\star}_m = (1+i)^{1/m}-1. $$

# Yearly interest rate i <- 0.03# Calculate the monthly interest rate (monthly_interest <- (1 + i) ^ (1 / 12) - 1)
0.00246627
# From monthly to yearly interest rate
(1 + monthly_interest) ^ 12 - 1
0.03
Observações:
taxas de juros não são necessariamente constantes;
a estrutura a termo das taxas de juros ou curva de juros.
Vamos incorporar isso na nossa notação e estrutura!






# Define the vector containing the interest rates
interest <- c(0.04, 0.03, 0.02, 0.01)
# Define the vector containing the inverse of 1 plus the interest rate
yearly_discount_factors <- (1 + interest) ^ - 1
# Define the discount factors to time 0 using cumprod()
discount_factors <- c(1 , cumprod(yearly_discount_factors))
discount_factors
1.0000000 0.9615385 0.9335325 0.9152279 0.9061663
Avaliação de Produtos de Seguro de Vida em R