Actividad 5

Llamar librerias

#library(WDI)
#library(wbstats)
#library(tidyverse)
#library(forecast)

Pronostico #1: PIB de Mexico

#gdp.data <- wb_data(country = "MX", indicador = "NY.GDP.PCAP.CD", start_date= 1950, end_date=2022)
# Consultar country en: https://en.wikipedia.org/wiki/ISO_3166-1_alpha-2
# Consultar Indicador en: https://data.worldbank.org/indicator
#summary(gdp_date)
#head(gdp_data)
#PIB <- gdp_data$NY.GDP.PCAP.CD

## Generar serie de tiempo

#PIB_st <- ts(data = PIB, start = c(1960), frequency = 1)
#PIB_st

## Generar pronostico
#modelo_PIB <- auto.arima(PIB_st, D=1)
#modelo_PIB

#pronostico_PIB <- forecast(modelo_PIB, levels=c(95),h=5)
#pronostico_PIB

#plot(pronostico_PIB, main="Pronostico a 5 años del PIB en Mexico")

Informacion de varios paises

#more_gdp_data <- wb_data(country = c("NG", "HT", "KE"), indicator = "NY.GDP.PCAP.CD", start_date = 1950, end_date = 2022)

#ggplot(data = more_gdp_data) +
  #geom_point(mapping = aes(x = date, y = NY.GDP.PCAP.CD, color = country, shape = country)) + labs(x="Año", y="PIB", title = "Comparación del PIB de Nigeria, Haiti y Kenia")