Ejercicios usando base de datos de comercio exterior.

Usando los datos de Comercio Exterior de El Salvador, disponibles en la base de datos preparada en clases, responda las siguientes preguntas:

Importante: muestre sus resultados en formato tabular, y asignando los encabezados y pies de página apropiados en cada caso

Carga de la data

library(dplyr)
source(file = "C:/Users/walte/OneDrive/Escritorio/funciones_comercio_exterior.R")

A

1- Calcule las exportaciones totales de El Salvador hacia la región de África Sub-Sahariana, para el periodo 2019-2020 son (en millones de US$)

library(dplyr)
library(kableExtra)
data_comercio_exterior_2020 %>% 
                 group_by(anio,sub_region) %>% 
                      summarise(Exportaciones_totales =sum(valor_fob)) %>%
                           select("anio","Exportaciones_totales","sub_region")%>%
                                  filter(anio %in% 2019:2020,sub_region =="Africa Sub-Sahariana")%>% 
kable(caption ="Exportaciones totales de El Salvador hacia la región de África Sub-Sahariana, para el periodo 2019-2020", digits = 4,align = "l") %>% 
kable_styling(bootstrap_options = "striped", full_width = TRUE )%>%
add_footnote(label="Elaboración propia con base en datos del BCR",notation="symbol") 
Exportaciones totales de El Salvador hacia la región de África Sub-Sahariana, para el periodo 2019-2020
anio Exportaciones_totales sub_region
2019 2452792 Africa Sub-Sahariana
2020 815212 Africa Sub-Sahariana
* Elaboración propia con base en datos del BCR

2- Obtenga el Saldo de la balanza comercial de El Salvador, con “Asia Sudoriental”, para el periodo 2017-2019, (en millones de US$)

library(dplyr)
library(kableExtra)
data_comercio_exterior_2020 %>%
      group_by(anio,sub_region) %>% 
                      summarise(Exportaciones_totales =sum(valor_fob)/1e6,
                                Importaciones_totales =sum(valor_cif)/1e6)%>%
                     mutate(saldo_bc=Exportaciones_totales-Importaciones_totales)%>%
                           select("anio","saldo_bc","sub_region")%>%
                                  filter(anio %in% 2017:2019,sub_region =="Asia Sudoriental")%>% 
kable(caption ="Saldo de la balanza comercial de El Salvador, con Asia Sudoriental, para el periodo 2017-2019", digits =4,align = "l") %>% 
kable_styling(bootstrap_options = "striped", full_width = TRUE )%>%
add_footnote(label="Elaboración propia con base en datos del BCR",notation="symbol")
Saldo de la balanza comercial de El Salvador, con Asia Sudoriental, para el periodo 2017-2019
anio saldo_bc sub_region
2017 -195.8927 Asia Sudoriental
2018 -264.2740 Asia Sudoriental
2019 -257.9409 Asia Sudoriental
* Elaboración propia con base en datos del BCR

3- Por cada dólar exportado a la región Sudamericana, en el año 2019, ¿Cuánto se importo?

library(dplyr)
library(kableExtra)
data_comercio_exterior_2020 %>% 
                 group_by(anio,region_intermedia) %>% 
                      summarise(Exportaciones_totales =sum(valor_fob)/1e6,
                                Importaciones_totales =sum(valor_cif)/1e6)%>%
                             mutate(valor_importado=Importaciones_totales/Exportaciones_totales)%>%
