1. Carga de las funciones

source("C:/Users/DELL/Desktop/METODOS/funciones_comercio_exterior.R")

2. Herramientas de consultas 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

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 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 14
Albania 2017 26
Albania 2018 27

5. 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.0894109
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.2503378
Ejemplo 3, adicional
En este ejemplo se analizará el IVCR con México y Estados Unidos, para el año 2019, para el capitulo “01”
Resultados_IVCR_extra<-data.frame("paises"=c(484,840),
                                  "IVCR"=sapply(X=c(484,840),
                                  FUN= indicadores_IVCR_capitulo, 
                                  anio=2019, 
                                  capitulo="01"))
Resultados_IVCR_extra %>% kable(align= "l") %>%
  kable_material(html_font = "sans-serif")
paises IVCR
484 -0.0014925
840 -0.0880920

6. 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.3498410
2018 0.3126829
2019 0.3919810
2020 0.7464238
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.5568556
2018 0.5482430
2019 0.5459550
2020 0.7701092
Ejemplo 3, adicional
En este ejemplo se analizará el IB con Alemania, para el periodo 2017-2020, para la partida “3911900000”
Resultados_IB_sac<-data.frame("años"=2017:2020,
                            "IB"=sapply(X=2017:2020,
                                          FUN = indicadores_Balassa_partida,
                                          codigo_pais=276,
                                          partida="3911900000",))
Resultados_IB_sac %>% kable(align = "l") %>% 
  kable_material(html_font = "sans-serif")
años IB
2017 0.5568556
2018 0.5482430
2019 0.5459550
2020 0.7701092

7. 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.012068
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.001264
Ejemplo 3, adicional
Uso del indicador de Herfindahl Hirschmann anual para la Federación de Rusia y Finlandia, para el año 2019
Resultados_IHH<-data.frame("paises"=c(643,246),
                           "IHH"=sapply(X = c(643,246),
                            FUN=indicadores_IHH_Herfindahl_Hirschmann_anual,
                            anio=2019,
                            normalizado=TRUE))
Resultados_IHH %>% kable(align = "l",digits = 6) %>% 
  kable_material(html_font = "sans-serif")
paises IHH
643 0.309785
246 0.029352