# Carga de librerias:
library(dplyr)
library(tidyverse)
library(rsdmx)
library(knitr)
library(kableExtra)
library(tsbox)
# Como buena practica de documentacion, siempre anotar la URL original del indicador a cargar:
# https://www.oecd.org/es/data/indicators/real-gdp-long-term-forecast.html
# 5.carga de los datos
url_data_query<- "https://sdmx.oecd.org/public/rest/data/OECD.ECO.MAD,DSD_EO_LTB@DF_EO_LTB,/.GDPVTRD_CAP..A?startPeriod=2026&endPeriod=2036&dimensionAtObservation=AllDimensions"
GDPppr_potential_2026_2036<- readSDMX(url_data_query)
# 6.conversion de las consultas a tabla tipo Tibble
GDPppr_potential_2026_2036<-as_tibble(GDPppr_potential_2026_2036,labels=TRUE)
#Mostrar la database tal como se descarga de la OCDE
GDPppr_potential_2026_2036 |>
head(10)# A tibble: 10 × 9
TIME_PERIOD REF_AREA MEASURE SCENARIO FREQ obsValue UNIT_MEASURE UNIT_MULT
<chr> <chr> <chr> <chr> <chr> <dbl> <chr> <chr>
1 2026 A9 GDPVTRD_… BAU1 A 20202. USD_PPP_PS 0
2 2027 A9 GDPVTRD_… BAU1 A 20505. USD_PPP_PS 0
3 2028 A9 GDPVTRD_… BAU1 A 20839. USD_PPP_PS 0
4 2029 A9 GDPVTRD_… BAU1 A 21202. USD_PPP_PS 0
5 2030 A9 GDPVTRD_… BAU1 A 21591. USD_PPP_PS 0
6 2031 A9 GDPVTRD_… BAU1 A 22002. USD_PPP_PS 0
7 2032 A9 GDPVTRD_… BAU1 A 22432. USD_PPP_PS 0
8 2033 A9 GDPVTRD_… BAU1 A 22880. USD_PPP_PS 0
9 2034 A9 GDPVTRD_… BAU1 A 23346. USD_PPP_PS 0
10 2035 A9 GDPVTRD_… BAU1 A 23827. USD_PPP_PS 0
# ℹ 1 more variable: DECIMALS <chr>