Oceňování produktů životního pojištění v R
Katrien Antonio, Ph.D.
Professor, KU Leuven and University of Amsterdam
Zvolte jednotku kapitálu a čas:
Částka přijatá nebo vyplacená v čase $k$:

# Define the cash flows
cash_flows <- c(500, 400, 300, rep(200, 5))
length(cash_flows)
8

Klíčové skutečnosti:
načasování peněžních toků je důležité!
časová hodnota peněz je důležitá!
Úroková míra určuje růst peněz.
Akumulace

i <- 0.03
1 * (1 + i)
1.03
Diskontování

v <- 1 / (1 + i)
v
0.9708738
Akumulace

i <- 0.03 ; v <- 1 / (1 + i) ; k <- 2
c((1 + i) ^ k, v ^ -k)
1.0609 1.0609
Diskontování

i <- 0.03 ; v <- 1 / (1 + i) ; k <- 2
c((1 + i) ^ -k, v ^ k)
0.9425959 0.9425959

Jaká je hodnota tohoto vektoru peněžních toků v čase $k=0$?

Jaká je hodnota tohoto vektoru peněžních toků v čase $k=0$?
Současná hodnota (PV)!
# Interest rate i <- 0.03# Discount factor v <- 1 / (1 + i)# Define the discount factors discount_factors <- v ^ (0:7)# Cash flow vector cash_flows <- c(500, 400, 300, rep(200, 5))
# Discounting cash flows
cash_flows * discount_factors
500.0000 388.3495 282.7788 183.0283
177.6974 172.5218 167.4969 162.6183
# Present value of cash flow vector
present_value <-
sum(cash_flows * discount_factors)
present_value
[1] 2034.491
Oceňování produktů životního pojištění v R