R/gdpDeflator.R

In kendonB/bellmisc: What the package does (short line)

#' @export
#' @title Generates a GDP deflator from the World Bank
#' @description Generates a GDP deflator from the World Bank
#' @param country country (ISO-2 character codes, e.g. "BR", "US", "CA") 
#' for which the deflator is needed.
#' @param start first year of data
#' @param end last year of data
#' @return a data.frame containing the world bank output and a
#' gdpDeflator index.
gdpDeflator <- function(country, start, end){
  indicator <- WDIsearch()[which(WDIsearch()[,"name"] == 
                                   "GDP deflator (base year varies by country)"), 
                           "indicator"]
  gdpDeflator <- WDI(country = country, indicator = indicator, start = start, end = end)
  gdpDeflator
}