ik_calc_average.gr <- function(data,start,end) {
yeardiff <- as.numeric(gsub('y','',end))-as.numeric(gsub('y','',start))
agr <- (data[,end]/data[,start])^(1/yeardiff)
return(agr)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.