R/convertIMAGE.R

Defines functions convertIMAGE

convertIMAGE <- function(x) {
  w <- readSource("EDGAR",subtype="HFC")
  w[is.na(w)] <- 0
  w <- dimSums(w[,2005,],dim=3)["ATA",,,invert=TRUE]
  y <- toolAggregate(x, "regionmappingIMAGE.csv", weight=w)
  y <- toolCountryFill(y,fill=0)
  return(y)
}
pik-piam/moinput documentation built on June 9, 2020, 12:23 p.m.