R/readJames2019.R

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

#' Read James 2019 updated dataset
#' 
#' Read-in GDP per-capita data from the publication James, Spencer L., Paul
#' Gubbins, Christopher JL Murray, and Emmanuela Gakidou. 2012. "Developing a
#' Comprehensive Time Series of GDP per Capita for 210 Countries from 1950 to
#' 2015." Population Health Metrics 10 (1): 12. doi:10.1186/1478-7954-10-12.
#' from a .csv file to a magclass object
#' 
#' 2019 dataset from personal communication
#' 
#' @return GDP per capita in USD05 in PPP or MER as magpie object
#' @author David Chen, Benjamin Bodirsky
#' @seealso \code{\link{readSource}}
#' @examples
#' 
#' \dontrun{ a <- readSource(type="James",subtype="IHME_USD05_PPP_pc")
#' }
#' 
readJames2019 <- function() {
  file <- "james2019.csv"
  x<-read.csv(file, sep=",",dec = ".", header=T)
  x<-as.magpie(x,spatial=1,temporal=2)    
  return(x)
}