R/convertnonEnergyDemand.R

In pik-piam/mrremind: MadRat REMIND Input Data Package

#' Converts Final energy demand for feedstocks (non-energy use)
#' 
#' @param x MAgPIE object to be converted
#' @return A MAgPIE object containing country disaggregated data
#' @author Renato Rodrigues
#' @examples
#' 
#' \dontrun{ a <- convertnonEnergyDemand(x)
#' }
#' 

convertnonEnergyDemand <- function(x) {
  
  # Replacing NA values with zero
  x[is.na(x)] <- 0
  
  # weight to convert to country data values
  IO <- calcOutput("IO",subtype="output",aggregate=FALSE)[,2010,c("seliqfos.fehoi","segafos.fegai","sesofos.fesoi")]
  w <- setNames(IO[,,c("seliqfos.fehoi.tdfoshoi","segafos.fegai.tdfosgai","sesofos.fesoi.tdfossoi")],c("chemicals.fehos","chemicals.fegas","chemicals.fesos"))
  
  # converting from REMIND-EU regions to country data using industry FE as weight
  y <- toolAggregate(x, toolGetMapping(type = "regional", name = "regionmapping_21_EU11.csv", where = "mappingfolder")[,c(1:3)], weight=w) 

return(y)
}