# NOT RUN {
# Use IPCA index to deflate a vector of nominal Brazilian Reais
reais <- rep(100, 5)
actual_dates <- seq.Date(from = as.Date("2001-01-01"), to = as.Date("2001-05-01"), by = "month")
deflate(reais, actual_dates, "01/2018", "ipca")
# Using IGP-M index
deflate(reais, actual_dates, "01/2018", "igpm")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab