Cargamos las funciones.

source("C:/Users/Yohana Argueta/Desktop/Comercio/funciones_comercio_exterior.R")

Herramientas de Consulta de Países.

library(kableExtra)
herramientas_mostrar_paises() %>% head() %>% kable() %>% kable_material(html_font = "sans-serif")
nom_pais_esp codigo_pais region cod_region region_intermedia cod_region_intermedia
Afganistan 4 Asia 142 NA NA
Albania 8 Europa 150 NA NA
Alemania 276 Europa 150 NA NA
Andorra 20 Europa 150 NA NA
Angola 24 África 2 África Central 17
Anguila (R.U.) 660 Américas 19 Caribe 29

Herramientas de Consulta de Regiones.

library(kableExtra)
herramientas_mostrar_regiones() %>% head() %>% kable() %>% kable_material(html_font = "sans-serif")
region cod_region region_intermedia cod_region_intermedia # de Paises incluidos
África 2 África Central 17 8
África 2 Africa Del Sur 18 5
África 2 África Occidental 11 16
África 2 África Oriental 14 17
África 2 NA NA 6
Américas 19 Caribe 29 26

Herramientas de Consulta de Paises con transacciones en la tabla.

library(kableExtra)
herramientas_mostrar_paises_en_tabla() %>% head() %>% kable() %>% kable_material(html_font = "sans-serif")
pais anio # Transacciones
Afganistan 2017 8
Afganistan 2018 7
Afganistan 2019 10
Afganistan 2020 28
Albania 2017 26
Albania 2018 27

Uso de Indicador de Ventaja Comparativa Revelada.

Ejemplo 1

En este ejemplo se analizará el IVCR con USA, para el periodo 2017-2020, para al capitulo “01”
Resultados_IVCR<-data.frame("años"=2017:2020,
                            "IVCR"=sapply(X=2017:2020,FUN = indicadores_IVCR_capitulo,codigo_pais=840,capitulo="01"))
Resultados_IVCR %>% kable(align = "l") %>% 
  kable_material(html_font = "sans-serif")
años IVCR
2017 -0.1268112
2018 -0.0997253
2019 -0.0880920
2020 -0.0769218

Ejemplo 2

En este ejemplo se analizará el IVCR con USA, para el periodo 2017-2020, para el producto “0105110000”
Resultados_IVCR_sac<-data.frame("años"=2017:2020,
                            "IVCR"=sapply(X=2017:2020,FUN = indicadores_IVCR_partida,codigo_pais=840,partida="0105110000"))
Resultados_IVCR_sac %>% kable(align = "l") %>% 
  kable_material(html_font = "sans-serif")
años IVCR
2017 -0.1332373
2018 -0.1862546
2019 -0.1890461
2020 -0.2217919

Ejemplo 3

En este ejemplo se analizará el IVCR con 3 Paises de Centroamerica, para el año 2019, para el capitulo “04”.
Resultados_IVCR_sac_CA<-data.frame("paises"=c(320,558,84),
                            "IVCR"=sapply(X=c(320,558,84 ),FUN = indicadores_IVCR_capitulo,anio=2019,capitulo="04"))
Resultados_IVCR_sac_CA %>% kable(align = "l") %>% 
  kable_material(html_font = "sans-serif")
paises IVCR
320 0.0766387
558 -0.4739638
84 0.0000000

Uso de Indicador de Balassa

Ejemplo 1

En este ejemplo se analizará el indice de Balassa con USA, para el periodo 2017-2020, para al capitulo “01”
Resultados_Balassa<-data.frame("años"=2017:2020,
                            "IB"=sapply(X=2017:2020,FUN = indicadores_Balassa_capitulo,codigo_pais=840,capitulo="01"))
Resultados_Balassa %>% kable(align = "l") %>% 
  kable_material(html_font = "sans-serif")
años IB
2017 0.3590631
2018 0.3221674
2019 0.4008707
2020 0.7045523

Ejemplo 2

En este ejemplo se analizará el IB con USA, para el periodo 2017-2020, para el producto “0105110000”
Resultados_IB_sac<-data.frame("años"=2017:2020,
                            "IB"=sapply(X=2017:2020,
                                          FUN = indicadores_Balassa_partida,
                                          codigo_pais=840,
                                          partida="0105110000",
                                          normalizado=TRUE))
Resultados_IB_sac %>% kable(align = "l") %>% 
  kable_material(html_font = "sans-serif")
años IB
2017 0.5640896
2018 0.5555775
2019 0.5533158
2020 0.7421048

Ejemplo 3

En este ejemplo se analizará el IB con Nicaragua, para el periodo 2017-2019.
Resultados_Balassa_Nicaragua<-data.frame("años"=2017:2019,
                                  "IB"=sapply(X=2017:2019,
                                              FUN=indicadores_Balassa_capitulo,
                                              codigo_pais=558,
                                              capitulo="05"))
Resultados_Balassa_Nicaragua %>% kable(align = "l") %>% kable_material(html_font = "sans-serif")
años IB
2017 -1
2018 -1
2019 -1

Uso de Indicador de Herfindahl Hirschmann anual

Ambos ejemplos para USA para el período 2017-2020

Ejemplo 1: Uso de Indicador de Herfindahl Hirschmann anual

Resultados_IHH<-data.frame("años"=2017:2020,"IHH"=sapply(X = 2017:2020,
       FUN = indicadores_IHH_Herfindahl_Hirschmann_anual,codigo_pais=840,normalizado=TRUE))
Resultados_IHH %>% kable(align = "l",digits = 6) %>% 
  kable_material(html_font = "sans-serif")
años IHH
2017 0.005591
2018 0.005661
2019 0.005873
2020 0.009944

Ejemplo 2: Uso de Indicador de Herfindahl Hirschmann anual propuesto en el texto

Resultados_IHH_texto<-data.frame("años"=2017:2020,"IHH"=sapply(X = 2017:2020,
       FUN = indicadores_IHH_Herfindahl_Hirschmann_anual_texto,codigo_pais=840,normalizado=TRUE))
Resultados_IHH_texto %>% kable(align = "l",digits = 6) %>% 
  kable_material(html_font = "sans-serif")
años IHH
2017 0.000982
2018 0.000977
2019 0.000906
2020 0.001110

Ejemplo 3: Uso de Indicador de Herfindahl Hirschmann anual para Argentina

Resultados_IHH<-data.frame("años"=2019:2019,"IHH"=sapply(X = 2019:2019,
       FUN = indicadores_IHH_Herfindahl_Hirschmann_anual,codigo_pais=32,normalizado=TRUE))
Resultados_IHH %>% kable(align = "l",digits = 6) %>% 
  kable_material(html_font = "sans-serif")
años IHH
2019 0.136228