R/calcConsumption.R

Defines functions calcConsumption

#' @importFrom magclass as.magpie getNames<-

calcConsumption <- function() {
  tmp <- readSource("PWT")[,,c("cgdpe", "csh_c")]
  data <- as.magpie(as.array(tmp[,,"cgdpe"]) * as.array(tmp[,,"csh_c"]))
  getNames(data) <- "Consumption (mill. US$2005)"
  
  return(list(x=data,weight=NULL))
}
pik-piam/moinput documentation built on June 9, 2020, 12:23 p.m.