calcMAgPIEEmulator <- function() {
x <- readSource("REMIND_11Regi","biomass")
# use same weight for all countries -> arithmetic mean
w <- new.magpie(getRegions(x),2005,getNames(x),fill=1)
return(list(x=x, weight=w,
description = paste0("Parameters for biomass price
supply curve derived from MAgPIE")))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.