bttomio

# Leading Indicators OECD: Reference series: Gross Domestic Product (GDP): Normalised [LORSGPNO]
# Level, rate or national currency, seasonally adjusted [STSA]

library(OECD)

dataset <- "MEI" # MAIN ECONOMIC INDICATORS
filter_list <- list("", "LORSGPNO", "STSA", "M") # SEQUENCE SENSITIVE
GDP <- get_dataset(dataset = dataset, filter = filter_list)

library(ggplot2)

bttomio

# PACKAGES NEEDED ####

list.of.packages <- c('WDI', 'ggthemes', 'knitr', 'kableExtra', 'rnaturalearth', 
                      'tidyverse', 'ggrepel', 'gganimate', 'transformr')
new.packages <- list.of.packages[!(list.of.packages %in% installed.packages()[,"Package"])]
if(length(new.packages)) install.packages(new.packages)
lapply(list.of.packages, library, character.only = T, quietly = T)

# Life expectancy at birth, female (years) ####

bttomio

# Monthly historical series of soybean, sunflower and corn prices

library(IMFData)
library(tidyverse)

availableDB <- DataflowMethod()
availableDB$DatabaseID

PCPS.available.codes <- DataStructureMethod("PCPS")
names(PCPS.available.codes)