#' Converts Dylan's Australian gas cost to magpie
#' @param x MAgPIE object to be converted
#' @return magpie object of the CEMO data
#' @author Felix Schreyer
#' @seealso \code{\link{readSource}}
convertDylanAusGasCost <- function(x) {
all_c <- toolGetMapping("regionmappingH12.csv", where = "mappingfolder", type = "regional")
# converting to 2005USD, conversion factor from 2015AUSD to 2005USD assumed 0.6
x_help <- x * 0.6
x_help <- add_dimension(x_help, dim = 3.4, add = "unit", nm = "Natural Gas Extraction Cost [2005USD/GJ]")
x <- new.magpie(all_c$CountryCode, getYears(x_help), getNames(x_help), fill = 0)
x["AUS", , ] <- x_help
return(x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.