R/convertIMF.R

In pik-piam/moinput: Model Operations Input Data Library

#' @title convertIMF
#' @description Converts data from IMF
#' @param x unconverted magpie object from read-script
#' 
#' @return magpie object with a completed dataset.
#' 
#' @seealso
#' \code{\link{convertIMF}}


convertIMF <- function(x) 
{
  # delete "World"
  x <- x["World",,,invert=TRUE]
  
  # convert country names into ISO-code
  getRegions(x) <- toolCountry2isocode(getRegions(x))
  # delete Kosovo
  x <- x["KOS",,,invert=TRUE]
  
  ### allocate global current account to the countries
  # calculate global sum which is not 0
  x_sum <- - dimSums(x,dim=1)
  # calculate global absolute share of current account
  x_abs     <-  abs(x)
  x_abs_sum <- dimSums(x_abs,dim=1)
  # calculate additional value for each country
  x_rest <- x_abs / x_abs_sum * x_sum
  # add global rest to the countries
  x <- x + x_rest
  
  # fill rest of countries with 0
  x <- toolCountryFill(x,fill = 0)
  
  return(x)
}