1. Carga de las Funciones

source(file = "C:/Users/Osiel/Desktop/funciones_comercio_exterior.R")

2. Herramientas de consulta de Paises

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

3. 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

4. Herramientas de consulta de paises con transaccion 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 14
Albania 2017 26
Albania 2018 27

5. Uso de indicador de ventaja comparativa revelado

5.1 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.0841604

5.2 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.2208467

6. uso de indicador de Balassa

6.1 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.3597730
2018 0.3228978
2019 0.4015546
2020 0.7034690

6.2 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.5646451
2018 0.5561408
2019 0.5538812
2020 0.7400013

7. Uso del indicador de Herfindahl Hirschmann anual

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

7.1 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.009867

7.2 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.001103

8. Ejemplos extras

8.1 Uso de Indice de ventaja comparativa revelada

Para este ejmplo sse analizara el IVCR con los paises del triangulo norte: Guatemala(320) y Honduras (340) de C.A para el a?o 2017 y la cuenta 2202910000

library(kableExtra)
Resultados_IVCR_extra<-data.frame("Paises"=c(320,340),
                                  "IVCR"=sapply(X=c(320,340), FUN= indicadores_IVCR_partida, anio=2017, partida="2202910000"))
Resultados_IVCR_extra %>% kable(align= "l") %>%
  kable_material(html_font = "sans-serif")
Paises IVCR
320 -0.1379847
340 0.1546859

8.2 Uso del Indice de Balassa

Se analizara el IB para Guatema en el periodo de 2017-2020 y para el capitulo “22”"

Resultados_IB_extra<- data.frame("años"=2017:2020,
                                 "IB"=sapply(X=2017:2020,
                                             FUN= indicadores_Balassa_capitulo,
                                             codigo_pais=320,
                                             capitulo="22"))
Resultados_IB_extra %>% kable(align= "l") %>%
  kable_material(html_font = "sans-serif")
años IB
2017 0.7864413
2018 0.7542656
2019 0.7653606
2020 0.8450873

8.3 Uso del indice HH

Calculo del indice HH para los paises Guatemala y Honduras para el a?o 2018

Resultados_IHH_extra<- data.frame("Paises"=c(320,340),
                                  "IHH"=sapply(X=c(320,340),
                                               FUN=indicadores_IHH_Herfindahl_Hirschmann_anual,
                                               anio=2018,
                                               normalizado=TRUE)) 
Resultados_IHH_extra %>% kable(align= "l") %>%
  kable_material(html_font = "sans-serif")
Paises IHH
320 0.0012583
340 0.0019251