R/reportCostsAEI.R

In pik-piam/magpie4: MAgPIE outputs R package for MAgPIE version 4.x

#' @title reportCostsAEI
#' @description reports MAgPIE AEI costs
#' 
#' @param gdx GDX file
#' @return magpie object containing AEI costs
#' @author Felicitas Beier
#' @examples
#' 
#'   \dontrun{
#'     x <- reportCostsAEI(gdx)
#'   }
#'
    
reportCostsAEI <- function(gdx) {
  
  AEI_costs <- CostsAEI(gdx, level = "regglo")

  getNames(AEI_costs)<-"Costs|AEI"
  getNames(AEI_costs) <- paste0(getNames(AEI_costs)," (million US$05)")
  
  return(AEI_costs)
}