if (FALSE) {
# Assign these variables once
country <- "AU"
inflation_dataframe <- retrieve_inflation_data(country)
countries_dataframe <- show_countries()
# Convert $100 from 2005 into 2017 dollars
adjust_for_inflation(100, 2005, country, to_date = 2017,
inflation_dataframe = inflation_dataframe,
countries_dataframe = countries_dataframe)
# [1] 133.9861 # i.e. $100 in 2005 had the same purchasing power as $133.99 in 2017
}
Run the code above in your browser using DataLab