# NOT RUN {
# Use IPC 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")
ipc(reais, actual_dates, "01/2018")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab