Browse wiki

function(inputValue, fromYear, toYear){
#Step 1 load in the CPI data
cpi = sparql("SELECT ?x WHERE{<http://www.moxy.com.au/Wiki/a#Australian_Consumer_Price_Index> prop:RData ?x}");

#Average the CPI index data by year
cpi$Year = substr(cpi$Quarter, 5, 8);

# Summarise the data by year
cpiYear = tapply(cpi$Index, cpi$Year, mean);

#Convert from fromYear to base
targetVal = inputValue * cpiYear[as.character(toYear)] / cpiYear[as.character(fromYear)];
targetVal 
}