R/convertTransportSubisidies.R

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

#' Converts transport subsidies data
#' 
#' @param x MAgPIE object to be converted
#' @return A MAgPIE object containing transport subsidies per technology
#' @author Renato Rodrigues
#' @examples
#' 
#' \dontrun{ a <- convertTransportSubsidies(x)
#' }
#'  

 convertTransportSubsidies <- function(x) {
   
   x  <- toolCountryFill(x,fill=0,verbosity=2) # fill countries with no data 
   x[is.na(x)] <- 0
   
   return(x)
 }