Create a chronicle of discount rate

Create a chronicle of discount rate

Usage

discount_rate(h = 0:50, rate = c("constant", "quinet2013", "cgp2005"), ...)

Arguments

h

vector (integer) of years.

rate

character, choice for discount rate.

...

other parameters.

Value

vector of discount rates

Author

Frédéric Grelot, frederic.grelot.1994_cran@m4x.org

Examples

r_constant = discount_rate()
r_2013 = discount_rate(rate = "quinet2013")
r_2005 = discount_rate(rate = "cgp2005")

year = as.integer(format(Sys.Date(), "%Y"))
year = seq(year,  year + length(r_constant) - 1)
plot(year, r_2005, type = "l", col = "red", ylim = c(0, .1))
lines(year, r_constant, col = "black")
lines(year, r_2013, col = "blue")