interpoldata <- function(x,overlap) {
x <- drop(as.array(time_interpolate(as.magpie(x), interpolated_year = overlap, integrate_interpolated_years = FALSE)))
names(x) <- overlap
return(x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.