select("anio","region_intermedia","valor_importado","Exportaciones_totales","Importaciones_totales")%>%
filter(anio == 2019,region_intermedia =="Sudamerica")%>%
kable(caption ="Cantidad en dolares importada, por cada dólar exportado a la región Sudamericana, en el año 2019", digits =4,align = "l") %>% 
kable_styling(bootstrap_options = "striped", full_width = TRUE )%>%
add_footnote(label="Por cada dolar exportado a la region Sudamericana el pais importo 15.056 dolares. ,
             Elaboración propia con base en datos del BCR",notation="symbol")
Cantidad en dolares importada, por cada dólar exportado a la región Sudamericana, en el año 2019
anio region_intermedia valor_importado Exportaciones_totales Importaciones_totales
2019 Sudamerica 15.0564 47.7304 718.647
* Por cada dolar exportado a la region Sudamericana el pais importo 15.056 dolares. ,
Elaboración propia con base en datos del BCR

4- Calcule el indicador de Balassa de El Salvador, con México, Estados Unidos y Canadá, durante el periodo 2017-2020, para el capitulo “01” del SAC.

library(dplyr)
library(kableExtra)
capitulo<-"01"
data.frame("años"=2017:2020,
           "Indicador_B_Mexico"=sapply(X=2017:2020,FUN = indicadores_Balassa_capitulo,codigo_pais=484,capitulo=capitulo),
           "Indicador_B_USA"=sapply(X=2017:2020,FUN = indicadores_Balassa_capitulo,codigo_pais=840,capitulo=capitulo),
           "Indicador_B_Canada"=sapply(X=2017:2020,FUN = indicadores_Balassa_capitulo,codigo_pais=124,capitulo=capitulo))%>%
             kable(caption ="Indicador de Balassa de El Salvador, con México, Estados Unidos y Canadá, durante el periodo 2017-2020", digits =4,align = "l") %>% 
kable_styling(bootstrap_options = "striped", full_width = TRUE )%>%
add_footnote(label="Elaboración propia con base en datos del BCR",notation="symbol")
Indicador de Balassa de El Salvador, con México, Estados Unidos y Canadá, durante el periodo 2017-2020
años Indicador_B_Mexico Indicador_B_USA Indicador_B_Canada
2017 -0.5699 0.3678 0.4032
2018 -0.8214 0.3312 0.6202
2019 -0.8963 0.4093 0.1975
2020 -0.9863 0.7225 0.0506
* Elaboración propia con base en datos del BCR

B

1- Calcule el indicador de IVCR de El Salvador, con México, Estados Unidos y Canadá, durante el periodo 2017-2020, para el capitulo “01” del SAC.

library(dplyr)
library(kableExtra)
capitulo<-"01"
data.frame("años"=2017:2020,
           "Indicador_IVCR_Mexico"=sapply(X=2017:2020,FUN = indicadores_IVCR_capitulo,codigo_pais=484,capitulo=capitulo),
           "Indicador_IVCR_USA"=sapply(X=2017:2020,FUN = indicadores_IVCR_capitulo,codigo_pais=840,capitulo=capitulo),
           "Indicador_IVCR_Canada"=sapply(X=2017:2020,FUN = indicadores_IVCR_capitulo,codigo_pais=124,capitulo=capitulo))%>%
 kable(caption ="Indicador IVCR de El Salvador, con México, Estados Unidos y Canadá, durante el periodo 2017-2020", digits =4,align = "l") %>% 
kable_styling(bootstrap_options = "striped", full_width = TRUE )%>%
add_footnote(label="Elaboración propia con base en datos del BCR",notation="symbol")
Indicador IVCR de El Salvador, con México, Estados Unidos y Canadá, durante el periodo 2017-2020
años Indicador_IVCR_Mexico Indicador_IVCR_USA Indicador_IVCR_Canada
2017 -0.0006 -0.1268 0.0026
2018 -0.0048 -0.0997 0.0000
2019 -0.0015 -0.0881 0.0003
2020 -0.0014 -0.0891 -0.0029
* Elaboración propia con base en datos del BCR

2- Por cada dólar exportado a la región Centroamericana , en el periodo 2017-2019, ¿Cuánto se importo? (resultado por año)

library(dplyr)
library(kableExtra)
data_comercio_exterior_2020 %>% 
                 group_by(anio,region_intermedia) %>% 
                      summarise(Exportaciones_totales =sum(valor_fob)/1e6,
                                Importaciones_totales =sum(valor_cif)/1e6)%>%
                             mutate(valor_importado=Importaciones_totales/Exportaciones_totales)%>%
select("anio","region_intermedia","valor_importado","Exportaciones_totales","Importaciones_totales")%>%
filter(anio %in% 2017:2019,region_intermedia =="Centroamérica")%>%
kable(caption ="Cantidad en dolares importada, por cada dólar exportado a la región Centro americana, en el año 2019", digits =4,align = "l") %>% 
kable_styling(bootstrap_options = "striped", full_width = TRUE )%>%
add_footnote(label="Por cada dolar exportado a la region Centro americana el pais importo 1.2297 dolares en el año 2017, 1.2797 dolares en el año 2018 y 1.3376 dolares en el año 2019. ,
             Elaboración propia con base en datos del BCR",notation="symbol")
Cantidad en dolares importada, por cada dólar exportado a la región Centro americana, en el año 2019
anio region_intermedia valor_importado Exportaciones_totales Importaciones_totales
2017 Centroamérica 1.2297 2532.194 3113.747
2018 Centroamérica 1.2797 2707.379 3464.633
2019 Centroamérica 1.3376 2851.094 3813.486
* Por cada dolar exportado a la region Centro americana el pais importo 1.2297 dolares en el año 2017, 1.2797 dolares en el año 2018 y 1.3376 dolares en el año 2019. ,
Elaboración propia con base en datos del BCR

3- Obtenga el Saldo de la balanza comercial de El Salvador, con el “Caribe”, para el periodo 2017-2019, (en millones de US$)

library(dplyr)
library(kableExtra)
data_comercio_exterior_2020 %>% 
   group_by(anio,sub_region) %>% 
                      summarise(Exportaciones_totales =sum(valor_fob)/1e6,
                                Importaciones_totales =sum(valor_cif)/1e6)%>%
                     mutate(saldo_bc=Exportaciones_totales-Importaciones_totales)%>%
                           select("anio","saldo_bc","sub_region")%>%
                                  filter(anio %in% 2017:2019,sub_region =="Asia Sudoriental")%>% 
kable(caption ="Saldo de la balanza comercial de El Salvador, con Asia Sudoriental, para el periodo 2017-2019", digits =4,align = "l") %>% 
kable_styling(bootstrap_options = "striped", full_width = TRUE )%>%
add_footnote(label="Elaboración propia con base en datos del BCR",notation="symbol")
Saldo de la balanza comercial de El Salvador, con Asia Sudoriental, para el periodo 2017-2019
anio saldo_bc sub_region
2017 -195.8927 Asia Sudoriental
2018 -264.2740 Asia Sudoriental
2019 -257.9409 Asia Sudoriental
* Elaboración propia con base en datos del BCR

4- Calcule las exportaciones totales de El Salvador hacia la región Norte De Europa, para el periodo 2019-2020 son (en millones de US$)

library(dplyr)
library(kableExtra)
data_comercio_exterior_2020 %>% 
                 group_by(anio,sub_region) %>% 
                      summarise(Exportaciones_totales =sum(valor_fob)) %>%
                           select("anio","Exportaciones_totales","sub_region")%>%
                                  filter(anio %in% 2019:2020,sub_region =="Norte De Europa")%>% 
kable(caption ="Exportaciones totales de El Salvador hacia la región de Norte De Europa , para el periodo 2019-2020", digits = 4,align = "l") %>% 
kable_styling(bootstrap_options = "striped", full_width = TRUE )%>%
add_footnote(label="Elaboración propia con base en datos del BCR",notation="symbol") 
Exportaciones totales de El Salvador hacia la región de Norte De Europa , para el periodo 2019-2020
anio Exportaciones_totales sub_region
2019 19808535 Norte De Europa
2020 21058658 Norte De Europa
* Elaboración propia con base en datos del BCR

C

1- Por cada dólar exportado a la región Suramericana, en el periodo 2018-2019, ¿Cuánto se importo? (resultado por año)

library(dplyr)
library(kableExtra)
data_comercio_exterior_2020 %>% 
                 group_by(anio,region_intermedia) %>% 
                      summarise(Exportaciones_totales =sum(valor_fob)/1e6,
                                Importaciones_totales =sum(valor_cif)/1e6)%>%
                             mutate(valor_importado=Importaciones_totales/Exportaciones_totales)%>%
select("anio","region_intermedia","valor_importado","Exportaciones_totales","Importaciones_totales")%>%
filter(anio %in% 2018:2019,region_intermedia =="Sudamerica")%>%
kable(caption ="Cantidad en dolares importada, por cada dólar exportado a la región Sudamericana, en el año 2018-2019", digits =4,align = "l") %>% 
kable_styling(bootstrap_options = "striped", full_width = TRUE )%>%
add_footnote(label="Por cada dolar exportado a la region Sudamericana el pais importo 14.8860 dolares en 2018 y 15.0564 dolares en 2019. ,
             Elaboración propia con base en datos del BCR",notation="symbol")
Cantidad en dolares importada, por cada dólar exportado a la región Sudamericana, en el año 2018-2019
anio region_intermedia valor_importado Exportaciones_totales Importaciones_totales
2018 Sudamerica 14.8860 43.3597 645.4535
2019 Sudamerica 15.0564 47.7304 718.6470
* Por cada dolar exportado a la region Sudamericana el pais importo 14.8860 dolares en 2018 y 15.0564 dolares en 2019. ,
Elaboración propia con base en datos del BCR

2- Calcule el IHH de El Salvador, con México, Estados Unidos y Canadá, durante el periodo 2017-2020, normalizado.

library(dplyr)
library(kableExtra)
IHH_M_E_C<-data.frame("años"=2017:2020,
           "Indicador_IHH_Mexico"=sapply(X=2017:2020,
            FUN = indicadores_IHH_Herfindahl_Hirschmann_anual,codigo_pais=484,normalizado=TRUE),
           "Indicador_IHH_USA"=sapply(X=2017:2020,
            FUN = indicadores_IHH_Herfindahl_Hirschmann_anual,codigo_pais=840,normalizado=TRUE),
           "Indicador_IHH_Canada"=sapply(X=2017:2020,
            FUN = indicadores_IHH_Herfindahl_Hirschmann_anual,codigo_pais=124,normalizado=TRUE))
IHH_M_E_C %>% 
kable(caption ="Cantidad en dolares importada, por cada dólar exportado a la región Sudamericana, en el año 2018-2019", digits =6,align = "l") %>% 
kable_styling(bootstrap_options = "striped", full_width = TRUE )%>%
add_footnote(label="Por cada dolar exportado a la region Sudamericana el pais importo 14.8860 dolares en 2018 y 15.0564 dolares en 2019. ,Elaboración propia con base en datos del BCR",notation="symbol")
Cantidad en dolares importada, por cada dólar exportado a la región Sudamericana, en el año 2018-2019
años Indicador_IHH_Mexico Indicador_IHH_USA Indicador_IHH_Canada
2017 0.016553 0.005591 0.123102
2018 0.018216 0.005661 0.008444
2019 0.014281 0.005873 0.119025
2020 0.006486 0.009010 0.052965
* Por cada dolar exportado a la region Sudamericana el pais importo 14.8860 dolares en 2018 y 15.0564 dolares en 2019. ,Elaboración propia con base en datos del BCR

3- Calcule las exportaciones totales de El Salvador hacia la región de África Oriental, para el periodo 2017-2020 son (en millones de US$)

library(dplyr)
library(kableExtra)
data_comercio_exterior_2020 %>% 
                 group_by(anio,region_intermedia) %>% 
                      summarise(Exportaciones_totales =sum(valor_fob)) %>%
                           select("anio","Exportaciones_totales","region_intermedia")%>%
                                  filter(anio %in% 2017:2020,region_intermedia =="África Oriental")%>% 
kable(caption ="Exportaciones totales de El Salvador hacia la región de África Oriental, para el periodo 2017-2020", digits = 4,align = "l") %>% 
kable_styling(bootstrap_options = "striped", full_width = TRUE )%>%
add_footnote(label="Elaboración propia con base en datos del BCR",notation="symbol")
Exportaciones totales de El Salvador hacia la región de África Oriental, para el periodo 2017-2020
anio Exportaciones_totales region_intermedia
2017 673422.80 África Oriental
2018 4012312.98 África Oriental
2019 843926.61 África Oriental
2020 3336.38 África Oriental
* Elaboración propia con base en datos del BCR

4- Obtenga el Saldo de la balanza comercial de El Salvador, con Latinoamérica, para el periodo 2017-2019, (en millones de US$)

library(dplyr)
library(kableExtra)
data_comercio_exterior_2020 %>% 
   group_by(anio,sub_region) %>% 
                      summarise(Exportaciones_totales =sum(valor_fob)/1e6,
                                Importaciones_totales =sum(valor_cif)/1e6)%>%
                                    mutate(saldo_bc=Exportaciones_totales-Importaciones_totales)%>%
                                         select("anio","saldo_bc","sub_region")%>%
                                              filter(anio %in% 2017:2019,sub_region =="América Latina Y El Caribe")%>% 
kable(caption ="Saldo de la balanza comercial de El Salvador, con América Latina Y El Caribe, para el periodo 2017-2019", digits =4,align = "l") %>% 
kable_styling(bootstrap_options = "striped", full_width = TRUE )%>%
add_footnote(label="Elaboración propia con base en datos del BCR",notation="symbol")
Saldo de la balanza comercial de El Salvador, con América Latina Y El Caribe, para el periodo 2017-2019
anio saldo_bc sub_region
2017 -1024.633 América Latina Y El Caribe
2018 -1221.259 América Latina Y El Caribe
2019 -1485.784 América Latina Y El Caribe
* Elaboración propia con base en datos del BCR

Ejercicios utilizando la Penn World Table.

Resuelva los siguientes requerimientos (es importante mostrar todos sus resultados en formato tabular):

A

1- Construya una función que le permita elegir el país y filtrar para un periodo(inicio,final), muestre su uso filtrando los datos para El Salvador, en el periodo de 1950-2014.

library(pwt9)
library(dplyr)
library(kableExtra) 
data("pwt9.0") 
options(scipen =999999)
funcion_consulta_pais<-function(iso_pais,anio_inicio,anio_final){ 
  enquo(iso_pais)->iso_pais 
  pwt9.0 %>% filter(isocode==!!iso_pais,
                    year>=anio_inicio,  
                    year<=anio_final)->ELS_TD
  return(ELS_TD) 
  }
funcion_consulta_pais(iso_pais ="SLV",1950,2014) %>% kable(caption ="Probando Función consulta paises, SLV 1950-2014", digits =1,align ="l") %>% kable_styling(bootstrap_options ="striped", full_width =TRUE)
Probando Función consulta paises, SLV 1950-2014
country isocode year currency rgdpe rgdpo pop emp avh hc ccon cda cgdpe cgdpo ck ctfp cwtfp rgdpna rconna rdana rkna rtfpna rwtfpna labsh delta xr pl_con pl_da pl_gdpo i_cig i_xm i_xr i_outlier cor_exp statcap csh_c csh_i csh_g csh_x csh_m csh_r pl_c pl_i pl_g pl_x pl_m pl_k
SLV-1950 El Salvador SLV 1950 US Dollar 1328.7 1163.0 2.0 NA NA 1.2 1106.2 1178.1 1276.2 1136.4 1489.4 NA NA 6510.5 6671.5 6988.9 14268.6 NA NA NA 0.0 1 0.1 0.1 0.1 extrapolated extrapolated market no NA NA 0.9 0.1 0.1 0.2 -0.3 0 0.1 0.1 0.1 0.1 0.1 0.2
SLV-1951 El Salvador SLV 1951 US Dollar 1406.2 1163.4 2.0 NA NA 1.2 1178.9 1267.0 1349.9 1105.5 1544.8 NA NA 6766.9 7134.1 7564.4 14326.2 NA NA NA 0.0 1 0.1 0.1 0.1 extrapolated extrapolated market no NA NA 0.9 0.1 0.1 0.2 -0.4 0 0.1 0.2 0.1 0.1 0.1 0.2
SLV-1952 El Salvador SLV 1952 US Dollar 1488.1 1253.5 2.1 NA NA 1.2 1251.2 1349.3 1420.9 1192.8 1588.6 NA NA 7264.3 7644.2 8094.0 14409.0 NA NA NA 0.0 1 0.1 0.1 0.1 extrapolated extrapolated market no NA NA 0.9 0.1 0.1 0.2 -0.4 0 0.1 0.2 0.1 0.1 0.1 0.2
SLV-1953 El Salvador SLV 1953 US Dollar 1593.6 1346.1 2.1 NA NA 1.2 1362.8 1464.0 1525.1 1305.6 1600.3 NA NA 7817.6 8292.7 8739.8 14508.4 NA NA NA 0.0 1 0.1 0.1 0.1 extrapolated extrapolated market no NA NA 0.9 0.1 0.1 0.2 -0.3 0 0.1 0.2 0.1 0.1 0.1 0.2
SLV-1954 El Salvador SLV 1954 US Dollar 1690.6 1356.9 2.2 NA NA 1.2 1451.0 1549.4 1615.6 1317.6 1580.2 NA NA 8021.8 8827.7 9217.7 14583.3 NA NA NA 0.0 1 0.1 0.1 0.1 extrapolated extrapolated market no NA NA 1.0 0.1 0.1 0.2 -0.4 0 0.1 0.2 0.1 0.2 0.1 0.2
SLV-1955 El Salvador SLV 1955 US Dollar 1753.4 1425.7 2.3 NA NA 1.2 1517.9 1618.2 1669.6 1384.1 1582.7 NA NA 8445.0 9284.1 9673.2 14673.4 NA NA NA 0.0 1 0.1 0.1 0.1 extrapolated extrapolated market no NA NA 1.0 0.1 0.1 0.2 -0.4 0 0.1 0.2 0.1 0.1 0.1 0.2
SLV-1956 El Salvador SLV 1956 US Dollar 1828.7 1514.2 2.3 NA NA 1.3 1564.4 1707.0 1730.1 1459.7 1657.9 NA NA 8990.8 9644.4 10412.6 15037.8 NA NA NA 0.0 1 0.1 0.1 0.1 extrapolated extrapolated market no NA NA 0.9 0.1 0.1 0.2 -0.4 0 0.1 0.2 0.1 0.1 0.1 0.2
SLV-1957 El Salvador SLV 1957 US Dollar 1975.5 1593.0 2.4 NA NA 1.3 1624.6 1784.3 1864.7 1527.8 1710.4 NA NA 9393.5 10034.3 10928.6 15464.8 NA NA NA 0.0 1 0.1 0.1 0.1 extrapolated extrapolated market no NA NA 0.9 0.1 0.1 0.2 -0.4 0 0.1 0.2 0.1 0.2 0.1 0.2
SLV-1958 El Salvador SLV 1958 US Dollar 1892.2 1650.9 2.5 NA NA 1.3 1628.0 1763.6 1785.9 1607.5 1703.7 NA NA 9519.5 10066.1 10701.7 15672.7 NA NA NA 0.0 1 0.1 0.1 0.1 extrapolated extrapolated market no NA NA 0.9 0.1 0.1 0.2 -0.3 0 0.1 0.2 0.1 0.1 0.1 0.2
SLV-1959 El Salvador SLV 1959 US Dollar 1908.1 1710.7 2.5 NA NA 1.3 1668.1 1771.1 1790.0 1664.5 1698.6 NA NA 9704.6 10381.5 10665.8 15646.0 NA NA NA 0.0 1 0.1 0.1 0.1 extrapolated extrapolated market no NA NA 0.9 0.1 0.1 0.2 -0.3 0 0.1 0.2 0.1 0.1 0.1 0.2
SLV-1960 El Salvador SLV 1960 US Dollar 1935.0 1727.9 2.6 NA NA 1.3 1713.0 1908.0 1833.1 1611.0 1723.0 NA NA 10141.4 10527.9 11719.5 16277.7 NA NA NA 0.0 1 0.1 0.1 0.1 extrapolated extrapolated market no NA NA 0.9 0.1 0.1 0.2 -0.4 0 0.1 0.2 0.1 0.1 0.1 0.2
SLV-1961 El Salvador SLV 1961 US Dollar 1988.4 1832.7 2.7 NA NA 1.3 1722.9 1888.9 1898.7 1738.6 1761.3 NA NA 10299.3 10425.4 11426.5 16665.3 NA NA NA 0.0 1 0.1 0.1 0.1 extrapolated extrapolated market no NA NA 0.8 0.1 0.1 0.2 -0.3 0 0.1 0.2 0.1 0.1 0.1 0.2
SLV-1962 El Salvador SLV 1962 US Dollar 2190.9 2056.0 2.8 NA NA 1.3 1908.8 2075.2 2094.6 2008.4 1795.5 NA NA 11393.6 11522.7 12500.4 17063.0 NA NA NA 0.0 1 0.1 0.1 0.1 extrapolated extrapolated market no NA NA 0.8 0.1 0.1 0.2 -0.3 0 0.1 0.2 0.1 0.1 0.1 0.2
SLV-1963 El Salvador SLV 1963 US Dollar 2263.0 2125.3 2.9 NA NA 1.3 2000.3 2183.8 2154.5 2091.8 1823.3 NA NA 11892.1 12173.6 13265.7 17543.1 NA NA NA 0.0 1 0.1 0.1 0.1 extrapolated extrapolated market no NA NA 0.8 0.1 0.1 0.3 -0.3 0 0.1 0.2 0.1 0.1 0.1 0.2
SLV-1964 El Salvador SLV 1964 US Dollar 2459.9 2274.7 3.0 NA NA 1.3 2139.1 2404.7 2332.5 2232.8 1897.5 NA NA 13026.6 13116.4 14919.8 18561.3 NA NA NA 0.1 1 0.1 0.1 0.1 extrapolated extrapolated market no NA NA 0.8 0.1 0.1 0.3 -0.3 0 0.1 0.2 0.1 0.1 0.1 0.2
SLV-1965 El Salvador SLV 1965 US Dollar 2638.4 2413.0 3.1 NA NA 1.3 2302.3 2551.6 2502.3 2375.6 1983.0 NA NA 13802.4 14112.0 15722.1 19365.0 NA NA NA 0.1 1 0.1 0.1 0.1 extrapolated extrapolated market no NA NA 0.8 0.1 0.1 0.2 -0.3 0 0.1 0.2 0.1 0.1 0.1 0.2
SLV-1966 El Salvador SLV 1966 US Dollar 2809.3 2571.7 3.2 NA NA 1.3 2499.6 2791.0 2666.6 2550.2 2106.6 NA NA 14927.1 15302.3 17257.2 20419.5 NA NA NA 0.1 1 0.1 0.1 0.1 extrapolated extrapolated market no NA NA 0.9 0.1 0.1 0.2 -0.3 0 0.1 0.2 0.1 0.1 0.1 0.2
SLV-1967 El Salvador SLV 1967 US Dollar 2962.0 2743.2 3.3 NA NA 1.3 2645.2 2897.4 2824.9 2745.1 2182.8 NA NA 15570.7 16075.0 17633.5 21093.6 NA NA NA 0.1 1 0.1 0.1 0.1 extrapolated extrapolated market no NA NA 0.8 0.1 0.1 0.2 -0.3 0 0.1 0.2 0.1 0.1 0.1 0.2
SLV-1968 El Salvador SLV 1968 US Dollar 2973.3 2871.8 3.4 NA NA 1.3 2685.8 2881.1 2844.1 2889.2 2199.8 NA NA 15887.0 16238.4 17227.9 21297.2 NA NA NA 0.1 1 0.1 0.1 0.1 extrapolated extrapolated market no NA NA 0.8 0.1 0.1 0.3 -0.3 0 0.1 0.2 0.1 0.1 0.1 0.2
SLV-1969 El Salvador SLV 1969 US Dollar 3072.1 2982.8 3.5 NA NA 1.3 2770.1 2991.3 2928.2 2991.9 2260.1 NA NA 16480.5 16726.6 17930.4 21689.3 NA NA NA 0.1 1 0.1 0.1 0.1 extrapolated extrapolated market no NA NA 0.8 0.1 0.2 0.2 -0.2 0 0.1 0.2 0.1 0.1 0.1 0.2
SLV-1970 El Salvador SLV 1970 US Dollar 3365.3 3070.2 3.7 NA NA 1.3 2927.8 3175.9 3199.6 3084.7 2350.4 NA NA 17229.6 17737.8 19129.1 22254.2 NA NA NA 0.1 1 0.1 0.1 0.1 extrapolated extrapolated market no NA NA 0.8 0.1 0.2 0.2 -0.2 0 0.1 0.2 0.1 0.1 0.1 0.2
SLV-1971 El Salvador SLV 1971 US Dollar 3400.1 3162.7 3.8 NA NA 1.3 2983.5 3288.7 3220.8 3166.8 2453.2 NA NA 18064.8 18239.4 20145.9 23028.0 NA NA NA 0.1 1 0.1 0.1 0.1 extrapolated extrapolated market no NA NA 0.8 0.1 0.1 0.2 -0.3 0 0.1 0.2 0.1 0.1 0.1 0.2
SLV-1972 El Salvador SLV 1972 US Dollar 3625.1 3332.8 3.9 NA NA 1.3 3142.8 3429.8 3420.3 3342.6 2626.7 NA NA 19058.4 19195.2 20843.3 24376.7 NA NA NA 0.1 1 0.1 0.1 0.1 extrapolated extrapolated market no NA NA 0.8 0.1 0.2 0.2 -0.3 0 0.1 0.2 0.1 0.1 0.1 0.2
SLV-1973 El Salvador SLV 1973 US Dollar 3889.2 3535.1 4.0 NA NA 1.3 3363.6 3739.7 3641.3 3510.5 2769.8 NA NA 20023.2 20695.4 23138.5 25351.5 NA NA NA 0.1 1 0.1 0.1 0.1 extrapolated extrapolated market no NA NA 0.8 0.1 0.2 0.2 -0.3 0 0.1 0.2 0.1 0.2 0.1 0.3
SLV-1974 El Salvador SLV 1974 US Dollar 3845.1 3708.9 4.1 NA NA 1.4 3419.4 3909.5 3613.5 3589.1 2981.4 NA NA 21304.8 21122.9 24593.1 26587.2 NA NA NA 0.1 1 0.1 0.1 0.1 extrapolated extrapolated market no NA NA 0.8 0.1 0.2 0.3 -0.4 0 0.1 0.2 0.1 0.2 0.2 0.3
SLV-1975 El Salvador SLV 1975 US Dollar 3991.9 3920.2 4.1 1.2 NA 1.4 3559.1 4010.1 3760.6 3768.4 3251.2 NA NA 22492.8 21941.9 24788.4 28534.6 NA NA NA 0.1 1 0.1 0.2 0.2 extrapolated extrapolated market no NA NA 0.8 0.1 0.2 0.3 -0.3 0 0.1 0.3 0.1 0.2 0.2 0.3
SLV-1976 El Salvador SLV 1976 US Dollar 4631.0 4075.1 4.2 1.3 NA 1.4 3937.2 4431.4 4343.8 3940.4 3467.6 NA NA 23378.4 24298.5 27443.9 30453.1 NA NA NA 0.1 1 0.2 0.2 0.2 extrapolated extrapolated market no NA NA 0.8 0.1 0.2 0.2 -0.4 0 0.2 0.3 0.1 0.3 0.2 0.4
SLV-1977 El Salvador SLV 1977 US Dollar 5449.4 4217.1 4.3 1.3 NA 1.4 4365.6 5064.4 5118.7 4090.6 3840.4 NA NA 24789.6 26910.2 32121.7 33198.9 NA NA NA 0.1 1 0.2 0.2 0.2 extrapolated extrapolated market no NA NA 0.9 0.2 0.2 0.2 -0.4 0 0.2 0.3 0.1 0.4 0.2 0.4
SLV-1978 El Salvador SLV 1978 US Dollar 5117.9 4515.6 4.4 1.4 NA 1.4 4523.7 5243.2 4799.0 4355.5 4239.0 NA NA 26388.0 27856.9 33214.9 35825.1 NA NA NA 0.1 1 0.2 0.2 0.2 extrapolated extrapolated market no NA NA 0.8 0.2 0.2 0.2 -0.4 0 0.2 0.3 0.2 0.3 0.2 0.4
SLV-1979 El Salvador SLV 1979 US Dollar 5126.8 4554.5 4.5 1.4 NA 1.4 4269.3 4817.5 4809.2 4363.9 4503.1 NA NA 25934.4 26117.2 29952.8 37426.4 NA NA NA 0.1 1 0.2 0.2 0.3 extrapolated extrapolated market no NA NA 0.8 0.1 0.2 0.3 -0.4 0 0.2 0.4 0.2 0.3 0.2 0.4
SLV-1980 El Salvador SLV 1980 US Dollar 4649.4 4278.8 4.6 1.4 NA 1.4 3981.8 4354.7 4395.1 4056.5 4601.4 NA NA 23680.8 24121.2 26371.4 37785.8 NA NA NA 0.1 1 0.3 0.3 0.3 benchmark extrapolated market no 0.5 NA 0.8 0.1 0.2 0.3 -0.4 0 0.3 0.4 0.2 0.3 0.3 0.4
SLV-1981 El Salvador SLV 1981 US Dollar 4158.9 4066.8 4.7 1.4 NA 1.4 3844.3 4213.6 3941.5 3838.3 4800.8 NA NA 21722.4 22492.0 24689.9 37937.4 NA NA NA 0.1 1 0.3 0.3 0.3 interpolated extrapolated market no NA NA 0.8 0.1 0.2 0.2 -0.3 0 0.3 0.4 0.2 0.3 0.3 0.5
SLV-1982 El Salvador SLV 1982 US Dollar 4018.6 4018.7 4.7 1.4 NA 1.5 3696.3 4042.0 3824.0 3818.8 4955.2 NA NA 20505.6 20884.3 22829.7 37910.2 NA NA NA 0.1 1 0.3 0.3 0.3 interpolated extrapolated market no NA NA 0.7 0.1 0.2 0.2 -0.3 0 0.3 0.5 0.2 0.3 0.3 0.5
SLV-1983 El Salvador SLV 1983 US Dollar 4132.6 4157.7 4.8 1.4 NA 1.5 3822.9 4145.3 3932.3 3985.5 4915.6 NA NA 20664.0 21008.3 22708.6 37828.4 NA NA NA 0.1 1 0.3 0.3 0.3 interpolated extrapolated market no NA NA 0.7 0.1 0.2 0.2 -0.3 0 0.4 0.5 0.2 0.3 0.4 0.5
SLV-1984 El Salvador SLV 1984 US Dollar 4359.0 4385.9 4.9 1.4 NA 1.5 4078.1 4414.8 4134.6 4203.6 5056.1 NA NA 21139.2 21835.7 23572.5 37889.2 NA NA NA 0.1 1 0.4 0.4 0.4 interpolated benchmark market no NA NA 0.7 0.1 0.2 0.2 -0.3 0 0.4 0.5 0.3 0.4 0.4 0.6
SLV-1985 El Salvador SLV 1985 US Dollar 4607.5 4457.2 4.9 1.4 NA 1.5 4401.0 4728.1 4395.9 4341.9 5212.9 NA NA 21556.8 22713.4 24274.5 38249.9 NA NA NA 0.1 1 0.4 0.4 0.4 interpolated benchmark market no NA NA 0.8 0.1 0.2 0.3 -0.3 0 0.5 0.6 0.3 0.4 0.4 0.7
SLV-1986 El Salvador SLV 1986 US Dollar 4992.9 4838.0 5.0 1.4 NA 1.5 4592.7 4999.5 4789.9 4753.4 5513.2 NA NA 21693.6 22798.4 24897.8 38841.2 NA NA NA 0.1 1 0.5 0.5 0.5 interpolated benchmark market no NA NA 0.7 0.1 0.2 0.3 -0.4 0 0.6 0.8 0.3 0.4 0.4 0.9
SLV-1987 El Salvador SLV 1987 US Dollar 5051.6 4840.5 5.1 1.5 NA 1.6 4786.6 5187.2 4842.9 4730.8 5833.6 NA NA 22276.8 23019.1 24972.5 39691.3 NA NA NA 0.1 1 0.6 0.6 0.6 interpolated benchmark market no NA NA 0.8 0.1 0.3 0.3 -0.4 0 0.7 0.9 0.3 0.5 0.5 1.0
SLV-1988 El Salvador SLV 1988 US Dollar 5382.8 5085.7 5.1 1.5 NA 1.6 5001.6 5500.9 5166.4 4977.9 6169.6 NA NA 22636.8 23238.7 25760.6 40608.0 NA NA NA 0.1 1 0.7 0.7 0.7 interpolated benchmark market no NA NA 0.7 0.1 0.3 0.2 -0.3 0 0.8 0.9 0.4 0.5 0.5 1.0
SLV-1989 El Salvador SLV 1989 US Dollar 5545.0 5135.8 5.2 1.6 NA 1.6 5268.3 5894.9 5337.0 5043.7 6527.5 NA NA 22874.4 23690.6 26922.2 41774.4 NA NA NA 0.1 1 0.8 0.8 0.8 interpolated benchmark market no NA NA 0.8 0.1 0.3 0.2 -0.4 0 0.9 1.0 0.4 0.5 0.5 1.1
SLV-1990 El Salvador SLV 1990 US Dollar 5535.1 4805.5 5.3 1.7 NA 1.6 5606.0 6046.1 5366.2 4701.3 6861.5 NA NA 23652.0 24139.1 26146.8 42318.5 NA NA NA 0.1 1 0.8 0.9 1.0 interpolated benchmark market no NA NA 0.9 0.1 0.3 0.4 -0.7 0 1.0 1.5 0.4 0.5 0.5 1.5
SLV-1991 El Salvador SLV 1991 US Dollar 5936.1 4939.2 5.3 1.7 NA 1.7 5953.3 6498.0 5734.9 4986.1 7202.9 NA NA 24497.9 24876.0 27400.7 43371.3 NA NA NA 0.0 1 0.9 0.9 1.1 interpolated benchmark market no NA NA 0.9 0.1 0.3 0.3 -0.6 0 1.0 1.5 0.4 0.5 0.5 1.5
SLV-1992 El Salvador SLV 1992 US Dollar 6504.2 5411.8 5.4 1.8 NA 1.7 6571.2 7304.6 6278.4 5206.1 7687.2 NA NA 26345.8 26750.5 30236.2 45022.5 NA NA NA 0.0 1 0.9 0.9 1.1 interpolated benchmark market no NA NA 1.0 0.1 0.3 0.4 -0.8 0 1.0 1.5 0.4 0.5 0.5 1.6
SLV-1993 El Salvador SLV 1993 US Dollar 7346.2 6345.9 5.5 1.9 NA 1.7 7273.7 8122.3 7078.1 6101.3 8461.3 NA NA 28287.4 28806.2 32671.1 47214.1 NA NA NA 0.0 1 0.9 1.0 1.1 interpolated benchmark market no NA NA 1.0 0.1 0.2 0.4 -0.8 0 1.0 1.5 0.4 0.5 0.5 1.6
SLV-1994 El Salvador SLV 1994 US Dollar 8207.6 6780.7 5.5 2.0 NA 1.7 8116.9 9098.4 7895.2 6775.1 9419.2 NA NA 29998.9 30968.7 35479.2 49824.1 NA NA NA 0.0 1 1.0 1.0 1.2 interpolated benchmark market no NA NA 1.0 0.1 0.2 0.5 -0.8 0 1.1 1.6 0.5 0.5 0.5 1.6
SLV-1995 El Salvador SLV 1995 US Dollar 9318.7 7888.3 5.6 2.0 NA 1.8 9281.1 10435.2 8986.6 7913.0 10640.5 NA NA 31917.8 33815.8 39097.1 53000.3 NA NA NA 0.1 1 1.0 1.1 1.2 interpolated benchmark market no NA NA 1.0 0.1 0.2 0.5 -0.8 0 1.1 1.6 0.5 0.5 0.6 1.6
SLV-1996 El Salvador SLV 1996 US Dollar 9934.7 8648.7 5.6 2.0 NA 1.8 9901.1 10819.8 9587.3 8671.4 11636.6 NA NA 32462.1 34372.5 38158.6 55270.5 NA NA NA 0.0 1 1.0 1.1 1.2 interpolated benchmark market no NA NA 1.0 0.1 0.2 0.5 -0.7 0 1.1 1.7 0.6 0.5 0.6 1.6
SLV-1997 El Salvador SLV 1997 US Dollar 10865.0 9510.3 5.7 2.0 NA 1.8 10656.5 11679.9 10460.3 9594.2 12896.6 NA NA 33840.6 35405.3 39482.6 57859.7 NA NA NA 0.0 1 1.0 1.1 1.2 interpolated benchmark market no NA NA 0.9 0.1 0.2 0.6 -0.8 0 1.1 1.6 0.6 0.5 0.5 1.5
SLV-1998 El Salvador SLV 1998 US Dollar 11822.4 9966.7 5.7 2.1 NA 1.8 11420.5 12730.7 11336.9 10310.1 14480.6 NA NA 35109.2 36252.9 41511.2 60866.6 NA NA NA 0.0 1 1.0 1.1 1.2 interpolated benchmark market no NA NA 0.9 0.1 0.2 0.6 -0.8 0 1.1 1.6 0.6 0.5 0.5 1.4
SLV-1999 El Salvador SLV 1999 US Dollar 12738.6 10614.2 5.8 2.1 NA 1.9 12412.8 13745.8 12235.4 11020.9 16210.3 NA NA 36320.1 37471.4 42427.1 63673.3 NA NA NA 0.0 1 1.0 1.0 1.1 interpolated benchmark market no NA 66.7 0.9 0.1 0.2 0.6 -0.8 0 1.0 1.5 0.6 0.5 0.5 1.4
SLV-2000 El Salvador SLV 2000 US Dollar 13578.5 11809.7 5.8 2.2 NA 1.9 13529.3 15016.8 13054.3 11989.0 18214.9 NA NA 37102.0 38822.0 43901.1 66648.9 NA NA NA 0.0 1 1.0 1.0 1.1 interpolated benchmark market no NA NA 0.9 0.1 0.2 0.7 -0.9 0 1.0 1.5 0.6 0.5 0.5 1.3
SLV-2001 El Salvador SLV 2001 US Dollar 14789.4 12413.9 5.8 2.2 NA 1.9 14839.5 16534.2 14277.9 12443.0 20437.5 NA NA 37736.0 40093.4 45452.2 69572.9 NA NA NA 0.0 1 0.9 1.0 1.1 interpolated benchmark market no NA NA 1.0 0.1 0.2 0.6 -1.0 0 1.0 1.4 0.6 0.4 0.5 1.2
SLV-2002 El Salvador SLV 2002 US Dollar 16034.2 13837.7 5.9 2.2 NA 1.9 15961.1 17768.1 15489.5 13999.2 22973.8 NA NA 38619.3 40673.9 45837.0 72607.6 NA NA NA 0.0 1 0.9 0.9 1.0 interpolated benchmark market no NA NA 1.0 0.1 0.2 0.6 -0.9 0 0.9 1.3 0.6 0.5 0.5 1.2
SLV-2003 El Salvador SLV 2003 US Dollar 17350.3 15385.3 5.9 2.2 NA 1.9 17365.4 19451.2 16781.8 15672.6 26116.7 NA NA 39507.7 41409.5 47055.9 75721.6 NA NA NA 0.0 1 0.9 0.9 1.0 interpolated benchmark market no NA NA 0.9 0.1 0.2 0.5 -0.8 0 0.9 1.2 0.6 0.5 0.5 1.1
SLV-2004 El Salvador SLV 2004 US Dollar 18765.1 16650.4 5.9 2.2 NA 1.9 19149.9 21319.1 18169.0 16952.9 30179.8 NA NA 40238.8 42535.2 47876.0 78393.3 NA NA NA 0.0 1 0.8 0.9 0.9 interpolated benchmark market no NA 68.3 1.0 0.1 0.2 0.5 -0.7 0 0.9 1.2 0.5 0.5 0.6 1.0
SLV-2005 El Salvador SLV 2005 US Dollar 20962.3 19788.2 5.9 2.2 NA 1.9 22115.6 24575.9 20735.3 19766.1 35501.4 NA NA 41672.3 44661.0 50177.7 81070.2 NA NA NA 0.0 1 0.8 0.8 0.9 interpolated benchmark market no NA 71.7 1.0 0.1 0.2 0.4 -0.7 0 0.8 1.1 0.5 0.5 0.6 0.9
SLV-2006 El Salvador SLV 2006 US Dollar 23670.1 22070.8 6.0 2.3 NA 2.0 25040.7 28038.2 23271.1 22347.1 42250.0 NA NA 43302.6 46758.6 53000.1 84467.6 NA NA NA 0.0 1 0.8 0.8 0.8 interpolated benchmark market no NA 71.7 1.0 0.1 0.1 0.4 -0.6 0 0.8 1.0 0.5 0.6 0.6 0.8
SLV-2007 El Salvador SLV 2007 US Dollar 26954.1 25463.7 6.0 2.4 NA 2.0 29046.2 32438.3 26499.2 25836.9 49601.4 NA NA 44965.5 49451.0 55837.3 88289.6 NA NA NA 0.0 1 0.7 0.8 0.8 interpolated benchmark market no NA 73.3 1.0 0.1 0.1 0.3 -0.6 0 0.8 1.0 0.5 0.6 0.6 0.7
SLV-2008 El Salvador SLV 2008 US Dollar 30053.3 28863.7 6.0 2.4 NA 2.0 33050.3 36672.1 29859.2 28644.2 57652.1 NA NA 45538.1 50258.5 56225.4 91446.3 NA NA NA 0.0 1 0.7 0.7 0.7 interpolated benchmark market no NA 83.3 1.0 0.1 0.1 0.3 -0.6 0 0.7 0.9 0.5 0.7 0.7 0.7
SLV-2009 El Salvador SLV 2009 US Dollar 32585.9 31136.0 6.0 2.4 NA 2.0 33882.8 37215.6 32227.4 31383.5 66042.6 NA NA 44111.4 45806.5 50506.8 92998.6 NA NA NA 0.0 1 0.6 0.6 0.7 interpolated benchmark market no NA 83.3 0.9 0.1 0.1 0.2 -0.4 0 0.6 0.8 0.5 0.7 0.6 0.7
SLV-2010 El Salvador SLV 2010 US Dollar 37684.8 37108.7 6.0 2.4 NA 2.0 39829.3 43812.2 37471.9 37264.9 77955.6 NA NA 44713.6 46830.7 51644.9 94734.9 NA NA NA 0.0 1 0.6 0.6 0.6 interpolated benchmark market no NA 90.0 0.9 0.1 0.1 0.2 -0.4 0 0.6 0.7 0.5 0.7 0.6 0.6
SLV-2011 El Salvador SLV 2011 US Dollar 45166.8 45704.8 6.1 2.4 NA 2.0 48017.3 53605.3 45166.8 45704.8 97264.7 NA NA 45704.8 48017.3 53605.3 97264.7 NA NA NA 0.0 1 0.5 0.5 0.5 benchmark benchmark market no 0.6 85.6 0.9 0.1 0.1 0.2 -0.4 0 0.5 0.6 0.5 0.7 0.6 0.5
SLV-2012 El Salvador SLV 2012 US Dollar 46164.4 47179.4 6.1 2.5 NA 2.1 49225.0 54663.9 46147.6 46956.7 99345.6 NA NA 46564.6 49170.9 54642.7 99598.2 NA NA NA 0.0 1 0.5 0.5 0.5 extrapolated benchmark market no NA 91.0 0.9 0.1 0.1 0.2 -0.4 0 0.5 0.6 0.5 0.7 0.6 0.5
SLV-2013 El Salvador SLV 2013 US Dollar 46742.5 47393.0 6.1 2.6 NA 2.1 49761.2 55572.1 46618.4 47147.3 103172.3 NA NA 47424.4 49694.7 55754.1 102483.9 NA NA NA 0.0 1 0.5 0.5 0.5 extrapolated benchmark market no NA 91.1 0.9 0.1 0.1 0.2 -0.4 0 0.5 0.6 0.5 0.7 0.6 0.5
SLV-2014 El Salvador SLV 2014 US Dollar 47903.3 48970.3 6.1 2.6 NA 2.1 50944.9 56342.7 47846.7 48643.6 107174.8 NA NA 48350.4 50767.7 56361.1 104730.7 NA NA NA 0.0 1 0.5 0.5 0.5 extrapolated benchmark market no NA 91.1 0.9 0.1 0.1 0.2 -0.3 0 0.5 0.6 0.6 0.7 0.6 0.5

2- Construya una función que le permita elegir todas las variables de la categoria “Trade detail”, muestre su uso para los datos de Argentina

library(pwt9)
library(dplyr)
library(kableExtra) 
data("pwt9.0") 
options(scipen =999999)
#Función consulta pais, para un periodo especifico
funcion_consulta_pais_Trade_Detail<-function(iso_pais,anio_inicio,anio_final){ 
  enquo(iso_pais)->iso_pais 
  pwt9.0 %>% filter(isocode==!!iso_pais,
                    year>=anio_inicio,  
                    year<=anio_final)%>%
    select(country,year,pl_x,pl_m,csh_x,csh_m)-> Argentina_Trade_Detail
  return(Argentina_Trade_Detail) 
}
funcion_consulta_pais_Trade_Detail(iso_pais = "ARG",1995,2005) %>%
  kable(caption ="Probando Función consulta paises Trade detail, Argentina 1995-2005", digits =1,align ="l") %>% kable_styling(bootstrap_options ="striped", full_width =TRUE)
Probando Función consulta paises Trade detail, Argentina 1995-2005
country year pl_x pl_m csh_x csh_m
ARG-1995 Argentina 1995 0.6 0.6 0.1 -0.1
ARG-1996 Argentina 1996 0.6 0.6 0.1 -0.1
ARG-1997 Argentina 1997 0.6 0.6 0.1 -0.1
ARG-1998 Argentina 1998 0.5 0.5 0.1 -0.1
ARG-1999 Argentina 1999 0.5 0.5 0.1 -0.1
ARG-2000 Argentina 2000 0.5 0.5 0.1 -0.1
ARG-2001 Argentina 2001 0.5 0.5 0.1 -0.1
ARG-2002 Argentina 2002 0.5 0.5 0.1 0.0
ARG-2003 Argentina 2003 0.5 0.5 0.1 -0.1
ARG-2004 Argentina 2004 0.6 0.5 0.1 -0.1
ARG-2005 Argentina 2005 0.6 0.6 0.1 -0.1

3- Use las funciones creadas en 1 y 2, para generar 2 dataframes, que muestren los datos de “México” y “Canadá” para el periodo 2000-2014

Probando funcion 1 para Mexico

funcion_consulta_pais(iso_pais ="MEX",2000,2014) %>% kable(caption ="Probando Función consulta paises, MEXICO 2000-2014", digits =1,align ="l") %>% kable_styling(bootstrap_options ="striped", full_width =TRUE)
Probando Función consulta paises, MEXICO 2000-2014
country isocode year currency rgdpe rgdpo pop emp avh hc ccon cda cgdpe cgdpo ck ctfp cwtfp rgdpna rconna rdana rkna rtfpna rwtfpna labsh delta xr pl_con pl_da pl_gdpo i_cig i_xm i_xr i_outlier cor_exp statcap csh_c csh_i csh_g csh_x csh_m csh_r pl_c pl_i pl_g pl_x pl_m pl_k
MEX-2000 Mexico MEX 2000 Mexican Peso 1241567 1203299 102.8 38.6 2174.0 2.4 976115.5 1233276 1210525 1196573 2683662 0.7 0.7 1458667 1084404 1414794 3850000 1.1 1.1 0.5 0 9.5 0.5 0.5 0.5 interpolated benchmark market no NA NA 0.7 0.2 0.1 0.3 -0.3 0 0.5 0.6 0.4 0.5 0.5 0.7
MEX-2001 Mexico MEX 2001 Mexican Peso 1249929 1211921 104.2 38.7 2145.5 2.4 1002729.4 1246226 1224590 1206757 2614578 0.7 0.7 1458188 1104663 1422147 4003552 1.1 1.1 0.5 0 9.3 0.6 0.6 0.6 interpolated benchmark market no NA NA 0.7 0.2 0.1 0.3 -0.3 0 0.6 0.6 0.4 0.5 0.5 0.8
MEX-2002 Mexico MEX 2002 Mexican Peso 1265801 1217542 105.6 39.6 2196.1 2.5 1021844.4 1259728 1243224 1219592 2552782 0.7 0.7 1469444 1119253 1433203 4150159 1.1 1.0 0.5 0 9.7 0.6 0.6 0.6 benchmark benchmark market no NA NA 0.7 0.2 0.1 0.3 -0.3 0 0.6 0.7 0.5 0.5 0.5 0.8
MEX-2003 Mexico MEX 2003 Mexican Peso 1307663 1254357 106.9 39.9 2142.7 2.5 1062501.9 1300092 1284939 1250878 2751030 0.7 0.7 1489874 1165511 1465882 4294486 1.1 1.0 0.5 0 10.8 0.5 0.6 0.6 interpolated benchmark market no NA NA 0.7 0.2 0.1 0.2 -0.3 0 0.5 0.7 0.5 0.6 0.5 0.7
MEX-2004 Mexico MEX 2004 Mexican Peso 1399936 1345215 108.3 41.2 2123.4 2.5 1114709.0 1384239 1376237 1344221 3077106 0.7 0.7 1552597 1225134 1551886 4461555 1.1 1.1 0.4 0 11.3 0.5 0.6 0.6 interpolated benchmark market no NA 74.4 0.7 0.2 0.1 0.2 -0.3 0 0.6 0.6 0.5 0.6 0.5 0.7
MEX-2005 Mexico MEX 2005 Mexican Peso 1462673 1458528 109.7 41.5 2188.8 2.5 1182328.0 1473434 1461590 1451331 3530969 0.7 0.7 1600348 1276755 1613770 4645160 1.1 1.1 0.4 0 10.9 0.6 0.6 0.6 benchmark benchmark market no 0.7 72.2 0.7 0.2 0.1 0.2 -0.3 0 0.6 0.7 0.5 0.6 0.6 0.7
MEX-2006 Mexico MEX 2006 Mexican Peso 1581637 1542631 111.4 43.1 2141.3 2.5 1244907.5 1576208 1571088 1546752 3770402 0.7 0.7 1679987 1343449 1719133 4852529 1.1 1.1 0.4 0 10.9 0.6 0.6 0.6 interpolated benchmark market no NA 68.9 0.7 0.2 0.1 0.3 -0.3 0 0.6 0.7 0.5 0.6 0.6 0.7
MEX-2007 Mexico MEX 2007 Mexican Peso 1654108 1615149 113.1 43.9 2125.3 2.6 1292900.2 1643707 1640507 1619805 3924124 0.7 0.7 1734164 1383181 1772975 5074072 1.1 1.1 0.4 0 10.9 0.6 0.6 0.6 interpolated benchmark market no NA 70.0 0.7 0.2 0.1 0.2 -0.3 0 0.6 0.7 0.5 0.7 0.6 0.8
MEX-2008 Mexico MEX 2008 Mexican Peso 1693705 1677677 115.0 45.0 2173.4 2.6 1345486.1 1729921 1692513 1672410 4036200 0.7 0.7 1758094 1411593 1826431 5305337 1.1 1.1 0.4 0 11.1 0.6 0.7 0.7 interpolated benchmark market no NA 77.8 0.7 0.2 0.2 0.2 -0.3 0 0.7 0.7 0.5 0.7 0.7 0.8
MEX-2009 Mexico MEX 2009 Mexican Peso 1613604 1573495 116.8 44.6 2081.6 2.6 1292132.4 1632260 1604184 1582176 4474887 0.7 0.7 1674696 1337705 1695299 5489144 1.0 1.0 0.4 0 13.5 0.5 0.6 0.6 interpolated benchmark market no NA 81.1 0.6 0.2 0.2 0.2 -0.2 0 0.6 0.6 0.4 0.7 0.6 0.6
MEX-2010 Mexico MEX 2010 Mexican Peso 1734610 1694514 118.6 48.3 2128.0 2.6 1381195.4 1742997 1728535 1697135 5054693 0.6 0.6 1761765 1405426 1779081 5671746 1.0 1.0 0.4 0 12.6 0.6 0.6 0.6 interpolated benchmark market no NA 85.6 0.6 0.2 0.2 0.2 -0.3 0 0.7 0.6 0.4 0.7 0.7 0.6
MEX-2011 Mexico MEX 2011 Mexican Peso 1857210 1830819 120.4 48.6 2132.3 2.6 1467974.5 1862050 1857210 1830819 5878632 0.6 0.6 1830819 1467975 1862050 5878632 1.0 1.0 0.4 0 12.4 0.6 0.6 0.6 benchmark benchmark market no 0.7 88.9 0.6 0.2 0.2 0.3 -0.3 0 0.7 0.7 0.4 0.7 0.7 0.6
MEX-2012 Mexico MEX 2012 Mexican Peso 1908250 1862729 122.1 50.8 2106.9 2.6 1535906.1 1947835 1903657 1851572 6089364 0.6 0.6 1904764 1537147 1954599 6096434 1.0 1.0 0.4 0 13.2 0.6 0.6 0.6 extrapolated benchmark market no NA 88.0 0.6 0.2 0.2 0.3 -0.3 0 0.7 0.7 0.4 0.7 0.7 0.6
MEX-2013 Mexico MEX 2013 Mexican Peso 1923613 1906050 123.7 51.2 2132.9 2.7 1567321.4 1961958 1910813 1891480 6357979 0.6 0.6 1931333 1568746 1977048 6297162 1.0 1.0 0.4 0 12.8 0.7 0.7 0.7 extrapolated benchmark market no NA 87.8 0.6 0.2 0.2 0.3 -0.3 0 0.7 0.7 0.4 0.8 0.7 0.6
MEX-2014 Mexico MEX 2014 Mexican Peso 1987688 1945966 125.4 51.4 2136.8 2.7 1602949.4 2009978 1974138 1934006 6677512 0.6 0.6 1974418 1601032 2025506 6498114 1.0 1.0 0.4 0 13.3 0.6 0.7 0.7 extrapolated benchmark market no NA 85.6 0.6 0.2 0.2 0.3 -0.3 0 0.7 0.7 0.4 0.8 0.7 0.6

Probando funcion 2 para Mexico

funcion_consulta_pais_Trade_Detail(iso_pais ="MEX",2000,2014) %>%
  kable(caption ="Probando Función consulta paises Trade detail, Mexico 2000-2014", digits =1,align ="l") %>% kable_styling(bootstrap_options ="striped", full_width =TRUE)
Probando Función consulta paises Trade detail, Mexico 2000-2014
country year pl_x pl_m csh_x csh_m
MEX-2000 Mexico 2000 0.5 0.5 0.3 -0.3
MEX-2001 Mexico 2001 0.5 0.5 0.3 -0.3
MEX-2002 Mexico 2002 0.5 0.5 0.3 -0.3
MEX-2003 Mexico 2003 0.6 0.5 0.2 -0.3
MEX-2004 Mexico 2004 0.6 0.5 0.2 -0.3
MEX-2005 Mexico 2005 0.6 0.6 0.2 -0.3
MEX-2006 Mexico 2006 0.6 0.6 0.3 -0.3
MEX-2007 Mexico 2007 0.7 0.6 0.2 -0.3
MEX-2008 Mexico 2008 0.7 0.7 0.2 -0.3
MEX-2009 Mexico 2009 0.7 0.6 0.2 -0.2
MEX-2010 Mexico 2010 0.7 0.7 0.2 -0.3
MEX-2011 Mexico 2011 0.7 0.7 0.3 -0.3
MEX-2012 Mexico 2012 0.7 0.7 0.3 -0.3
MEX-2013 Mexico 2013 0.8 0.7 0.3 -0.3
MEX-2014 Mexico 2014 0.8 0.7 0.3 -0.3

Probando funcion 1 para Canada

funcion_consulta_pais(iso_pais ="CAN",2000,2014) %>% kable(caption ="Probando Función consulta paises, CANADA 2000-2014", digits =1,align ="l") %>% kable_styling(bootstrap_options ="striped", full_width =TRUE)
Probando Función consulta paises, CANADA 2000-2014
country isocode year currency rgdpe rgdpo pop emp avh hc ccon cda cgdpe cgdpo ck ctfp cwtfp rgdpna rconna rdana rkna rtfpna rwtfpna labsh delta xr pl_con pl_da pl_gdpo i_cig i_xm i_xr i_outlier cor_exp statcap csh_c csh_i csh_g csh_x csh_m csh_r pl_c pl_i pl_g pl_x pl_m pl_k
CAN-2000 Canada CAN 2000 Canadian Dollar 1167052 1127565 30.7 14.9 1779.1 3.5 795599.8 1074248 1139711 1150584 3311462 0.9 0.8 1170880 762779.9 1027360 3784067 1 0.9 0.6 0 1.5 0.7 0.6 0.6 interpolated benchmark market no NA NA 0.5 0.2 0.1 0.4 -0.4 0 0.6 0.6 0.8 0.6 0.6 0.6
CAN-2001 Canada CAN 2001 Canadian Dollar 1166188 1119308 31.0 15.1 1768.0 3.5 814203.9 1079932 1145022 1144414 3268334 0.9 0.8 1190649 782785.5 1041029 3905941 1 0.9 0.6 0 1.5 0.7 0.6 0.6 interpolated benchmark market no NA NA 0.6 0.2 0.2 0.4 -0.4 0 0.6 0.5 0.8 0.5 0.5 0.6
CAN-2002 Canada CAN 2002 Canadian Dollar 1173454 1127791 31.3 15.5 1749.5 3.5 836753.2 1105706 1156510 1159323 3207820 0.9 0.8 1224009 808856.4 1073323 4024192 1 0.9 0.6 0 1.6 0.7 0.7 0.6 benchmark benchmark market no NA NA 0.6 0.2 0.2 0.4 -0.4 0 0.6 0.6 0.8 0.5 0.5 0.7
CAN-2003 Canada CAN 2003 Canadian Dollar 1211094 1184269 31.6 15.8 1732.1 3.5 858441.9 1148489 1194611 1200543 3349291 0.9 0.8 1247575 832796.8 1119539 4151862 1 0.9 0.6 0 1.4 0.8 0.7 0.7 interpolated benchmark market no NA NA 0.6 0.2 0.2 0.4 -0.3 0 0.7 0.6 1.0 0.6 0.6 0.8
CAN-2004 Canada CAN 2004 Canadian Dollar 1260986 1235663 31.9 16.2 1751.1 3.6 877820.4 1189845 1244977 1252623 3571504 0.9 0.8 1286734 855641.8 1164602 4297140 1 0.9 0.6 0 1.3 0.9 0.8 0.8 interpolated benchmark market no NA NA 0.6 0.2 0.2 0.4 -0.4 0 0.8 0.7 1.0 0.6 0.6 0.8
CAN-2005 Canada CAN 2005 Canadian Dollar 1311424 1323181 32.3 16.4 1739.2 3.6 918976.9 1263380 1315081 1326233 3865556 0.9 0.8 1327435 882079.1 1221829 4462552 1 1.0 0.6 0 1.2 0.9 0.9 0.9 benchmark benchmark market no 0.9 NA 0.5 0.3 0.1 0.4 -0.4 0 0.9 0.8 1.1 0.6 0.6 0.9
CAN-2006 Canada CAN 2006 Canadian Dollar 1343928 1342066 32.6 16.8 1733.2 3.6 940558.9 1304562 1340375 1357210 4208085 0.9 0.8 1362237 915601.1 1273821 4637972 1 1.0 0.6 0 1.1 1.0 1.0 1.0 interpolated benchmark market no NA NA 0.5 0.3 0.2 0.4 -0.4 0 1.0 0.9 1.2 0.6 0.6 1.0
CAN-2007 Canada CAN 2007 Canadian Dollar 1376870 1384391 33.0 17.3 1724.7 3.6 969776.7 1342214 1370408 1395106 4445640 0.9 0.8 1389595 950916.3 1319552 4812567 1 1.0 0.6 0 1.1 1.1 1.1 1.0 interpolated benchmark market no NA NA 0.5 0.3 0.2 0.4 -0.4 0 1.1 0.9 1.3 0.7 0.7 1.1
CAN-2008 Canada CAN 2008 Canadian Dollar 1404807 1456291 33.4 17.7 1713.4 3.6 1002613.3 1383169 1407829 1452164 4607176 0.9 0.8 1405929 982824.2 1358207 4983390 1 1.0 0.6 0 1.1 1.1 1.1 1.1 interpolated benchmark market no NA NA 0.5 0.3 0.2 0.4 -0.4 0 1.1 1.0 1.3 0.7 0.7 1.1
CAN-2009 Canada CAN 2009 Canadian Dollar 1310934 1304883 33.7 17.4 1678.5 3.6 1000717.9 1325223 1306457 1323073 4794360 0.8 0.8 1367808 994270.1 1323141 5106391 1 1.0 0.6 0 1.1 1.1 1.0 1.0 interpolated benchmark market no NA NA 0.6 0.2 0.2 0.3 -0.3 0 1.0 0.9 1.3 0.7 0.7 1.0
CAN-2010 Canada CAN 2010 Canadian Dollar 1371811 1387124 34.1 17.7 1685.5 3.7 1030334.4 1393576 1368504 1389695 5065393 0.8 0.8 1413961 1025854.7 1393300 5261183 1 1.0 0.6 0 1.0 1.2 1.2 1.2 interpolated benchmark market no NA NA 0.6 0.3 0.2 0.4 -0.4 0 1.2 1.0 1.4 0.7 0.7 1.1
CAN-2011 Canada CAN 2011 Canadian Dollar 1423920 1455816 34.5 18.1 1683.6 3.7 1045868.8 1440603 1423920 1455816 5427466 0.8 0.8 1455816 1045868.8 1440603 5427466 1 1.0 0.6 0 1.0 1.3 1.3 1.2 benchmark benchmark market no 0.8 NA 0.5 0.3 0.2 0.4 -0.4 0 1.3 1.1 1.5 0.7 0.7 1.2
CAN-2012 Canada CAN 2012 Canadian Dollar 1447882 1470333 34.9 18.3 1692.9 3.7 1064437.2 1469014 1443117 1454780 5597287 0.8 0.8 1483809 1063769.8 1472486 5605514 1 1.0 0.6 0 1.0 1.3 1.3 1.3 extrapolated benchmark market no NA NA 0.6 0.3 0.2 0.4 -0.4 0 1.3 1.1 1.5 0.7 0.7 1.2
CAN-2013 Canada CAN 2013 Canadian Dollar 1478439 1493624 35.2 18.7 1682.7 3.7 1086339.8 1488701 1465085 1472069 5828469 0.8 0.8 1513537 1084256.5 1500049 5779532 1 1.0 0.6 0 1.0 1.3 1.3 1.2 extrapolated benchmark market no NA NA 0.6 0.3 0.2 0.4 -0.4 0 1.2 1.1 1.5 0.7 0.7 1.1
CAN-2014 Canada CAN 2014 Canadian Dollar 1507209 1543374 35.6 18.8 1687.8 3.7 1109991.0 1505819 1492422 1522929 6097225 0.8 0.7 1550457 1104841.9 1518445 5949967 1 1.0 0.6 0 1.1 1.2 1.2 1.2 extrapolated benchmark market no NA NA 0.6 0.3 0.2 0.4 -0.4 0 1.2 1.1 1.4 0.7 0.8 1.1

Probando funcion 2 para Canada

funcion_consulta_pais_Trade_Detail(iso_pais ="CAN",2000,2014) %>%
  kable(caption ="Probando Función consulta paises Trade detail, Canada 2000-2014", digits =1,align ="l") %>% kable_styling(bootstrap_options ="striped", full_width =TRUE)
Probando Función consulta paises Trade detail, Canada 2000-2014
country year pl_x pl_m csh_x csh_m
CAN-2000 Canada 2000 0.6 0.6 0.4 -0.4
CAN-2001 Canada 2001 0.5 0.5 0.4 -0.4
CAN-2002 Canada 2002 0.5 0.5 0.4 -0.4
CAN-2003 Canada 2003 0.6 0.6 0.4 -0.3
CAN-2004 Canada 2004 0.6 0.6 0.4 -0.4
CAN-2005 Canada 2005 0.6 0.6 0.4 -0.4
CAN-2006 Canada 2006 0.6 0.6 0.4 -0.4
CAN-2007 Canada 2007 0.7 0.7 0.4 -0.4
CAN-2008 Canada 2008 0.7 0.7 0.4 -0.4
CAN-2009 Canada 2009 0.7 0.7 0.3 -0.3
CAN-2010 Canada 2010 0.7 0.7 0.4 -0.4
CAN-2011 Canada 2011 0.7 0.7 0.4 -0.4
CAN-2012 Canada 2012 0.7 0.7 0.4 -0.4
CAN-2013 Canada 2013 0.7 0.7 0.4 -0.4
CAN-2014 Canada 2014 0.7 0.8 0.4 -0.4

B

1- Construya una función que le permita elegir el país y filtrar para un periodo(inicio,final), muestre su uso filtrando los datos para Guatemala , en el periodo de 1990-2014.

library(pwt9)
library(dplyr)
library(kableExtra) 
data("pwt9.0") 
options(scipen =999999)
funcion_consulta_pais<-function(iso_pais,anio_inicio,anio_final){ 
  enquo(iso_pais)->iso_pais 
  pwt9.0 %>% filter(isocode==!!iso_pais,
                    year>=anio_inicio,  
                    year<=anio_final)->GTM_LD
  return(GTM_LD) 
  }
funcion_consulta_pais(iso_pais ="GTM",1990,2014) %>% kable(caption ="Probando Función consulta paises, GTM 1990-2014", digits =1,align ="l") %>% kable_styling(bootstrap_options ="striped", full_width =TRUE)
Probando Función consulta paises, GTM 1990-2014
country isocode year currency rgdpe rgdpo pop emp avh hc ccon cda cgdpe cgdpo ck ctfp cwtfp rgdpna rconna rdana rkna rtfpna rwtfpna labsh delta xr pl_con pl_da pl_gdpo i_cig i_xm i_xr i_outlier cor_exp statcap csh_c csh_i csh_g csh_x csh_m csh_r pl_c pl_i pl_g pl_x pl_m pl_k
GTM-1990 Guatemala GTM 1990 Quetzal 33234.6 34222.7 9.2 2.5 NA 1.5 32241.0 35134.4 33063.2 34293.3 45778.6 0.9 0.9 46215.4 41905.3 47471.4 126784.4 1.0 0.9 0.5 0.1 4.5 0.2 0.2 0.2 interpolated benchmark market no NA NA 0.8 0.1 0.1 0.1 -0.1 0.0 0.2 0.4 0.2 0.5 0.5 0.3
GTM-1991 Guatemala GTM 1991 Quetzal 35438.7 36470.8 9.4 2.6 NA 1.5 33555.4 37250.1 35158.6 36600.2 47208.3 0.9 0.9 47906.0 43432.1 50421.9 129355.2 1.0 0.9 0.5 0.1 5.0 0.2 0.2 0.2 interpolated benchmark market no NA NA 0.8 0.1 0.1 0.1 -0.1 0.0 0.2 0.4 0.2 0.5 0.5 0.3
GTM-1992 Guatemala GTM 1992 Quetzal 36326.2 37987.7 9.6 2.7 NA 1.5 35497.8 40458.9 35981.5 37812.5 49587.2 0.9 0.9 50223.9 45647.4 54848.9 133586.8 1.0 1.0 0.5 0.1 5.2 0.2 0.3 0.2 interpolated benchmark market no NA NA 0.8 0.1 0.1 0.1 -0.1 0.0 0.2 0.4 0.2 0.5 0.5 0.4
GTM-1993 Guatemala GTM 1993 Quetzal 38583.3 40375.7 9.9 2.8 NA 1.5 37369.7 42216.4 38180.7 40147.5 53500.3 0.9 0.9 52196.8 47680.4 56266.1 140097.1 1.0 1.0 0.5 0.1 5.6 0.2 0.3 0.3 interpolated benchmark market no NA NA 0.8 0.1 0.1 0.1 -0.1 0.0 0.3 0.4 0.2 0.5 0.5 0.3
GTM-1994 Guatemala GTM 1994 Quetzal 41145.2 42164.7 10.1 3.0 NA 1.6 39555.8 44458.9 40625.7 42118.2 57302.1 0.8 0.9 54301.9 49909.4 58601.2 144104.8 1.0 0.9 0.5 0.1 5.8 0.3 0.3 0.3 interpolated benchmark market no NA NA 0.8 0.1 0.1 0.1 -0.1 0.0 0.3 0.4 0.2 0.5 0.5 0.4
GTM-1995 Guatemala GTM 1995 Quetzal 43889.6 45114.5 10.4 3.0 NA 1.6 42208.8 47068.0 43522.3 45290.4 62316.2 0.9 0.9 56981.1 52361.3 60906.5 150601.8 1.0 0.9 0.5 0.1 5.8 0.3 0.3 0.3 interpolated benchmark market no NA NA 0.8 0.1 0.1 0.1 -0.1 0.0 0.3 0.4 0.2 0.5 0.5 0.3
GTM-1996 Guatemala GTM 1996 Quetzal 45516.4 46279.2 10.6 3.1 NA 1.6 43993.9 48135.5 45269.6 46609.7 66182.5 0.8 0.9 58669.1 53711.6 60829.8 154488.9 1.0 0.9 0.5 0.1 6.0 0.3 0.3 0.3 interpolated benchmark market no NA NA 0.9 0.1 0.1 0.1 -0.1 0.0 0.3 0.5 0.2 0.6 0.5 0.4
GTM-1997 Guatemala GTM 1997 Quetzal 48241.9 48901.3 10.9 3.2 NA 1.6 46064.6 51158.2 47688.0 49022.4 72300.2 0.8 0.8 61235.1 55940.7 64595.6 163422.1 1.0 0.9 0.5 0.1 6.1 0.3 0.3 0.3 interpolated benchmark market no NA NA 0.9 0.1 0.1 0.1 -0.2 0.0 0.3 0.5 0.3 0.5 0.5 0.3
GTM-1998 Guatemala GTM 1998 Quetzal 51417.2 51953.6 11.1 3.3 NA 1.6 48666.8 55740.6 50502.8 52091.2 79881.7 0.8 0.8 64293.3 58718.5 70643.4 172925.6 0.9 1.0 0.5 0.1 6.4 0.3 0.3 0.3 interpolated benchmark market no NA NA 0.8 0.1 0.1 0.1 -0.2 0.0 0.3 0.5 0.3 0.5 0.5 0.4
GTM-1999 Guatemala GTM 1999 Quetzal 53551.0 54882.2 11.4 3.4 NA 1.6 51127.0 58298.1 52587.8 54994.9 89127.0 0.8 0.8 66766.6 61015.4 72668.6 185427.2 0.9 0.9 0.5 0.1 7.4 0.3 0.3 0.3 interpolated benchmark market no NA 47.8 0.8 0.1 0.1 0.1 -0.2 0.0 0.3 0.4 0.3 0.5 0.5 0.3
GTM-2000 Guatemala GTM 2000 Quetzal 56102.1 57968.2 11.7 3.6 NA 1.7 53538.4 61430.3 55067.0 57636.4 96989.8 0.7 0.7 69175.8 63408.1 75548.2 192628.2 0.9 0.9 0.5 0.1 7.8 0.3 0.3 0.3 interpolated benchmark market no NA NA 0.8 0.1 0.1 0.1 -0.2 0.0 0.3 0.4 0.3 0.5 0.5 0.3
GTM-2001 Guatemala GTM 2001 Quetzal 58489.1 61418.7 12.0 3.7 NA 1.6 56344.4 65172.1 57608.4 61010.9 103967.5 0.7 0.8 70788.7 65909.3 78846.1 198709.3 0.9 0.9 0.5 0.1 7.9 0.3 0.3 0.3 interpolated benchmark market no NA NA 0.8 0.1 0.1 0.1 -0.2 0.0 0.3 0.4 0.3 0.5 0.5 0.4
GTM-2002 Guatemala GTM 2002 Quetzal 61456.7 63811.9 12.3 3.9 NA 1.6 58545.0 68691.8 60556.7 63553.1 112948.9 0.7 0.8 73525.9 67883.9 81973.3 205983.8 0.9 0.9 0.5 0.1 7.8 0.3 0.3 0.3 interpolated benchmark market no NA NA 0.8 0.2 0.1 0.1 -0.2 0.1 0.3 0.4 0.4 0.5 0.5 0.4
GTM-2003 Guatemala GTM 2003 Quetzal 63583.8 66275.4 12.6 4.0 NA 1.6 61206.7 71559.9 62545.6 66160.8 122840.9 0.7 0.7 75386.6 70127.8 84049.5 212495.2 0.9 0.9 0.5 0.1 7.9 0.3 0.4 0.3 interpolated benchmark market no NA NA 0.8 0.2 0.1 0.1 -0.2 0.0 0.3 0.4 0.4 0.5 0.5 0.4
GTM-2004 Guatemala GTM 2004 Quetzal 66131.6 69108.5 12.9 4.0 NA 1.6 63706.6 74806.2 64977.1 69019.6 136110.9 0.7 0.7 77762.9 72080.1 86489.9 218599.4 0.9 1.0 0.4 0.1 7.9 0.4 0.4 0.3 interpolated benchmark market no NA 81.1 0.8 0.2 0.1 0.1 -0.2 0.1 0.4 0.5 0.4 0.5 0.5 0.4
GTM-2005 Guatemala GTM 2005 Quetzal 68825.3 72399.2 13.2 4.2 NA 1.6 68320.2 79756.3 68791.5 72216.7 153376.9 0.7 0.7 80298.1 74991.0 89195.8 225095.9 0.9 1.0 0.4 0.1 7.6 0.4 0.4 0.4 interpolated benchmark market no NA 78.9 0.9 0.2 0.1 0.1 -0.3 0.0 0.4 0.5 0.4 0.6 0.5 0.4
GTM-2006 Guatemala GTM 2006 Quetzal 73486.2 76669.0 13.5 4.5 NA 1.6 72078.9 85189.2 72839.5 76602.5 173933.1 0.7 0.7 84617.9 78573.3 94445.4 234027.8 0.9 1.0 0.4 0.0 7.6 0.4 0.4 0.4 interpolated benchmark market no NA 80.0 0.9 0.2 0.1 0.1 -0.2 0.0 0.4 0.5 0.4 0.6 0.6 0.4
GTM-2007 Guatemala GTM 2007 Quetzal 79439.3 82025.2 13.8 4.5 NA 1.7 77205.1 91696.3 78528.7 82105.0 192681.0 0.7 0.7 89952.3 83017.8 100097.3 243391.2 1.0 1.0 0.4 0.0 7.7 0.4 0.4 0.4 interpolated benchmark market no NA 78.9 0.9 0.2 0.1 0.1 -0.3 0.0 0.4 0.5 0.4 0.6 0.6 0.4
GTM-2008 Guatemala GTM 2008 Quetzal 83265.5 85980.3 14.1 4.5 NA 1.7 82892.9 95164.7 82976.3 85649.1 209983.8 0.7 0.7 92903.7 87139.7 100861.8 251030.0 1.0 1.0 0.4 0.0 7.6 0.5 0.5 0.5 interpolated benchmark market no NA 82.2 0.9 0.1 0.1 0.1 -0.3 0.0 0.5 0.5 0.5 0.7 0.6 0.4
GTM-2009 Guatemala GTM 2009 Quetzal 87864.5 88414.6 14.4 4.5 NA 1.7 84656.9 95068.2 87094.7 88634.6 223994.4 0.7 0.7 93392.6 88072.6 99219.4 255899.8 1.0 0.9 0.4 0.0 8.2 0.4 0.4 0.4 interpolated benchmark market no NA 85.6 0.9 0.1 0.1 0.1 -0.2 0.0 0.4 0.5 0.4 0.7 0.6 0.4
GTM-2010 Guatemala GTM 2010 Quetzal 92085.6 93170.7 14.7 4.3 NA 1.8 89748.7 101272.5 91646.2 93270.4 241053.6 0.7 0.7 96072.4 91514.5 103506.6 260478.3 1.0 1.0 0.4 0.0 8.1 0.4 0.5 0.4 interpolated benchmark market no NA 85.6 0.9 0.1 0.1 0.1 -0.2 0.0 0.4 0.5 0.4 0.7 0.6 0.4
GTM-2011 Guatemala GTM 2011 Quetzal 98496.6 100070.9 15.0 4.5 NA 1.8 94919.2 109068.4 98496.6 100070.9 266095.2 0.7 0.7 100070.9 94919.2 109068.4 266095.2 1.0 1.0 0.4 0.0 7.8 0.5 0.5 0.5 benchmark benchmark market no 0.6 83.3 0.8 0.1 0.1 0.1 -0.3 0.0 0.5 0.5 0.5 0.7 0.6 0.4
GTM-2012 Guatemala GTM 2012 Quetzal 101200.2 102466.4 15.4 5.1 NA 1.8 98274.9 112493.7 101122.4 101964.9 272282.8 0.7 0.7 103043.0 98167.0 112555.0 272057.2 1.0 1.0 0.4 0.0 7.8 0.5 0.5 0.5 extrapolated benchmark market no NA 80.0 0.9 0.1 0.1 0.1 -0.3 0.0 0.5 0.5 0.5 0.7 0.6 0.4
GTM-2013 Guatemala GTM 2013 Quetzal 104637.7 105246.7 15.7 4.9 NA 1.8 102153.3 115864.6 104280.2 104663.1 281013.8 0.7 0.7 106852.9 101996.6 116153.3 277956.6 1.0 1.0 0.4 0.0 7.9 0.5 0.5 0.5 extrapolated benchmark market no NA 76.7 0.9 0.1 0.1 0.1 -0.3 0.0 0.5 0.6 0.5 0.7 0.6 0.4
GTM-2014 Guatemala GTM 2014 Quetzal 109715.6 110703.2 16.0 5.0 NA 1.8 106532.5 120539.6 109468.7 110100.0 292397.5 0.7 0.7 111393.9 106132.7 120700.0 284343.5 1.0 1.0 0.4 0.0 7.7 0.5 0.5 0.5 extrapolated benchmark market no NA 68.9 0.9 0.1 0.1 0.1 -0.3 0.0 0.5 0.6 0.5 0.7 0.6 0.4

2- Construya una función que le permita elegir todas las variables de la categoría “Labor detail”, muestre su uso para los datos de Argentina

library(pwt9)
library(dplyr)
library(kableExtra) 
data("pwt9.0") 
options(scipen =999999)
funcion_consulta_pais_Labor_Detail<-function(iso_pais,anio_inicio,anio_final){ 
  enquo(iso_pais)->iso_pais 
  pwt9.0 %>% filter(isocode==!!iso_pais,
                    year>=anio_inicio,  
                    year<=anio_final)%>%
    select(country,year,emp, avh, hc, labsh)-> Argentina_Trade_Detail
return(Argentina_Trade_Detail) 
}
funcion_consulta_pais_Labor_Detail(iso_pais = "ARG",2000,2010) %>%
  kable(caption ="Probando Función consulta paises Labor detail, Argentina 2000-2010", digits =1,align ="l") %>% kable_styling(bootstrap_options ="striped", full_width =TRUE)
Probando Función consulta paises Labor detail, Argentina 2000-2010
country year emp avh hc labsh
ARG-2000 Argentina 2000 13.1 1861.0 2.7 0.5
ARG-2001 Argentina 2001 13.0 1803.4 2.7 0.5
ARG-2002 Argentina 2002 13.0 1610.6 2.7 0.4
ARG-2003 Argentina 2003 13.7 1719.4 2.7 0.4
ARG-2004 Argentina 2004 14.7 1739.7 2.8 0.4
ARG-2005 Argentina 2005 15.3 1755.3 2.8 0.4
ARG-2006 Argentina 2006 15.9 1809.4 2.8 0.4
ARG-2007 Argentina 2007 16.4 1816.9 2.8 0.4
ARG-2008 Argentina 2008 16.8 1835.9 2.8 0.4
ARG-2009 Argentina 2009 17.0 1736.9 2.8 0.4
ARG-2010 Argentina 2010 17.5 1728.7 2.8 0.4

3- Use las funciones creadas en 1 y 2, para generar 2 dataframes, que muestren los datos de “EE.UU” y “Canadá” para el periodo 2000-2014

Probando funcion 1 para USA

funcion_consulta_pais(iso_pais ="USA",2000,2014) %>% kable(caption ="Probando Función consulta paises, USA 2000-2014", digits =1,align ="l") %>% kable_styling(bootstrap_options ="striped", full_width =TRUE)
Probando Función consulta paises, USA 2000-2014
country isocode year currency rgdpe rgdpo pop emp avh hc ccon cda cgdpe cgdpo ck ctfp cwtfp rgdpna rconna rdana rkna rtfpna rwtfpna labsh delta xr pl_con pl_da pl_gdpo i_cig i_xm i_xr i_outlier cor_exp statcap csh_c csh_i csh_g csh_x csh_m csh_r pl_c pl_i pl_g pl_x pl_m pl_k
USA-2000 United States of America USA 2000 US Dollar 13222419 13031820 282.9 139.3 1848.1 3.6 9977582 13511612 13035321 12983206 35997032 1 1 12975535 10500206 13647352 38439588 0.9 0.9 0.6 0.1 1 0.8 0.8 0.8 interpolated benchmark market no NA NA 0.7 0.3 0.1 0.1 -0.2 0 0.8 0.7 1.2 0.6 0.6 0.8
USA-2001 United States of America USA 2001 US Dollar 13355489 13127311 285.8 139.4 1823.8 3.6 10266814 13688775 13229581 13108072 37382932 1 1 13102174 10788220 13802928 39627500 0.9 0.9 0.6 0.1 1 0.8 0.8 0.8 interpolated benchmark market no NA NA 0.7 0.3 0.1 0.1 -0.2 0 0.8 0.7 1.2 0.6 0.6 0.8
USA-2002 United States of America USA 2002 US Dollar 13591523 13309916 288.5 139.1 1805.5 3.6 10524779 14027745 13503168 13339370 38467564 1 1 13336194 11088529 14123900 40679832 0.9 1.0 0.6 0.1 1 0.9 0.8 0.8 benchmark benchmark market no NA NA 0.7 0.3 0.1 0.1 -0.2 0 0.8 0.7 1.2 0.6 0.6 0.8
USA-2003 United States of America USA 2003 US Dollar 13961596 13679334 291.0 140.2 1782.3 3.6 10852183 14451386 13845560 13712711 39839628 1 1 13710512 11406928 14561711 41793132 1.0 1.0 0.6 0.0 1 0.9 0.8 0.8 interpolated benchmark market no NA NA 0.7 0.3 0.1 0.1 -0.1 0 0.8 0.7 1.2 0.6 0.6 0.8
USA-2004 United States of America USA 2004 US Dollar 14499944 14204685 293.5 141.6 1783.4 3.6 11251801 15090846 14366189 14232334 42071616 1 1 14229557 11796878 15181932 43024076 1.0 1.0 0.6 0.0 1 0.9 0.9 0.9 interpolated benchmark market no NA NA 0.7 0.3 0.1 0.1 -0.2 0 0.8 0.7 1.3 0.6 0.7 0.9
USA-2005 United States of America USA 2005 US Dollar 14958727 14683344 296.1 144.0 1779.6 3.6 11844568 15867237 15038908 14709193 45051164 1 1 14705564 12152636 15714073 44360180 1.0 1.0 0.6 0.0 1 0.9 0.9 0.9 benchmark benchmark market no 1 NA 0.7 0.3 0.1 0.1 -0.2 0 0.9 0.8 1.3 0.6 0.6 0.9
USA-2006 United States of America USA 2006 US Dollar 15353601 15083465 298.9 146.6 1778.5 3.6 12126527 16170304 15318001 15099868 47891040 1 1 15097712 12476968 16121374 45671956 1.0 1.0 0.6 0.0 1 0.9 0.9 0.9 interpolated benchmark market no NA NA 0.7 0.3 0.1 0.1 -0.2 0 0.9 0.8 1.3 0.7 0.7 0.9
USA-2007 United States of America USA 2007 US Dollar 15605977 15359941 301.7 148.2 1771.9 3.7 12419006 16287814 15517646 15368273 49404728 1 1 15366229 12736787 16304233 46844304 1.0 1.0 0.6 0.0 1 1.0 0.9 0.9 interpolated benchmark market no NA NA 0.7 0.3 0.1 0.1 -0.2 0 0.9 0.8 1.3 0.7 0.7 0.9
USA-2008 United States of America USA 2008 US Dollar 15357469 15305872 304.5 147.5 1761.3 3.7 12569281 16125585 15370500 15321926 50006724 1 1 15321422 12759836 16086510 47779436 1.0 1.0 0.6 0.0 1 1.0 1.0 1.0 interpolated benchmark market no NA NA 0.7 0.2 0.1 0.1 -0.2 0 0.9 0.9 1.3 0.8 0.8 1.0
USA-2009 United States of America USA 2009 US Dollar 15005201 14844276 307.2 142.1 1728.6 3.7 12451251 15338228 14928810 14896201 49243108 1 1 14896173 12685674 15474241 48245684 1.0 1.0 0.6 0.0 1 1.0 1.0 1.0 interpolated benchmark market no NA NA 0.7 0.2 0.1 0.1 -0.1 0 0.9 0.9 1.3 0.7 0.8 1.0
USA-2010 United States of America USA 2010 US Dollar 15368666 15250698 309.9 141.3 1738.0 3.7 12764841 15842214 15317448 15273702 48876336 1 1 15273331 12883714 15924426 48728140 1.0 1.0 0.6 0.0 1 1.0 1.0 1.0 interpolated benchmark market no NA NA 0.7 0.2 0.1 0.1 -0.2 0 0.9 0.9 1.3 0.7 0.8 1.0
USA-2011 United States of America USA 2011 US Dollar 15590957 15517930 312.4 142.2 1755.3 3.7 13049097 16173676 15590957 15517930 49279028 1 1 15517931 13049097 16173675 49279028 1.0 1.0 0.6 0.0 1 1.0 1.0 1.0 benchmark benchmark market no 1 NA 0.7 0.2 0.1 0.1 -0.2 0 1.0 0.9 1.3 0.8 0.8 1.0
USA-2012 United States of America USA 2012 US Dollar 15976742 15899255 314.8 144.9 1753.7 3.7 13206454 16505245 15946878 15863845 50020716 1 1 15863049 13182059 16509182 49960600 1.0 1.0 0.6 0.0 1 1.0 1.0 1.0 extrapolated benchmark market no NA NA 0.7 0.2 0.1 0.1 -0.2 0 1.0 0.9 1.3 0.8 0.8 1.0
USA-2013 United States of America USA 2013 US Dollar 16274530 16183547 317.1 146.2 1758.7 3.7 13356571 16668950 16175432 16100139 51340076 1 1 16099333 13302849 16715053 50633784 1.0 1.0 0.6 0.0 1 1.0 1.0 1.0 extrapolated benchmark market no NA NA 0.7 0.2 0.1 0.1 -0.2 0 1.0 1.0 1.3 0.8 0.8 1.0
USA-2014 United States of America USA 2014 US Dollar 16704698 16598099 319.4 148.5 1764.6 3.7 13685949 17113208 16605887 16490883 52849892 1 1 16490192 13585164 17137356 51190644 1.0 1.0 0.6 0.0 1 1.1 1.0 1.1 extrapolated benchmark market no NA NA 0.7 0.2 0.1 0.1 -0.2 0 1.0 1.0 1.4 0.8 0.8 1.1

Probando funcion 2 para USA

funcion_consulta_pais_Labor_Detail(iso_pais ="USA",2000,2014) %>%
  kable(caption ="Probando Función consulta paises Labor detail, USA 2000-2014", digits =1,align ="l") %>% kable_styling(bootstrap_options ="striped", full_width =TRUE)
Probando Función consulta paises Labor detail, USA 2000-2014
country year emp avh hc labsh
USA-2000 United States of America 2000 139.3 1848.1 3.6 0.6
USA-2001 United States of America 2001 139.4 1823.8 3.6 0.6
USA-2002 United States of America 2002 139.1 1805.5 3.6 0.6
USA-2003 United States of America 2003 140.2 1782.3 3.6 0.6
USA-2004 United States of America 2004 141.6 1783.4 3.6 0.6
USA-2005 United States of America 2005 144.0 1779.6 3.6 0.6
USA-2006 United States of America 2006 146.6 1778.5 3.6 0.6
USA-2007 United States of America 2007 148.2 1771.9 3.7 0.6
USA-2008 United States of America 2008 147.5 1761.3 3.7 0.6
USA-2009 United States of America 2009 142.1 1728.6 3.7 0.6
USA-2010 United States of America 2010 141.3 1738.0 3.7 0.6
USA-2011 United States of America 2011 142.2 1755.3 3.7 0.6
USA-2012 United States of America 2012 144.9 1753.7 3.7 0.6
USA-2013 United States of America 2013 146.2 1758.7 3.7 0.6
USA-2014 United States of America 2014 148.5 1764.6 3.7 0.6

Probando funcion 1 para Canada

funcion_consulta_pais(iso_pais ="CAN",2000,2014) %>% kable(caption ="Probando Función consulta paises, CAN 2000-2014", digits =1,align ="l") %>% kable_styling(bootstrap_options ="striped", full_width =TRUE)
Probando Función consulta paises, CAN 2000-2014
country isocode year currency rgdpe rgdpo pop emp avh hc ccon cda cgdpe cgdpo ck ctfp cwtfp rgdpna rconna rdana rkna rtfpna rwtfpna labsh delta xr pl_con pl_da pl_gdpo i_cig i_xm i_xr i_outlier cor_exp statcap csh_c csh_i csh_g csh_x csh_m csh_r pl_c pl_i pl_g pl_x pl_m pl_k
CAN-2000 Canada CAN 2000 Canadian Dollar 1167052 1127565 30.7 14.9 1779.1 3.5 795599.8 1074248 1139711 1150584 3311462 0.9 0.8 1170880 762779.9 1027360 3784067 1 0.9 0.6 0 1.5 0.7 0.6 0.6 interpolated benchmark market no NA NA 0.5 0.2 0.1 0.4 -0.4 0 0.6 0.6 0.8 0.6 0.6 0.6
CAN-2001 Canada CAN 2001 Canadian Dollar 1166188 1119308 31.0 15.1 1768.0 3.5 814203.9 1079932 1145022 1144414 3268334 0.9 0.8 1190649 782785.5 1041029 3905941 1 0.9 0.6 0 1.5 0.7 0.6 0.6 interpolated benchmark market no NA NA 0.6 0.2 0.2 0.4 -0.4 0 0.6 0.5 0.8 0.5 0.5 0.6
CAN-2002 Canada CAN 2002 Canadian Dollar 1173454 1127791 31.3 15.5 1749.5 3.5 836753.2 1105706 1156510 1159323 3207820 0.9 0.8 1224009 808856.4 1073323 4024192 1 0.9 0.6 0 1.6 0.7 0.7 0.6 benchmark benchmark market no NA NA 0.6 0.2 0.2 0.4 -0.4 0 0.6 0.6 0.8 0.5 0.5 0.7
CAN-2003 Canada CAN 2003 Canadian Dollar 1211094 1184269 31.6 15.8 1732.1 3.5 858441.9 1148489 1194611 1200543 3349291 0.9 0.8 1247575 832796.8 1119539 4151862 1 0.9 0.6 0 1.4 0.8 0.7 0.7 interpolated benchmark market no NA NA 0.6 0.2 0.2 0.4 -0.3 0 0.7 0.6 1.0 0.6 0.6 0.8
CAN-2004 Canada CAN 2004 Canadian Dollar 1260986 1235663 31.9 16.2 1751.1 3.6 877820.4 1189845 1244977 1252623 3571504 0.9 0.8 1286734 855641.8 1164602 4297140 1 0.9 0.6 0 1.3 0.9 0.8 0.8 interpolated benchmark market no NA NA 0.6 0.2 0.2 0.4 -0.4 0 0.8 0.7 1.0 0.6 0.6 0.8
CAN-2005 Canada CAN 2005 Canadian Dollar 1311424 1323181 32.3 16.4 1739.2 3.6 918976.9 1263380 1315081 1326233 3865556 0.9 0.8 1327435 882079.1 1221829 4462552 1 1.0 0.6 0 1.2 0.9 0.9 0.9 benchmark benchmark market no 0.9 NA 0.5 0.3 0.1 0.4 -0.4 0 0.9 0.8 1.1 0.6 0.6 0.9
CAN-2006 Canada CAN 2006 Canadian Dollar 1343928 1342066 32.6 16.8 1733.2 3.6 940558.9 1304562 1340375 1357210 4208085 0.9 0.8 1362237 915601.1 1273821 4637972 1 1.0 0.6 0 1.1 1.0 1.0 1.0 interpolated benchmark market no NA NA 0.5 0.3 0.2 0.4 -0.4 0 1.0 0.9 1.2 0.6 0.6 1.0
CAN-2007 Canada CAN 2007 Canadian Dollar 1376870 1384391 33.0 17.3 1724.7 3.6 969776.7 1342214 1370408 1395106 4445640 0.9 0.8 1389595 950916.3 1319552 4812567 1 1.0 0.6 0 1.1 1.1 1.1 1.0 interpolated benchmark market no NA NA 0.5 0.3 0.2 0.4 -0.4 0 1.1 0.9 1.3 0.7 0.7 1.1
CAN-2008 Canada CAN 2008 Canadian Dollar 1404807 1456291 33.4 17.7 1713.4 3.6 1002613.3 1383169 1407829 1452164 4607176 0.9 0.8 1405929 982824.2 1358207 4983390 1 1.0 0.6 0 1.1 1.1 1.1 1.1 interpolated benchmark market no NA NA 0.5 0.3 0.2 0.4 -0.4 0 1.1 1.0 1.3 0.7 0.7 1.1
CAN-2009 Canada CAN 2009 Canadian Dollar 1310934 1304883 33.7 17.4 1678.5 3.6 1000717.9 1325223 1306457 1323073 4794360 0.8 0.8 1367808 994270.1 1323141 5106391 1 1.0 0.6 0 1.1 1.1 1.0 1.0 interpolated benchmark market no NA NA 0.6 0.2 0.2 0.3 -0.3 0 1.0 0.9 1.3 0.7 0.7 1.0
CAN-2010 Canada CAN 2010 Canadian Dollar 1371811 1387124 34.1 17.7 1685.5 3.7 1030334.4 1393576 1368504 1389695 5065393 0.8 0.8 1413961 1025854.7 1393300 5261183 1 1.0 0.6 0 1.0 1.2 1.2 1.2 interpolated benchmark market no NA NA 0.6 0.3 0.2 0.4 -0.4 0 1.2 1.0 1.4 0.7 0.7 1.1
CAN-2011 Canada CAN 2011 Canadian Dollar 1423920 1455816 34.5 18.1 1683.6 3.7 1045868.8 1440603 1423920 1455816 5427466 0.8 0.8 1455816 1045868.8 1440603 5427466 1 1.0 0.6 0 1.0 1.3 1.3 1.2 benchmark benchmark market no 0.8 NA 0.5 0.3 0.2 0.4 -0.4 0 1.3 1.1 1.5 0.7 0.7 1.2
CAN-2012 Canada CAN 2012 Canadian Dollar 1447882 1470333 34.9 18.3 1692.9 3.7 1064437.2 1469014 1443117 1454780 5597287 0.8 0.8 1483809 1063769.8 1472486 5605514 1 1.0 0.6 0 1.0 1.3 1.3 1.3 extrapolated benchmark market no NA NA 0.6 0.3 0.2 0.4 -0.4 0 1.3 1.1 1.5 0.7 0.7 1.2
CAN-2013 Canada CAN 2013 Canadian Dollar 1478439 1493624 35.2 18.7 1682.7 3.7 1086339.8 1488701 1465085 1472069 5828469 0.8 0.8 1513537 1084256.5 1500049 5779532 1 1.0 0.6 0 1.0 1.3 1.3 1.2 extrapolated benchmark market no NA NA 0.6 0.3 0.2 0.4 -0.4 0 1.2 1.1 1.5 0.7 0.7 1.1
CAN-2014 Canada CAN 2014 Canadian Dollar 1507209 1543374 35.6 18.8 1687.8 3.7 1109991.0 1505819 1492422 1522929 6097225 0.8 0.7 1550457 1104841.9 1518445 5949967 1 1.0 0.6 0 1.1 1.2 1.2 1.2 extrapolated benchmark market no NA NA 0.6 0.3 0.2 0.4 -0.4 0 1.2 1.1 1.4 0.7 0.8 1.1

Probando funcion 2 para Canada

funcion_consulta_pais_Labor_Detail(iso_pais ="CAN",2000,2014) %>%
kable(caption ="Probando Función consulta paises Labor detail, CAN 2000-2014", digits =1,align ="l") %>% kable_styling(bootstrap_options ="striped", full_width =TRUE)
Probando Función consulta paises Labor detail, CAN 2000-2014
country year emp avh hc labsh
CAN-2000 Canada 2000 14.9 1779.1 3.5 0.6
CAN-2001 Canada 2001 15.1 1768.0 3.5 0.6
CAN-2002 Canada 2002 15.5 1749.5 3.5 0.6
CAN-2003 Canada 2003 15.8 1732.1 3.5 0.6
CAN-2004 Canada 2004 16.2 1751.1 3.6 0.6
CAN-2005 Canada 2005 16.4 1739.2 3.6 0.6
CAN-2006 Canada 2006 16.8 1733.2 3.6 0.6
CAN-2007 Canada 2007 17.3 1724.7 3.6 0.6
CAN-2008 Canada 2008 17.7 1713.4 3.6 0.6
CAN-2009 Canada 2009 17.4 1678.5 3.6 0.6
CAN-2010 Canada 2010 17.7 1685.5 3.7 0.6
CAN-2011 Canada 2011 18.1 1683.6 3.7 0.6
CAN-2012 Canada 2012 18.3 1692.9 3.7 0.6
CAN-2013 Canada 2013 18.7 1682.7 3.7 0.6
CAN-2014 Canada 2014 18.8 1687.8 3.7 0.6

C

1- Construya una función que le permita elegir el país y filtrar para un periodo(inicio,final), muestre su uso filtrando los datos para Honduras, en el periodo de 1990

library(pwt9)
library(dplyr)
library(kableExtra) 
data("pwt9.0") 
options(scipen =999999)
funcion_consulta_pais<-function(iso_pais,anio_inicio,anio_final){ 
  enquo(iso_pais)->iso_pais 
  pwt9.0 %>% filter(isocode==!!iso_pais,
                    year>=anio_inicio,  
                    year<=anio_final)->HND_CD
  return(HND_CD) 
  }
funcion_consulta_pais(iso_pais ="HND",1990,1990) %>% kable(caption ="Probando Función consulta paises, HND 1990", digits =1,align ="l") %>% kable_styling(bootstrap_options ="striped", full_width =TRUE)
Probando Función consulta paises, HND 1990
country isocode year currency rgdpe rgdpo pop emp avh hc ccon cda cgdpe cgdpo ck ctfp cwtfp rgdpna rconna rdana rkna rtfpna rwtfpna labsh delta xr pl_con pl_da pl_gdpo i_cig i_xm i_xr i_outlier cor_exp statcap csh_c csh_i csh_g csh_x csh_m csh_r pl_c pl_i pl_g pl_x pl_m pl_k
HND-1990 Honduras HND 1990 Lempira 13869.7 14480 4.9 1.2 NA 1.8 12349.6 14292.9 14019.5 14777.8 24019.2 0.6 0.6 15670.5 14036.9 16844.1 46727.6 1.2 1.2 0.6 0 4.1 0.2 0.3 0.2 interpolated benchmark market no NA NA 0.7 0.1 0.1 0.1 -0.1 0.1 0.2 0.4 0.3 0.5 0.5 0.4

2- Construya una función que le permita elegir todas las variables de la categoría “Capital detail”, muestre su uso para los datos de Panamá

library(pwt9)
library(dplyr)
library(kableExtra) 
data("pwt9.0") 
options(scipen =999999)
funcion_consulta_pais_capital_detail<-function(iso_pais,anio_inicio,anio_final){ 
  enquo(iso_pais)->iso_pais 
  pwt9.0 %>% filter(isocode==!!iso_pais,
                    year>=anio_inicio,  
                    year<=anio_final)%>%
                    select(country,year,ck,rkna,pl_k)->PNM
 return(PNM) 
  }
funcion_consulta_pais_capital_detail(iso_pais ="PAN",1970,2001) %>% kable(caption ="Probando Función consulta paises, Panama 1970:2001", digits =1,align ="l") %>% kable_styling(bootstrap_options ="striped", full_width =TRUE)
Probando Función consulta paises, Panama 1970:2001
country year ck rkna pl_k
PAN-1970 Panama 1970 8744.9 16607.6 0.2
PAN-1971 Panama 1971 9853.1 18485.3 0.2
PAN-1972 Panama 1972 11258.1 20871.1 0.2
PAN-1973 Panama 1973 12697.5 23114.2 0.2
PAN-1974 Panama 1974 14108.2 24912.7 0.3
PAN-1975 Panama 1975 15473.7 26847.1 0.3
PAN-1976 Panama 1976 16559.0 28760.0 0.3
PAN-1977 Panama 1977 17266.5 29532.2 0.3
PAN-1978 Panama 1978 18411.5 30826.6 0.4
PAN-1979 Panama 1979 19512.7 32049.5 0.4
PAN-1980 Panama 1980 20876.9 33797.9 0.4
PAN-1981 Panama 1981 22641.3 36217.0 0.4
PAN-1982 Panama 1982 24276.0 38632.2 0.4
PAN-1983 Panama 1983 24367.4 39796.4 0.5
PAN-1984 Panama 1984 24464.8 40627.0 0.4
PAN-1985 Panama 1985 24666.5 41321.0 0.5
PAN-1986 Panama 1986 25712.5 42623.7 0.5
PAN-1987 Panama 1987 26721.9 44186.4 0.5
PAN-1988 Panama 1988 26434.9 43668.6 0.4
PAN-1989 Panama 1989 25723.7 42711.3 0.5
PAN-1990 Panama 1990 25448.7 42280.0 0.5
PAN-1991 Panama 1991 25695.9 43114.4 0.5
PAN-1992 Panama 1992 26580.9 44983.6 0.5
PAN-1993 Panama 1993 28817.3 48241.7 0.5
PAN-1994 Panama 1994 31240.9 51560.6 0.5
PAN-1995 Panama 1995 34024.9 55079.7 0.5
PAN-1996 Panama 1996 36206.4 58254.4 0.5
PAN-1997 Panama 1997 39246.6 61684.6 0.5
PAN-1998 Panama 1998 43127.2 65850.3 0.5
PAN-1999 Panama 1999 47489.8 70507.2 0.5
PAN-2000 Panama 2000 51416.7 74266.6 0.5
PAN-2001 Panama 2001 53947.7 75946.8 0.4

3- Use las funciones creadas en 1 y 2, para generar 2 dataframes, que muestren los datos de “EE.UU” y “Reino Unido” para el periodo 1990-2000

Probando funcion 1 para EEUU

funcion_consulta_pais(iso_pais ="USA",1990,2000) %>% kable(caption ="Probando Función consulta paises, EEUU 1990-2000", digits =1,align ="l") %>% kable_styling(bootstrap_options ="striped", full_width =TRUE)
Probando Función consulta paises, EEUU 1990-2000
country isocode year currency rgdpe rgdpo pop emp avh hc ccon cda cgdpe cgdpo ck ctfp cwtfp rgdpna rconna rdana rkna rtfpna rwtfpna labsh delta xr pl_con pl_da pl_gdpo i_cig i_xm i_xr i_outlier cor_exp statcap csh_c csh_i csh_g csh_x csh_m csh_r pl_c pl_i pl_g pl_x pl_m pl_k
USA-1990 United States of America USA 1990 US Dollar 9203227 9203558 252.8 123.4 1793.3 3.4 7180793 9379958 9259331 9259567 26453210 1 1 9241600 7644560 9454309 29208678 0.8 0.8 0.6 0.1 1 0.7 0.6 0.6 interpolated benchmark market no NA NA 0.7 0.2 0.1 0.1 -0.1 0 0.6 0.6 1.0 0.6 0.6 0.6
USA-1991 United States of America USA 1991 US Dollar 9191710 9171585 255.4 122.0 1782.9 3.5 7177849 9287654 9244829 9248708 26586270 1 1 9234885 7681240 9385194 29807548 0.8 0.8 0.6 0.1 1 0.7 0.7 0.7 interpolated benchmark market no NA NA 0.7 0.2 0.1 0.1 -0.1 0 0.6 0.6 1.0 0.7 0.7 0.7
USA-1992 United States of America USA 1992 US Dollar 9530917 9509170 257.9 122.2 1773.5 3.5 7393262 9636033 9585170 9573914 26769574 1 1 9563208 7915272 9717433 30447546 0.8 0.8 0.6 0.1 1 0.7 0.7 0.7 interpolated benchmark market no NA NA 0.7 0.2 0.1 0.1 -0.1 0 0.7 0.6 1.0 0.6 0.6 0.7
USA-1993 United States of America USA 1993 US Dollar 9827602 9786068 260.5 123.6 1789.8 3.5 7598004 9976447 9882773 9835906 27514982 1 1 9825721 8133447 10036044 31142584 0.8 0.8 0.6 0.1 1 0.7 0.7 0.7 interpolated benchmark market no NA NA 0.7 0.2 0.1 0.1 -0.1 0 0.7 0.6 1.1 0.6 0.6 0.7
USA-1994 United States of America USA 1994 US Dollar 10262589 10205495 263.3 126.2 1805.2 3.5 7875691 10382788 10252747 10232211 28433732 1 1 10222333 8395977 10477239 31914476 0.9 0.8 0.6 0.1 1 0.7 0.7 0.7 interpolated benchmark market no NA NA 0.7 0.2 0.1 0.1 -0.1 0 0.7 0.6 1.1 0.6 0.6 0.7
USA-1995 United States of America USA 1995 US Dollar 10550124 10501270 266.3 128.0 1822.3 3.5 8141430 10649630 10526347 10519550 29573488 1 1 10511666 8603863 10745698 32739804 0.9 0.8 0.6 0.1 1 0.8 0.7 0.7 extrapolated benchmark market no NA NA 0.7 0.2 0.1 0.1 -0.1 0 0.7 0.6 1.1 0.7 0.7 0.7
USA-1996 United States of America USA 1996 US Dollar 10988194 10926444 269.5 129.9 1818.6 3.5 8440640 11059940 10929891 10918888 30426092 1 1 10910675 8855808 11165208 33669848 0.9 0.8 0.6 0.1 1 0.8 0.7 0.7 benchmark benchmark market no 1 NA 0.7 0.2 0.1 0.1 -0.1 0 0.7 0.7 1.2 0.7 0.7 0.7
USA-1997 United States of America USA 1997 US Dollar 11538199 11437019 272.9 132.9 1830.8 3.5 8705518 11552962 11417703 11409474 31494458 1 1 11400236 9158386 11695571 34694968 0.9 0.9 0.6 0.1 1 0.8 0.8 0.8 interpolated benchmark market no NA NA 0.7 0.2 0.1 0.1 -0.1 0 0.7 0.7 1.2 0.6 0.7 0.8
USA-1998 United States of America USA 1998 US Dollar 12132393 11956923 276.4 135.1 1842.8 3.6 9099003 12138236 11924765 11916442 32851262 1 1 11907535 9590438 12341446 35854404 0.9 0.9 0.6 0.1 1 0.8 0.8 0.8 interpolated benchmark market no NA NA 0.7 0.3 0.1 0.1 -0.1 0 0.7 0.7 1.2 0.6 0.6 0.8
USA-1999 United States of America USA 1999 US Dollar 12720219 12510232 279.7 137.3 1849.4 3.6 9558780 12834665 12502540 12473554 34374992 1 1 12465426 10054181 13025560 37122332 0.9 0.9 0.6 0.1 1 0.8 0.8 0.8 benchmark benchmark market no NA NA 0.7 0.3 0.1 0.1 -0.1 0 0.8 0.7 1.2 0.6 0.6 0.8
USA-2000 United States of America USA 2000 US Dollar 13222419 13031820 282.9 139.3 1848.1 3.6 9977582 13511612 13035321 12983206 35997032 1 1 12975535 10500206 13647352 38439588 0.9 0.9 0.6 0.1 1 0.8 0.8 0.8 interpolated benchmark market no NA NA 0.7 0.3 0.1 0.1 -0.2 0 0.8 0.7 1.2 0.6 0.6 0.8

Probando funcion 2 para EEUU

funcion_consulta_pais_capital_detail(iso_pais ="USA",1990,2000) %>% kable(caption ="Probando Función consulta paises capital detail, USA 1990:2000", digits =1,align ="l") %>% kable_styling(bootstrap_options ="striped", full_width =TRUE)
Probando Función consulta paises capital detail, USA 1990:2000
country year ck rkna pl_k
USA-1990 United States of America 1990 26453210 29208678 0.6
USA-1991 United States of America 1991 26586270 29807548 0.7
USA-1992 United States of America 1992 26769574 30447546 0.7
USA-1993 United States of America 1993 27514982 31142584 0.7
USA-1994 United States of America 1994 28433732 31914476 0.7
USA-1995 United States of America 1995 29573488 32739804 0.7
USA-1996 United States of America 1996 30426092 33669848 0.7
USA-1997 United States of America 1997 31494458 34694968 0.8
USA-1998 United States of America 1998 32851262 35854404 0.8
USA-1999 United States of America 1999 34374992 37122332 0.8
USA-2000 United States of America 2000 35997032 38439588 0.8

Probando funcion 1 para Reino Unido

funcion_consulta_pais(iso_pais ="GBR",1990,2000) %>% kable(caption ="Probando Función consulta paises, Reino Unido 1990-2000", digits =1,align ="l") %>% kable_styling(bootstrap_options ="striped", full_width =TRUE)
Probando Función consulta paises, Reino Unido 1990-2000
country isocode year currency rgdpe rgdpo pop emp avh hc ccon cda cgdpe cgdpo ck ctfp cwtfp rgdpna rconna rdana rkna rtfpna rwtfpna labsh delta xr pl_con pl_da pl_gdpo i_cig i_xm i_xr i_outlier cor_exp statcap csh_c csh_i csh_g csh_x csh_m csh_r pl_c pl_i pl_g pl_x pl_m pl_k
GBR-1990 United Kingdom GBR 1990 Pound Sterling 1417085 1385562 57.1 26.7 1757.4 3.2 1089023 1383493 1389299 1359320 3581698 0.9 0.9 1454251 1151596 1441845 6776786 0.8 0.8 0.6 0.0 0.6 0.8 0.8 0.8 interpolated benchmark market no NA NA 0.6 0.2 0.2 0.2 -0.3 0 0.7 0.8 0.9 0.6 0.6 1.1
GBR-1991 United Kingdom GBR 1991 Pound Sterling 1401382 1363587 57.3 25.9 1741.2 3.2 1069733 1341803 1372772 1344283 3680473 0.8 0.8 1435970 1141932 1405051 6870655 0.8 0.8 0.6 0.0 0.6 0.8 0.8 0.9 interpolated benchmark market no NA NA 0.6 0.2 0.2 0.2 -0.2 0 0.8 0.8 1.0 0.7 0.6 1.0
GBR-1992 United Kingdom GBR 1992 Pound Sterling 1414993 1376120 57.4 25.3 1710.7 3.3 1079084 1364559 1386354 1355717 3798598 0.8 0.8 1442380 1157180 1430968 6966938 0.9 0.8 0.6 0.0 0.6 0.9 0.9 0.9 interpolated benchmark market no NA NA 0.6 0.2 0.2 0.2 -0.3 0 0.8 0.7 1.0 0.6 0.6 1.0
GBR-1993 United Kingdom GBR 1993 Pound Sterling 1464740 1427750 57.6 25.2 1703.9 3.3 1109786 1408161 1434157 1398855 3989535 0.8 0.8 1480387 1194679 1478699 7066574 0.9 0.8 0.6 0.0 0.7 0.8 0.7 0.8 interpolated benchmark market no NA NA 0.6 0.2 0.2 0.2 -0.3 0 0.7 0.6 0.9 0.6 0.5 0.8
GBR-1994 United Kingdom GBR 1994 Pound Sterling 1519652 1478347 57.7 25.4 1718.1 3.3 1143430 1462102 1480134 1454296 4275514 0.8 0.8 1539957 1230659 1542677 7189067 0.9 0.8 0.6 0.0 0.7 0.8 0.8 0.8 interpolated benchmark market no NA NA 0.6 0.2 0.2 0.2 -0.3 0 0.8 0.7 1.0 0.6 0.6 0.7
GBR-1995 United Kingdom GBR 1995 Pound Sterling 1589475 1554254 57.9 25.7 1725.7 3.3 1170911 1539666 1544871 1524399 4596206 0.9 0.8 1578791 1257032 1623079 7350978 0.9 0.9 0.6 0.1 0.6 0.8 0.8 0.8 benchmark benchmark market no NA NA 0.6 0.2 0.1 0.2 -0.3 0 0.8 0.7 1.0 0.6 0.6 0.8
GBR-1996 United Kingdom GBR 1996 Pound Sterling 1674593 1641439 58.1 25.9 1728.0 3.4 1243814 1616862 1620570 1603619 4926870 0.8 0.8 1620910 1298540 1675014 7519430 0.9 0.9 0.6 0.0 0.6 0.8 0.8 0.8 benchmark benchmark market no 0.9 NA 0.6 0.2 0.1 0.2 -0.3 0 0.8 0.7 1.0 0.7 0.6 0.8
GBR-1997 United Kingdom GBR 1997 Pound Sterling 1801386 1756577 58.3 26.4 1705.1 3.4 1356676 1730260 1738406 1726820 5047923 0.9 0.9 1671142 1352621 1731868 7664252 0.9 0.9 0.6 0.0 0.6 0.9 0.8 0.8 benchmark benchmark market no NA NA 0.6 0.2 0.1 0.3 -0.3 0 0.8 0.8 1.0 0.6 0.6 0.8
GBR-1998 United Kingdom GBR 1998 Pound Sterling 1888442 1813215 58.5 26.7 1720.5 3.4 1437450 1828209 1813438 1801130 5103451 0.9 0.9 1727567 1407718 1817333 7832531 0.9 0.9 0.6 0.0 0.6 0.9 0.8 0.9 benchmark benchmark market no NA NA 0.7 0.2 0.1 0.3 -0.3 0 0.8 0.8 1.0 0.6 0.6 0.9
GBR-1999 United Kingdom GBR 1999 Pound Sterling 1962498 1884668 58.7 27.0 1712.2 3.5 1534616 1917937 1886983 1877945 5035408 0.9 0.9 1781342 1469890 1894809 7996396 0.9 0.9 0.6 0.0 0.6 0.8 0.8 0.8 benchmark benchmark market no NA NA 0.7 0.2 0.1 0.2 -0.3 0 0.8 0.8 1.0 0.6 0.6 0.9
GBR-2000 United Kingdom GBR 2000 Pound Sterling 2088803 2024305 58.9 27.3 1699.1 3.5 1650633 2054763 2015176 2011111 5134820 0.9 0.9 1849012 1538370 1967642 8162493 1.0 1.0 0.6 0.0 0.7 0.8 0.8 0.8 benchmark benchmark market no NA NA 0.7 0.2 0.2 0.3 -0.3 0 0.7 0.8 0.9 0.5 0.6 0.9

Probando funcion 2 para Reino Unido

funcion_consulta_pais_capital_detail(iso_pais ="GBR",1990,2000) %>% kable(caption ="Probando Función consulta paises capital detail, Reino Unido 1990:2000", digits =1,align ="l") %>% kable_styling(bootstrap_options ="striped", full_width =TRUE)
Probando Función consulta paises capital detail, Reino Unido 1990:2000
country year ck rkna pl_k
GBR-1990 United Kingdom 1990 3581698 6776786 1.1
GBR-1991 United Kingdom 1991 3680473 6870655 1.0
GBR-1992 United Kingdom 1992 3798598 6966938 1.0
GBR-1993 United Kingdom 1993 3989535 7066574 0.8
GBR-1994 United Kingdom 1994 4275514 7189067 0.7
GBR-1995 United Kingdom 1995 4596206 7350978 0.8
GBR-1996 United Kingdom 1996 4926870 7519430 0.8
GBR-1997 United Kingdom 1997 5047923 7664252 0.8
GBR-1998 United Kingdom 1998 5103451 7832531 0.9
GBR-1999 United Kingdom 1999 5035408 7996396 0.9
GBR-2000 United Kingdom 2000 5134820 8162493 0.9