Parte 0: data comercio exterior

cargando data y funciones

load("C:/Users/Patrick/Desktop/ues2020/metodos/data_comercio_exterior_agosto_2020.RData")
source(file = "C:/Users/Patrick/Desktop/ues2020/metodos/tareas_en_grupo/funciones_comercio_exterior.R")

PARTE A

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

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_agosto_2020 %>% 
    filter(sub_region=="Africa Sub-Sahariana",anio%in%c(2019:2020)) %>% 
  group_by(anio,sub_region) %>%
  summarise(`Total Exportaciones en millones de US$`=sum(valor_fob)/1e6)%>% 
  kable(caption="total de Exportaciones de El Salvador hacia la región de África Sub-Sahariana", align = "c",digits = 6) %>% 
  add_footnote(label="Elaboración propia con base en datos del BCR",notation="symbol") %>% 
  kable_material(html_font = "sans-serif")
total de Exportaciones de El Salvador hacia la región de África Sub-Sahariana
anio sub_region Total Exportaciones en millones de US$
2019 Africa Sub-Sahariana 2.452792
2020 Africa Sub-Sahariana 1.503626
* 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(kableExtra)
data_comercio_exterior_agosto_2020%>%
  filter(sub_region=="Asia Sudoriental",anio%in%c(2017:2019)) %>%
  group_by(anio,sub_region) %>%
  summarise(`Total Exportaciones MM US$`=sum(valor_fob)/1e6,
            `Total Importaciones MM US$`=sum(valor_cif)/1e6,
            `Saldo Balanza Comercial MM $`=`Total Exportaciones MM US$`-`Total Importaciones MM US$`) %>% 
  kable(caption="Saldo en balanza comercial de El Salvador, con Asia Sudoriental", align = "c",digits = 6) %>% 
  add_footnote(label="Elaboración propia con base en datos del BCR",notation="symbol") %>% 
  kable_material(html_font = "sans-serif")
Saldo en balanza comercial de El Salvador, con Asia Sudoriental
anio sub_region Total Exportaciones MM US$ Total Importaciones MM US$ Saldo Balanza Comercial MM $
2017 Asia Sudoriental 73.591111 269.4838 -195.8927
2018 Asia Sudoriental 16.609646 280.8837 -264.2740
2019 Asia Sudoriental 4.608928 262.5498 -257.9409
* 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?

R/ Por cada dólar que ha sido exportado a la región Sudamericana, se ha importo 1913248 dolares para el año 2019

library(kableExtra)
data_comercio_exterior_agosto_2020 %>% filter(valor_cif==0, valor_fob>0, anio==2019,region_intermedia=="Sudamerica") %>% 
  summarise(`Total de exportaciones de El Salvador a Sudamérica`=sum(valor_fob))->X

data_comercio_exterior_agosto_2020 %>%
filter(region_intermedia=="Sudamerica", valor_cif>0, valor_fob==0, anio==2019) %>% 
  summarise(`Ratio Importaciones de El Salvador a Sudamerica`=sum(valor_cif))->M

Ratio_M_X<- (M/X)
print(Ratio_M_X)
##   Ratio Importaciones de El Salvador a Sudamerica
## 1                                        19.13248

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(kableExtra)
capitulo<-"01"
data.frame("años"=2017:2020,
                            "IB_México"=sapply(X=2017:2020,FUN = indicadores_Balassa_capitulo,codigo_pais=484,capitulo="01"),
                            "IB_U.S.A"=sapply(X=2017:2020,FUN = indicadores_Balassa_capitulo,codigo_pais=840,capitulo="01"),
                            "IB_canadá"=sapply(X=2017:2020,FUN = indicadores_Balassa_capitulo,codigo_pais=124,capitulo="01"))%>% 
   kable(caption="Indicador de Balassa de El Salvador, con México, Estados Unidos y Canadá", align = "c",digits = 6)%>% 
add_footnote(label="Elaboración propia con base en datos del BCR",notation="symbol")%>%  
  kable_styling()
Indicador de Balassa de El Salvador, con México, Estados Unidos y Canadá
años IB_México IB_U.S.A IB_canadá
2017 -0.576136 0.359773 0.395383
2018 -0.824413 0.322898 0.614429
2019 -0.898095 0.401555 0.188515
2020 -0.977530 0.703469 0.041054
* Elaboración propia con base en datos del BCR

PARTE 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(kableExtra)
data.frame("años"=2017:2020,
                            "IVCR_México"=sapply(X=2017:2020,FUN = indicadores_IVCR_capitulo,codigo_pais=484,capitulo="01"),
                            "IVCR_U.S.A"=sapply(X=2017:2020,FUN = indicadores_IVCR_capitulo,codigo_pais=840,capitulo="01"),
                            "IVCR_canadá"=sapply(X=2017:2020,FUN = indicadores_IVCR_capitulo,codigo_pais=124,capitulo="01"))%>% 
  kable(caption="IVCR de El Salvador, con México, Estados Unidos y Canadá", align = "l",digits = 6) %>% 
  add_footnote(label="Elaboración propia con base en datos del BCR",notation="symbol") %>% 
  kable_material(html_font = "sans-serif")
IVCR de El Salvador, con México, Estados Unidos y Canadá
años IVCR_México IVCR_U.S.A IVCR_canadá
2017 -0.000637 -0.126811 0.002581
2018 -0.004780 -0.099725 0.000047
2019 -0.001492 -0.088092 0.000348
2020 -0.001368 -0.084160 -0.002795
* 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(kableExtra)
data_comercio_exterior_agosto_2020 %>% 
 filter(region_intermedia=="Centroamérica",anio%in%2017:2019,valor_cif>=0,valor_fob>=0) %>%
  group_by(anio,region_intermedia) %>%
  summarise(`Total Exportaciones US$`=sum(valor_fob),
            `Total Importaciones US$`=sum(valor_cif),
            `Proporción de M/X $`=`Total Importaciones US$`/`Total Exportaciones US$`) %>% 
  kable(caption="proporción de las importaciones de El salvador repecto a las exportaciones a la región Centroaméricana", align = "c",digits = 6) %>% 
  add_footnote(label="Elaboración propia con base en datos del BCR",notation="symbol") %>% 
  kable_material(html_font = "sans-serif")
proporción de las importaciones de El salvador repecto a las exportaciones a la región Centroaméricana
anio region_intermedia Total Exportaciones US$ Total Importaciones US$ Proporción de M/X $
2017 Centroamérica 2532194292 3113747273 1.229664
2018 Centroamérica 2707379408 3464632534 1.279700
2019 Centroamérica 2851093901 3813485970 1.337552
* Elaboración propia con base en datos del BCR

R/ Por cada dólar exportado a la región Centroaméricana, se importaron 1.229 dolares en 2017, 1.279 dolares en el año 2018 y 1.337 dolares en el año 2019

library(kableExtra)
data_comercio_exterior_agosto_2020%>%
  filter(region_intermedia=="Caribe",anio%in%c(2017:2019)) %>%
  group_by(anio,region_intermedia) %>%
  summarise(`Total Exportaciones MM US$`=sum(valor_fob)/1e6,
            `Total Importaciones MM US$`=sum(valor_cif)/1e6,
            `Saldo Balanza Comercial MM $`=`Total Exportaciones MM US$`-`Total Importaciones MM US$`) %>% 
  kable(caption="Saldo de la balanza comercial de El Salvador, con el Caribe", align = "c",digits = 6) %>% 
  add_footnote(label="Elaboración propia con base en datos del BCR",notation="symbol") %>% 
  kable_material(html_font = "sans-serif")
Saldo de la balanza comercial de El Salvador, con el Caribe
anio region_intermedia Total Exportaciones MM US$ Total Importaciones MM US$ Saldo Balanza Comercial MM $
2017 Caribe 150.1824 46.04799 104.1345
2018 Caribe 172.1331 34.04536 138.0877
2019 Caribe 169.1371 21.61247 147.5247
* 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$)

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)
data_comercio_exterior_agosto_2020 %>% 
    filter(sub_region=="Norte De Europa",anio%in%c(2019:2020)) %>% 
  group_by(anio,sub_region) %>%
  summarise(`Total Exportaciones en millones de US$`=sum(valor_fob)/1e6) %>% 
 kable(caption="Exportaciones totales de El Salvador hacia la región Norte De Europa", align = "c",digits = 6) %>% 
  add_footnote(label="Elaboración propia con base en datos del BCR",notation="symbol") %>% 
  kable_material(html_font = "sans-serif")
Exportaciones totales de El Salvador hacia la región Norte De Europa
anio sub_region Total Exportaciones en millones de US$
2019 Norte De Europa 19.80853
2020 Norte De Europa 12.15218
* Elaboración propia con base en datos del BCR

PARTE 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(kableExtra)
data_comercio_exterior_agosto_2020 %>% 
 filter(region_intermedia=="Sudamerica",anio%in%2018:2019,valor_cif>=0,valor_fob>=0) %>%
  group_by(anio,region_intermedia) %>%
  summarise(`Total Exportaciones US$`=sum(valor_fob),
            `Total Importaciones US$`=sum(valor_cif),
            `Proporción de M/X $`=`Total Importaciones US$`/`Total Exportaciones US$`) %>% 
  kable(caption="proporción de las importaciones de El salvador repecto a las exportaciones a la región Sudamericana", align = "c",digits = 6) %>% 
  add_footnote(label="Elaboración propia con base en datos del BCR",notation="symbol") %>% 
  kable_material(html_font = "sans-serif")
proporción de las importaciones de El salvador repecto a las exportaciones a la región Sudamericana
anio region_intermedia Total Exportaciones US$ Total Importaciones US$ Proporción de M/X $
2018 Sudamerica 43359699 645453481 14.88602
2019 Sudamerica 47730429 718647049 15.05637
* Elaboración propia con base en datos del BCR

R/ Por cada dólar exportado a la región Sudamericana, se importo 14.886 dolares en el año 2018 y 15.056 dolares en el año 2019.

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

library(kableExtra)
data.frame("años"=2017:2020,
                           "IHH_México"=sapply(X = 2017:2020, FUN = indicadores_IHH_Herfindahl_Hirschmann_anual,codigo_pais=484,normalizado=TRUE), 
                           "IHH_U.S.A"=sapply(X = 2017:2020, FUN = indicadores_IHH_Herfindahl_Hirschmann_anual,codigo_pais=840,normalizado=TRUE),
           "IHH_canadá"=sapply(X = 2017:2020, FUN = indicadores_IHH_Herfindahl_Hirschmann_anual,codigo_pais=124,normalizado=TRUE)) %>% 
  kable(caption="IHH de El Salvador, con México, Estados Unidos y Canadá", align = "c",digits = 6) %>% 
  add_footnote(label="Elaboración propia con base en datos del BCR",notation="symbol") %>%
  kable_material(html_font = "sans-serif")
IHH de El Salvador, con México, Estados Unidos y Canadá
años IHH_México IHH_U.S.A IHH_canadá
2017 0.016553 0.005591 0.123102
2018 0.018216 0.005661 0.008444
2019 0.014281 0.005873 0.119025
2020 0.014698 0.009867 0.059095
* 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)
data_comercio_exterior_agosto_2020 %>% 
  filter(region_intermedia=="África Oriental",anio%in%c(2017:2020)) %>% 
  group_by(anio,region_intermedia) %>%
  summarise(`Total Exportaciones en millones de US$`=sum(valor_fob)/1e6) %>% 
 kable(caption="Exportaciones totales de El Salvador hacia la región de África Oriental", align = "c",digits = 6) %>% 
  add_footnote(label="Elaboración propia con base en datos del BCR",notation="symbol") %>%
  kable_material(html_font = "sans-serif")
Exportaciones totales de El Salvador hacia la región de África Oriental
anio region_intermedia Total Exportaciones en millones de US$
2017 África Oriental 0.673423
2018 África Oriental 4.012313
2019 África Oriental 0.843927
2020 África Oriental 0.000757
* 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(kableExtra)
data_comercio_exterior_agosto_2020%>%
  filter(sub_region=="América Latina Y El Caribe",anio%in%c(2017:2019)) %>%
  group_by(anio,sub_region) %>%
  summarise(`Total Exportaciones MM US$`=sum(valor_fob)/1e6,
            `Total Importaciones MM US$`=sum(valor_cif)/1e6,
            `Saldo Balanza Comercial MM $`=`Total Exportaciones MM US$`-`Total Importaciones MM US$`) %>% 
 kable(caption="Saldo de la balanza comercial de El Salvador, con Latinoamérica", align = "c",digits = 6) %>% 
  add_footnote(label="Elaboración propia con base en datos del BCR",notation="symbol") %>%
  kable_material(html_font = "sans-serif")
Saldo de la balanza comercial de El Salvador, con Latinoamérica
anio sub_region Total Exportaciones MM US$ Total Importaciones MM US$ Saldo Balanza Comercial MM $
2017 América Latina Y El Caribe 2746.262 3770.895 -1024.633
2018 América Latina Y El Caribe 2922.872 4144.131 -1221.259
2019 América Latina Y El Caribe 3067.961 4553.745 -1485.784
* Elaboración propia con base en datos del BCR

PARTE D: Penn World Table

carga de la data

library(pwt9)
data("pwt9.0")

Usando los datos de la Penn World Table, de la Universidad de Groningen. Resuelva los siguientes requerimientos (es importante mostrar todos sus resultados en formato tabular):

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(dplyr)
library(kableExtra)
options(scipen =999999)
#Función consulta pais, para un periodo especifico
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)->df
return
(df) 
}

# Aplicando a todos los datos para El Salvador  1950-2014
funcion_consulta_pais(iso_pais ="SLV",anio_inicio = 1950,anio_final = 2014) %>% 
  kable(caption ="Probando Función consulta paises, SLV 1950-2014", digits =1,align ="l") %>% 
  add_footnote(label="Elaboración propia con base en datos de PWT",notation="symbol") %>% 
  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
* Elaboración propia con base en datos de PWT

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

options(scipen =999999)
#Función consulta variables para categoria Trade detail
funcion_consulta_categoria_trade_detail<-function(pais,anio_i,anio_f){
  pwt9.0 %>%
    filter(country==!!pais, year>=anio_i, year<=anio_f) %>%
    select(year,
           country,
           pl_x,
           pl_m,
           csh_x,
           csh_m)->categoria_Trade_Dethail
  return
  (categoria_Trade_Dethail)
}
# probando la función con El Salvador para Argentina 1950-2014
funcion_consulta_categoria_trade_detail(pais = "Argentina",anio_i=1950,anio_f = 2014) %>% 
  kable(caption ="función que permite elegir todas las variables de la categoría trade detail", digits =4,align ="l") %>% 
  add_footnote(label="Elaboración propia con base en datos de PWT",notation="symbol") %>% 
  kable_styling(bootstrap_options ="striped", full_width =TRUE)
función que permite elegir todas las variables de la categoría trade detail
year country pl_x pl_m csh_x csh_m
ARG-1950 1950 Argentina 0.1291 0.1181 0.1112 -0.0549
ARG-1951 1951 Argentina 0.1559 0.1299 0.0910 -0.0678
ARG-1952 1952 Argentina 0.1401 0.1463 0.0701 -0.0521
ARG-1953 1953 Argentina 0.1229 0.1146 0.0962 -0.0373
ARG-1954 1954 Argentina 0.1043 0.1040 0.0980 -0.0464
ARG-1955 1955 Argentina 0.1219 0.1181 0.0822 -0.0515
ARG-1956 1956 Argentina 0.2156 0.2455 0.0912 -0.0445
ARG-1957 1957 Argentina 0.2048 0.2497 0.0910 -0.0474
ARG-1958 1958 Argentina 0.1935 0.2304 0.0845 -0.0432
ARG-1959 1959 Argentina 0.2498 0.2826 0.0940 -0.0400
ARG-1960 1960 Argentina 0.2486 0.2320 0.0861 -0.0520
ARG-1961 1961 Argentina 0.2401 0.1707 0.0720 -0.0570
ARG-1962 1962 Argentina 0.1356 0.3031 0.0992 -0.0500
ARG-1963 1963 Argentina 0.2141 0.3224 0.0945 -0.0451
ARG-1964 1964 Argentina 0.1869 0.2163 0.0853 -0.0563
ARG-1965 1965 Argentina 0.2189 0.1839 0.0687 -0.0654
ARG-1966 1966 Argentina 0.2035 0.2493 0.0775 -0.0447
ARG-1967 1967 Argentina 0.2463 0.2709 0.0717 -0.0487
ARG-1968 1968 Argentina 0.2545 0.3005 0.0628 -0.0455
ARG-1969 1969 Argentina 0.2493 0.3434 0.0691 -0.0488
ARG-1970 1970 Argentina 0.2167 0.3206 0.0851 -0.0548
ARG-1971 1971 Argentina 0.2627 0.3389 0.0670 -0.0551
ARG-1972 1972 Argentina 0.2848 0.3634 0.0424 -0.0326
ARG-1973 1973 Argentina 0.2693 0.3088 0.0458 -0.0273
ARG-1974 1974 Argentina 0.2547 0.3171 0.0465 -0.0345
ARG-1975 1975 Argentina 0.2669 0.3275 0.0915 -0.0993
ARG-1976 1976 Argentina 0.3360 0.4406 0.0732 -0.0432
ARG-1977 1977 Argentina 0.3154 0.4532 0.1256 -0.0645
ARG-1978 1978 Argentina 0.2776 0.3911 0.1337 -0.0569
ARG-1979 1979 Argentina 0.2431 0.3134 0.1227 -0.0816
ARG-1980 1980 Argentina 0.2124 0.2321 0.1102 -0.1325
ARG-1981 1981 Argentina 0.2946 0.2982 0.1148 -0.1170
ARG-1982 1982 Argentina 0.3944 0.4845 0.1415 -0.0807
ARG-1983 1983 Argentina 0.4222 0.5200 0.1098 -0.0512
ARG-1984 1984 Argentina 0.3754 0.4282 0.1127 -0.0559
ARG-1985 1985 Argentina 0.3761 0.4220 0.1513 -0.0613
ARG-1986 1986 Argentina 0.4206 0.4541 0.0999 -0.0638
ARG-1987 1987 Argentina 0.4664 0.5040 0.0788 -0.0667
ARG-1988 1988 Argentina 0.4949 0.5359 0.1002 -0.0539
ARG-1989 1989 Argentina 0.5042 0.5282 0.1065 -0.0446
ARG-1990 1990 Argentina 0.5018 0.5418 0.1220 -0.0373
ARG-1991 1991 Argentina 0.5724 0.5854 0.0887 -0.0599
ARG-1992 1992 Argentina 0.4886 0.5273 0.0896 -0.1008
ARG-1993 1993 Argentina 0.5128 0.5228 0.0797 -0.1000
ARG-1994 1994 Argentina 0.5327 0.5521 0.0797 -0.1048
ARG-1995 1995 Argentina 0.5691 0.5876 0.0885 -0.0823
ARG-1996 1996 Argentina 0.5837 0.5900 0.0768 -0.0759
ARG-1997 1997 Argentina 0.5659 0.5686 0.0847 -0.0968
ARG-1998 1998 Argentina 0.5325 0.5407 0.0898 -0.1049
ARG-1999 1999 Argentina 0.5161 0.5418 0.0865 -0.0901
ARG-2000 2000 Argentina 0.4912 0.5142 0.1031 -0.0945
ARG-2001 2001 Argentina 0.4774 0.4949 0.1137 -0.0837
ARG-2002 2002 Argentina 0.4784 0.4811 0.1271 -0.0442
ARG-2003 2003 Argentina 0.5276 0.5107 0.1248 -0.0596
ARG-2004 2004 Argentina 0.5676 0.5387 0.1226 -0.0838
ARG-2005 2005 Argentina 0.5851 0.5619 0.1253 -0.0933
ARG-2006 2006 Argentina 0.6110 0.5803 0.1284 -0.0992
ARG-2007 2007 Argentina 0.6718 0.6305 0.1284 -0.1097
ARG-2008 2008 Argentina 0.7415 0.6932 0.1382 -0.1213
ARG-2009 2009 Argentina 0.6932 0.6424 0.1184 -0.0890
ARG-2010 2010 Argentina 0.7125 0.6680 0.1272 -0.1130
ARG-2011 2011 Argentina 0.7516 0.6978 0.1342 -0.1278
ARG-2012 2012 Argentina 0.7398 0.7263 0.1287 -0.1109
ARG-2013 2013 Argentina 0.7510 0.7009 0.1181 -0.1216
ARG-2014 2014 Argentina 0.7483 0.7068 0.1062 -0.1075
* Elaboración propia con base en datos de PWT

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

Usando funcion consulta pais

data_frame_1<-funcion_consulta_pais(iso_pais =c("MEX","CAN"),anio_inicio = 2000,anio_final = 2014) 
 data_frame_1 %>% 
   kable(caption ="Función consulta paises, MEX-CAN,2000-2014", digits =1,align ="l") %>% 
  add_footnote(label="Elaboración propia con base en datos de PWT",notation="symbol") %>% 
  kable_styling(bootstrap_options ="striped", full_width =TRUE)
Función consulta paises, MEX-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-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 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-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 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-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.0 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-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.0 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-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.0 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-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.0 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-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.0 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
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.0 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-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 1119252.6 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-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.2 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-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.2 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-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.2 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-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 1405425.9 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-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.2 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-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.4 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
* Elaboración propia con base en datos de PWT

Usando funcion consulta categoria trade detail

data_frame_1 <- funcion_consulta_categoria_trade_detail(pais=c("Mexico","Canada"),anio_i=2000,anio_f = 2014)
  data_frame_1 %>% kable(caption ="función que permite elegir todas las variables de la categoría trade detail", digits =4,align ="c") %>% 
  add_footnote(label="Elaboración propia con base en datos de PWT",notation="symbol") %>%
  kable_material(html_font = "sans-serif")
función que permite elegir todas las variables de la categoría trade detail
year country pl_x pl_m csh_x csh_m
CAN-2001 2001 Canada 0.5460 0.5314 0.4178 -0.3645
CAN-2003 2003 Canada 0.5810 0.5727 0.3903 -0.3496
CAN-2005 2005 Canada 0.6280 0.6155 0.4329 -0.3852
CAN-2007 2007 Canada 0.6797 0.6846 0.4428 -0.3986
CAN-2009 2009 Canada 0.6898 0.7204 0.3453 -0.3370
CAN-2011 2011 Canada 0.7053 0.7429 0.4387 -0.4166
CAN-2013 2013 Canada 0.7374 0.7493 0.4206 -0.4186
MEX-2000 2000 Mexico 0.5291 0.5086 0.2627 -0.2948
MEX-2002 2002 Mexico 0.5263 0.4921 0.2505 -0.2810
MEX-2004 2004 Mexico 0.5848 0.5333 0.2391 -0.2746
MEX-2006 2006 Mexico 0.6264 0.5911 0.2580 -0.2801
MEX-2008 2008 Mexico 0.7206 0.6841 0.2417 -0.2697
MEX-2010 2010 Mexico 0.7083 0.6583 0.2482 -0.2698
MEX-2012 2012 Mexico 0.7426 0.6709 0.2696 -0.2984
MEX-2014 2014 Mexico 0.7570 0.7021 0.2715 -0.2945
* Elaboración propia con base en datos de PWT

PARTE E

Usando los datos de la Penn World Table, de la Universidad de Groningen. Resuelva los siguientes requerimientos (es importante mostrar todos sus resultados en formato tabular):

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(dplyr)
library(kableExtra)
# Funcion consulta pais: Guatemala para el periodo 1990-2014
funcion_consulta_pais(iso_pais ="GTM",anio_inicio = 1990,anio_final = 2014) %>% 
  kable(caption =" Función consulta pais: Guatemala, GTM 1990-2014", digits =1,align ="l") %>% 
  add_footnote(label="Elaboración propia con base en datos de PWT",notation="symbol") %>% 
  kable_styling(bootstrap_options ="striped", full_width =TRUE)
Función consulta pais: Guatemala, 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
* Elaboración propia con base en datos de PWT

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

options(scipen =999999)
#Función consulta variables para categoria labor detail
funcion_consulta_categoria_labor_detail<-function(pais,anio_I,anio_F){
  pwt9.0 %>%
    filter(country==!!pais, year>=anio_I, year<=anio_F) %>%
    select(year,
           country,
           emp, 
           avh,
           hc, 
           labsh)->categoria_labor_detail
  return
  (categoria_labor_detail)
}
#  función que permite elegir todas las variables de la categoría "Labor detail"
funcion_consulta_categoria_labor_detail(pais = "Argentina",anio_I = 1950,anio_F = 2014) %>% 
  kable(caption ="función que permite elegir todas las variables de la categoría Labor detail", digits =4,align ="c") %>% 
  add_footnote(label="Elaboración propia con base en datos de PWT",notation="symbol") %>% 
  kable_styling(bootstrap_options ="striped", full_width =TRUE)
función que permite elegir todas las variables de la categoría Labor detail
year country emp avh hc labsh
ARG-1950 1950 Argentina 6.5468 2034.000 1.8165 0.5337
ARG-1951 1951 Argentina 6.6502 2037.867 1.8308 0.5337
ARG-1952 1952 Argentina 6.7553 2041.741 1.8451 0.5337
ARG-1953 1953 Argentina 6.8621 2045.622 1.8596 0.5337
ARG-1954 1954 Argentina 6.9705 2049.511 1.8742 0.5337
ARG-1955 1955 Argentina 7.0806 2053.407 1.8890 0.5337
ARG-1956 1956 Argentina 7.1761 2057.311 1.9018 0.5337
ARG-1957 1957 Argentina 7.2729 2061.222 1.9147 0.5337
ARG-1958 1958 Argentina 7.3710 2065.141 1.9276 0.5337
ARG-1959 1959 Argentina 7.4705 2069.067 1.9407 0.5337
ARG-1960 1960 Argentina 7.5713 2073.000 1.9539 0.5337
ARG-1961 1961 Argentina 7.6674 2066.200 1.9649 0.5337
ARG-1962 1962 Argentina 7.7647 2059.423 1.9761 0.5337
ARG-1963 1963 Argentina 7.8632 2052.668 1.9872 0.5337
ARG-1964 1964 Argentina 7.9630 2045.936 1.9985 0.5337
ARG-1965 1965 Argentina 8.0641 2039.225 2.0098 0.5337
ARG-1966 1966 Argentina 8.1629 2032.536 2.0227 0.5337
ARG-1967 1967 Argentina 8.2630 2025.869 2.0357 0.5337
ARG-1968 1968 Argentina 8.3644 2019.225 2.0488 0.5337
ARG-1969 1969 Argentina 8.4669 2012.601 2.0619 0.5337
ARG-1970 1970 Argentina 8.5707 2006.000 2.0752 0.5337
ARG-1971 1971 Argentina 8.6498 2002.661 2.0965 0.5337
ARG-1972 1972 Argentina 8.7327 1999.328 2.1180 0.5337
ARG-1973 1973 Argentina 8.8164 1996.000 2.1397 0.5337
ARG-1974 1974 Argentina 9.1352 1992.842 2.1616 0.5337
ARG-1975 1975 Argentina 9.1894 1989.689 2.1838 0.5337
ARG-1976 1976 Argentina 9.1827 1986.542 2.1969 0.5337
ARG-1977 1977 Argentina 9.4139 1983.399 2.2101 0.5337
ARG-1978 1978 Argentina 9.4806 1980.261 2.2233 0.5337
ARG-1979 1979 Argentina 9.6277 1977.128 2.2366 0.5337
ARG-1980 1980 Argentina 9.6414 1974.000 2.2500 0.5337
ARG-1981 1981 Argentina 9.6515 1961.230 2.2832 0.5337
ARG-1982 1982 Argentina 9.7953 1948.543 2.3168 0.5337
ARG-1983 1983 Argentina 10.1019 1935.938 2.3509 0.5337
ARG-1984 1984 Argentina 10.3459 1923.414 2.3855 0.5337
ARG-1985 1985 Argentina 10.4316 1910.971 2.4206 0.5337
ARG-1986 1986 Argentina 10.7397 1898.609 2.4419 0.5337
ARG-1987 1987 Argentina 10.9612 1886.327 2.4634 0.5337
ARG-1988 1988 Argentina 11.1774 1874.124 2.4851 0.5337
ARG-1989 1989 Argentina 11.2755 1862.000 2.5070 0.5337
ARG-1990 1990 Argentina 11.5870 1850.000 2.5290 0.5337
ARG-1991 1991 Argentina 11.9526 1837.961 2.5526 0.5337
ARG-1992 1992 Argentina 12.1471 1826.000 2.5710 0.5337
ARG-1993 1993 Argentina 12.0699 1850.338 2.5871 0.5337
ARG-1994 1994 Argentina 12.0759 1875.000 2.6032 0.5240
ARG-1995 1995 Argentina 11.5051 1897.217 2.6195 0.4726
ARG-1996 1996 Argentina 11.7871 1846.067 2.6270 0.4384
ARG-1997 1997 Argentina 12.3592 1917.293 2.6345 0.4191
ARG-1998 1998 Argentina 12.9040 1903.000 2.6421 0.4326
ARG-1999 1999 Argentina 12.9551 1893.249 2.6496 0.4614
ARG-2000 2000 Argentina 13.0941 1861.003 2.6572 0.4580
ARG-2001 2001 Argentina 13.0461 1803.424 2.6830 0.4694
ARG-2002 2002 Argentina 13.0072 1610.573 2.7091 0.3660
ARG-2003 2003 Argentina 13.7271 1719.393 2.7354 0.3562
ARG-2004 2004 Argentina 14.6692 1739.675 2.7619 0.3754
ARG-2005 2005 Argentina 15.3373 1755.349 2.7888 0.4006
ARG-2006 2006 Argentina 15.8562 1809.428 2.7970 0.4291
ARG-2007 2007 Argentina 16.4413 1816.903 2.8052 0.4329
ARG-2008 2008 Argentina 16.8420 1835.884 2.8135 0.4329
ARG-2009 2009 Argentina 16.9940 1736.907 2.8218 0.4329
ARG-2010 2010 Argentina 17.4913 1728.729 2.8301 0.4329
ARG-2011 2011 Argentina 17.8794 1762.291 2.8585 0.4329
ARG-2012 2012 Argentina 18.0662 1788.986 2.8873 0.4329
ARG-2013 2013 Argentina 18.2572 1776.659 2.9163 0.4329
ARG-2014 2014 Argentina 18.0984 1776.659 2.9457 0.4329
* Elaboración propia con base en datos de PWT

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

Usando consulta pais

data_frame_2 <- funcion_consulta_pais(iso_pais =c("USA","CAN"),anio_inicio = 2000,anio_final = 2014) 
 data_frame_2 %>%  kable(caption =" Función consulta pais: ESTADOS UNIDOS y CANADA 2000-2014", digits =1,align ="l") %>% 
  add_footnote(label="Elaboración propia con base en datos de PWT",notation="symbol") %>% 
  kable_styling(bootstrap_options ="striped", full_width =TRUE)
Función consulta pais: ESTADOS UNIDOS y 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-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 0.9 0.6 0.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-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 0.9 0.6 0.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-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.0 1.0 0.6 0.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-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.0 1.0 0.6 0.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-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.0 1.0 0.6 0.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-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.0 1.0 0.6 0.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-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.0 1.0 0.6 0.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
USA-2000 United States of America USA 2000 US Dollar 13222419 13031820 282.9 139.3 1848.1 3.6 9977582.0 13511612 13035321 12983206 35997032 1.0 1.0 12975535 10500206.0 13647352 38439588 0.9 0.9 0.6 0.1 1.0 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.0 14027745 13503168 13339370 38467564 1.0 1.0 13336194 11088529.0 14123900 40679832 0.9 1.0 0.6 0.1 1.0 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-2004 United States of America USA 2004 US Dollar 14499944 14204685 293.5 141.6 1783.4 3.6 11251801.0 15090846 14366189 14232334 42071616 1.0 1.0 14229557 11796878.0 15181932 43024076 1.0 1.0 0.6 0.0 1.0 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-2006 United States of America USA 2006 US Dollar 15353601 15083465 298.9 146.6 1778.5 3.6 12126527.0 16170304 15318001 15099868 47891040 1.0 1.0 15097712 12476968.0 16121374 45671956 1.0 1.0 0.6 0.0 1.0 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-2008 United States of America USA 2008 US Dollar 15357469 15305872 304.5 147.5 1761.3 3.7 12569281.0 16125585 15370500 15321926 50006724 1.0 1.0 15321422 12759836.0 16086510 47779436 1.0 1.0 0.6 0.0 1.0 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-2010 United States of America USA 2010 US Dollar 15368666 15250698 309.9 141.3 1738.0 3.7 12764841.0 15842214 15317448 15273702 48876336 1.0 1.0 15273331 12883714.0 15924426 48728140 1.0 1.0 0.6 0.0 1.0 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-2012 United States of America USA 2012 US Dollar 15976742 15899255 314.8 144.9 1753.7 3.7 13206454.0 16505245 15946878 15863845 50020716 1.0 1.0 15863049 13182059.0 16509182 49960600 1.0 1.0 0.6 0.0 1.0 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-2014 United States of America USA 2014 US Dollar 16704698 16598099 319.4 148.5 1764.6 3.7 13685949.0 17113208 16605887 16490883 52849892 1.0 1.0 16490192 13585164.0 17137356 51190644 1.0 1.0 0.6 0.0 1.0 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
* Elaboración propia con base en datos de PWT

Usando funcion consulta categoria labor detail

Datos_USA_CAN <- funcion_consulta_categoria_labor_detail(pais=c("United States of America", "Canada"),anio_I  = 2000,anio_F = 2014)
  Datos_USA_CAN %>% kable(caption ="función que permite elegir todas las variables de la categoría labor detail", digits =4,align ="c") %>% 
  add_footnote(label="Elaboración propia con base en datos de PWT",notation="symbol") %>%
  kable_material(html_font = "sans-serif")
función que permite elegir todas las variables de la categoría labor detail
year country emp avh hc labsh
CAN-2001 2001 Canada 15.0590 1767.990 3.5189 0.6172
CAN-2003 2003 Canada 15.8475 1732.136 3.5487 0.6124
CAN-2005 2005 Canada 16.4379 1739.181 3.5788 0.5988
CAN-2007 2007 Canada 17.2669 1724.689 3.6091 0.6060
CAN-2009 2009 Canada 17.4356 1678.515 3.6397 0.6316
CAN-2011 2011 Canada 18.0769 1683.574 3.6623 0.6074
CAN-2013 2013 Canada 18.6656 1682.736 3.6769 0.6191
USA-2000 2000 United States of America 139.2961 1848.147 3.5786 0.6427
USA-2002 2002 United States of America 139.0843 1805.477 3.5981 0.6347
USA-2004 2004 United States of America 141.6310 1783.413 3.6178 0.6222
USA-2006 2006 United States of America 146.6152 1778.528 3.6423 0.6123
USA-2008 2008 United States of America 147.5262 1761.316 3.6719 0.6151
USA-2010 2010 United States of America 141.3491 1738.001 3.7018 0.5952
USA-2012 2012 United States of America 144.8628 1753.699 3.7123 0.6020
USA-2014 2014 United States of America 148.4634 1764.597 3.7228 0.6036
* Elaboración propia con base en datos de PWT

PARTE E

Usando los datos de la Penn World Table, de la Universidad de Groningen. Resuelva los siguientes requerimientos (es importante mostrar todos sus resultados en formato tabular):

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

library(dplyr)
library(kableExtra)
# Funcion consulta pais: Honduras para el periodo 1990-2014
funcion_consulta_pais(iso_pais ="HND",anio_inicio = 1990,anio_final = 2014) %>% 
  kable(caption ="Función consulta pais: Honduras, HND 1990-2014", digits =1,align ="l") %>%
  add_footnote(label="Elaboración propia con base en datos de PWT",notation="symbol") %>% 
  kable_styling(bootstrap_options ="striped", full_width =TRUE)
Función consulta pais: Honduras, HND 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
HND-1990 Honduras HND 1990 Lempira 13869.7 14480.0 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.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
HND-1991 Honduras HND 1991 Lempira 14668.8 15217.2 5.0 1.5 NA 1.8 12721.9 15095.5 14801.8 15593.7 24835.8 0.6 0.5 16180.1 14378.0 17783.9 48069.2 1.1 1.0 0.6 0.0 5.3 0.2 0.2 0.2 interpolated benchmark market no NA NA 0.7 0.2 0.1 0.1 -0.1 0.1 0.2 0.4 0.3 0.5 0.5 0.4
HND-1992 Honduras HND 1992 Lempira 15327.7 15702.4 5.2 1.7 NA 1.8 13162.2 15913.1 15452.5 15956.8 26166.6 0.5 0.5 17090.1 14913.3 18787.8 50292.8 1.1 1.0 0.6 0.0 5.5 0.2 0.3 0.3 interpolated benchmark market no NA NA 0.7 0.2 0.1 0.1 -0.1 0.0 0.2 0.4 0.3 0.5 0.5 0.4
HND-1993 Honduras HND 1993 Lempira 15933.6 17007.8 5.3 1.7 NA 1.8 13556.2 17219.0 16058.7 17298.6 28826.0 0.5 0.5 18154.8 15235.9 20400.8 53997.6 1.1 1.1 0.6 0.1 6.5 0.2 0.3 0.2 interpolated benchmark market no NA NA 0.7 0.2 0.1 0.1 -0.2 0.1 0.2 0.4 0.3 0.5 0.5 0.4
HND-1994 Honduras HND 1994 Lempira 16221.7 17431.8 5.5 1.8 NA 1.8 13626.8 17519.9 16247.2 17766.1 31566.0 0.5 0.5 17918.2 15181.7 20793.2 57416.0 1.0 1.0 0.6 0.1 8.4 0.2 0.3 0.2 interpolated benchmark market no NA NA 0.7 0.2 0.1 0.1 -0.2 0.1 0.2 0.4 0.3 0.5 0.5 0.3
HND-1995 Honduras HND 1995 Lempira 17476.4 19391.9 5.6 1.8 NA 1.8 13971.4 17967.3 17503.1 19796.2 33959.8 0.5 0.5 18649.3 15343.4 21133.8 59647.0 1.0 1.0 0.6 0.1 9.5 0.2 0.3 0.2 interpolated benchmark market no NA NA 0.6 0.2 0.1 0.1 -0.2 0.2 0.2 0.3 0.4 0.5 0.5 0.4
HND-1996 Honduras HND 1996 Lempira 17991.7 18534.6 5.7 2.0 NA 1.8 14862.3 18612.0 17993.6 18919.2 36097.2 0.5 0.5 19316.6 16146.4 21565.4 62041.0 1.0 1.0 0.6 0.1 11.7 0.2 0.3 0.3 interpolated benchmark market no NA NA 0.7 0.2 0.1 0.1 -0.2 0.1 0.2 0.4 0.4 0.6 0.5 0.4
HND-1997 Honduras HND 1997 Lempira 18783.4 19283.0 5.9 2.1 NA 1.8 15261.0 19375.8 18662.3 19602.3 38920.0 0.5 0.4 20281.2 16564.7 22439.0 65095.4 1.0 0.9 0.6 0.1 13.0 0.3 0.3 0.3 interpolated benchmark market no NA NA 0.7 0.2 0.1 0.1 -0.2 0.1 0.3 0.4 0.4 0.5 0.5 0.4
HND-1998 Honduras HND 1998 Lempira 19437.3 19877.3 6.0 2.1 NA 1.9 16084.1 20327.3 19169.8 20236.4 42338.4 0.4 0.4 20869.7 17542.5 23514.3 68522.9 1.0 0.9 0.6 0.1 13.4 0.3 0.3 0.3 interpolated benchmark market no NA NA 0.7 0.2 0.1 0.2 -0.3 0.1 0.3 0.4 0.5 0.5 0.5 0.4
HND-1999 Honduras HND 1999 Lempira 18722.7 19555.4 6.1 2.3 NA 1.9 16175.8 20880.7 18457.6 19883.2 46072.1 0.4 0.4 20475.4 17648.5 24128.7 72088.2 0.9 0.9 0.6 0.1 14.2 0.3 0.4 0.3 interpolated benchmark market no NA 60.6 0.7 0.2 0.1 0.1 -0.3 0.1 0.3 0.4 0.5 0.5 0.5 0.4
HND-2000 Honduras HND 2000 Lempira 20014.3 21004.3 6.2 2.3 NA 1.9 17440.5 22230.8 19769.9 21097.9 49552.6 0.4 0.4 21652.3 19076.1 25351.3 74802.0 0.9 0.9 0.6 0.1 14.8 0.3 0.4 0.3 interpolated benchmark market no NA NA 0.7 0.2 0.1 0.1 -0.2 0.1 0.3 0.4 0.5 0.5 0.5 0.4
HND-2001 Honduras HND 2001 Lempira 20637.6 21337.6 6.4 2.3 NA 1.9 18379.9 23177.1 20478.2 21473.4 52978.8 0.4 0.4 22242.0 19999.8 26028.0 77193.2 0.9 0.9 0.6 0.1 15.5 0.4 0.4 0.4 interpolated benchmark market no NA NA 0.8 0.2 0.1 0.1 -0.3 0.0 0.3 0.4 0.5 0.4 0.5 0.4
HND-2002 Honduras HND 2002 Lempira 21429.9 22322.8 6.5 2.3 NA 1.9 19132.1 23977.6 21306.5 22633.9 56023.2 0.4 0.4 23077.0 20740.8 26554.2 79013.1 1.0 1.0 0.6 0.1 16.4 0.4 0.4 0.3 interpolated benchmark market no NA NA 0.8 0.2 0.1 0.1 -0.3 0.1 0.3 0.4 0.6 0.5 0.5 0.4
HND-2003 Honduras HND 2003 Lempira 22293.7 23442.7 6.6 2.4 NA 1.9 20103.3 25232.9 22122.4 23866.7 59671.4 0.4 0.4 24126.3 21693.0 27731.2 81101.3 1.0 1.0 0.6 0.1 17.3 0.4 0.4 0.3 interpolated benchmark market no NA NA 0.7 0.2 0.1 0.1 -0.3 0.1 0.3 0.4 0.5 0.5 0.5 0.4
HND-2004 Honduras HND 2004 Lempira 23503.4 24886.9 6.8 2.4 NA 2.0 21223.1 27632.3 23295.6 25364.9 65749.5 0.4 0.4 25629.9 22787.2 30171.7 84672.6 1.0 1.0 0.6 0.1 18.2 0.4 0.4 0.3 interpolated benchmark market no NA 63.9 0.7 0.3 0.1 0.1 -0.3 0.1 0.3 0.4 0.6 0.5 0.5 0.4
HND-2005 Honduras HND 2005 Lempira 24863.1 27339.3 6.9 2.5 NA 2.0 23171.7 29687.9 25057.7 27758.7 72955.4 0.4 0.4 27180.8 24338.4 31628.4 87856.1 1.0 1.0 0.6 0.1 18.8 0.4 0.4 0.4 interpolated benchmark market no NA 63.3 0.7 0.2 0.1 0.1 -0.3 0.1 0.4 0.4 0.5 0.5 0.5 0.4
HND-2006 Honduras HND 2006 Lempira 26591.9 28317.3 7.0 2.6 NA 2.0 25053.5 32155.2 26569.6 28826.4 81215.1 0.4 0.4 28965.8 26253.9 34069.2 91934.2 1.0 1.0 0.6 0.1 18.9 0.4 0.4 0.4 interpolated benchmark market no NA 63.3 0.8 0.2 0.1 0.1 -0.3 0.1 0.4 0.4 0.6 0.6 0.6 0.4
HND-2007 Honduras HND 2007 Lempira 28196.9 30212.6 7.1 2.8 NA 2.0 26953.7 35926.3 28055.9 30818.3 89601.1 0.4 0.4 30758.2 28137.4 37910.0 98000.6 1.0 1.1 0.6 0.1 18.9 0.4 0.4 0.4 interpolated benchmark market no NA 70.0 0.8 0.3 0.1 0.1 -0.3 0.1 0.4 0.5 0.6 0.6 0.6 0.4
HND-2008 Honduras HND 2008 Lempira 28689.7 29158.4 7.3 2.8 NA 2.0 28240.2 38256.5 28743.0 29235.6 97798.8 0.4 0.4 32059.9 29045.7 39696.9 104314.8 1.1 1.1 0.6 0.1 18.9 0.5 0.5 0.5 interpolated benchmark market no NA 73.3 0.8 0.3 0.1 0.3 -0.5 -0.1 0.5 0.5 0.7 0.7 0.7 0.4
HND-2009 Honduras HND 2009 Lempira 29242.9 29286.4 7.4 2.9 NA 2.0 28587.6 34253.8 29066.9 29677.8 100695.9 0.3 0.4 31280.2 29424.5 35252.2 105943.4 1.0 1.0 0.6 0.1 18.9 0.5 0.5 0.5 interpolated benchmark market no NA 77.8 0.8 0.2 0.1 0.1 -0.3 0.0 0.5 0.5 0.7 0.7 0.6 0.4
HND-2010 Honduras HND 2010 Lempira 30846.4 31120.9 7.5 2.9 NA 2.1 29819.8 36243.6 30734.7 31326.9 104274.6 0.3 0.4 32447.4 30233.1 36788.3 107767.7 1.0 1.0 0.6 0.1 18.9 0.5 0.5 0.5 interpolated benchmark market no NA 77.8 0.8 0.2 0.1 0.1 -0.4 0.1 0.5 0.5 0.7 0.7 0.6 0.4
HND-2011 Honduras HND 2011 Lempira 32806.5 33691.9 7.6 3.1 NA 2.1 31070.4 39269.9 32806.5 33691.9 110959.4 0.3 0.4 33691.9 31070.4 39269.9 110959.4 1.0 1.0 0.6 0.1 18.9 0.5 0.5 0.5 benchmark benchmark market no 0.6 77.8 0.8 0.2 0.1 0.1 -0.4 0.1 0.5 0.6 0.7 0.7 0.6 0.5
HND-2012 Honduras HND 2012 Lempira 33773.0 34602.0 7.7 3.2 NA 2.1 32356.3 40233.3 33701.1 34306.4 114260.5 0.3 0.4 35083.0 32295.1 40251.7 114391.2 1.0 1.0 0.6 0.1 19.5 0.5 0.5 0.5 extrapolated benchmark market no NA 76.0 0.8 0.2 0.1 0.2 -0.4 0.0 0.5 0.6 0.8 0.7 0.7 0.5
HND-2013 Honduras HND 2013 Lempira 33759.9 33670.3 7.8 3.3 NA 2.2 33565.7 40386.9 33537.5 33307.6 118671.2 0.3 0.4 36062.3 33478.7 40477.3 117494.7 1.0 0.9 0.6 0.1 20.3 0.5 0.6 0.6 extrapolated benchmark market no NA 62.2 0.9 0.2 0.1 0.3 -0.4 -0.1 0.5 0.6 0.8 0.7 0.6 0.4
HND-2014 Honduras HND 2014 Lempira 35219.2 34835.7 8.0 3.4 NA 2.2 34384.1 41614.7 35008.4 34377.6 123703.3 0.3 0.4 37174.9 34161.5 41649.4 120378.6 1.0 0.9 0.6 0.1 21.0 0.5 0.6 0.6 extrapolated benchmark market no NA 73.3 0.9 0.2 0.1 0.3 -0.5 -0.1 0.5 0.6 0.8 0.7 0.6 0.4
* Elaboración propia con base en datos de PWT

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á

options(scipen =999999)
#Función consulta variables para categoria capital detail
funcion_consulta_categoria_capital_detail<-function(pais,anio_i,anio_f){
  pwt9.0 %>%
    filter(country==!!pais,year>=anio_i, year<=anio_f)%>%
    select(year, 
           country,
           ck,
           rkna,
           pl_k)->categoria_capital_detail
  return
  (categoria_capital_detail)
}
#  función que permite elegir todas las variables de la categoría "capital detail"
funcion_consulta_categoria_capital_detail(pais="Panama",anio_i=1950,anio_f = 2014) %>% 
  kable(caption ="función que permite elegir todas las variables de la categoría capital detail", digits =4,align ="c") %>% 
  add_footnote(label="Elaboración propia con base en datos de PWT",notation="symbol") %>%
  kable_material(html_font = "sans-serif")
función que permite elegir todas las variables de la categoría capital detail
year country ck rkna pl_k
PAN-1950 1950 Panama 3974.410 7910.694 0.1896
PAN-1951 1951 Panama 4069.082 7852.892 0.2022
PAN-1952 1952 Panama 4146.317 7818.988 0.1972
PAN-1953 1953 Panama 4193.964 7919.253 0.1958
PAN-1954 1954 Panama 4124.009 7955.621 0.1871
PAN-1955 1955 Panama 4161.539 8047.854 0.1919
PAN-1956 1956 Panama 4363.727 8225.043 0.1935
PAN-1957 1957 Panama 4487.399 8408.978 0.1947
PAN-1958 1958 Panama 4531.014 8648.259 0.2013
PAN-1959 1959 Panama 4688.309 8946.780 0.2008
PAN-1960 1960 Panama 4690.696 9182.746 0.2129
PAN-1961 1961 Panama 4875.821 9531.828 0.2186
PAN-1962 1962 Panama 5083.905 9964.522 0.2176
PAN-1963 1963 Panama 5296.139 10468.618 0.2168
PAN-1964 1964 Panama 5434.304 10876.881 0.2241
PAN-1965 1965 Panama 5712.339 11372.258 0.2228
PAN-1966 1966 Panama 6161.971 12153.596 0.2248
PAN-1967 1967 Panama 6605.460 12955.637 0.2268
PAN-1968 1968 Panama 7103.503 13884.022 0.2272
PAN-1969 1969 Panama 7759.279 14962.656 0.2272
PAN-1970 1970 Panama 8744.858 16607.580 0.2062
PAN-1971 1971 Panama 9853.147 18485.275 0.2069
PAN-1972 1972 Panama 11258.130 20871.076 0.2001
PAN-1973 1973 Panama 12697.484 23114.242 0.2287
PAN-1974 1974 Panama 14108.166 24912.709 0.2645
PAN-1975 1975 Panama 15473.685 26847.086 0.2768
PAN-1976 1976 Panama 16559.006 28760.000 0.3082
PAN-1977 1977 Panama 17266.492 29532.176 0.3335
PAN-1978 1978 Panama 18411.525 30826.646 0.3569
PAN-1979 1979 Panama 19512.685 32049.455 0.3849
PAN-1980 1980 Panama 20876.894 33797.895 0.4072
PAN-1981 1981 Panama 22641.340 36216.996 0.4084
PAN-1982 1982 Panama 24275.996 38632.230 0.4317
PAN-1983 1983 Panama 24367.435 39796.430 0.4769
PAN-1984 1984 Panama 24464.844 40627.000 0.4422
PAN-1985 1985 Panama 24666.543 41321.047 0.5036
PAN-1986 1986 Panama 25712.543 42623.680 0.4575
PAN-1987 1987 Panama 26721.904 44186.402 0.4709
PAN-1988 1988 Panama 26434.914 43668.590 0.4312
PAN-1989 1989 Panama 25723.736 42711.344 0.4962
PAN-1990 1990 Panama 25448.707 42280.000 0.4911
PAN-1991 1991 Panama 25695.943 43114.359 0.5035
PAN-1992 1992 Panama 26580.908 44983.621 0.5026
PAN-1993 1993 Panama 28817.303 48241.746 0.4818
PAN-1994 1994 Panama 31240.934 51560.621 0.4884
PAN-1995 1995 Panama 34024.902 55079.746 0.4998
PAN-1996 1996 Panama 36206.355 58254.402 0.5105
PAN-1997 1997 Panama 39246.559 61684.645 0.4993
PAN-1998 1998 Panama 43127.160 65850.273 0.5094
PAN-1999 1999 Panama 47489.816 70507.172 0.4655
PAN-2000 2000 Panama 51416.664 74266.586 0.4697
PAN-2001 2001 Panama 53947.656 75946.750 0.4478
PAN-2002 2002 Panama 56263.824 77322.797 0.4288
PAN-2003 2003 Panama 60077.422 79968.250 0.4450
PAN-2004 2004 Panama 65767.672 83185.086 0.4104
PAN-2005 2005 Panama 73176.195 86754.695 0.3987
PAN-2006 2006 Panama 81943.727 91417.508 0.3866
PAN-2007 2007 Panama 92301.109 99499.906 0.5007
PAN-2008 2008 Panama 103622.453 109266.602 0.5405
PAN-2009 2009 Panama 112844.938 117964.953 0.5463
PAN-2010 2010 Panama 124656.469 128348.797 0.5466
PAN-2011 2011 Panama 142056.688 142056.688 0.5664
PAN-2012 2012 Panama 158524.391 159050.125 0.6009
PAN-2013 2013 Panama 179119.078 178155.891 0.4639
PAN-2014 2014 Panama 201345.031 197037.297 0.4706
* Elaboración propia con base en datos de PWT

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

Usando funcion consulta pais

data_frame_3 <- funcion_consulta_pais(iso_pais =c("USA","GBR"),anio_inicio = 1990,anio_final = 2000) 
data_frame_3 %>% kable(caption ="Función consulta pais: USA,GBR, 1990-2000", digits =1,align ="l") %>%
  add_footnote(label="Elaboración propia con base en datos de PWT",notation="symbol") %>% 
  kable_styling(bootstrap_options ="striped", full_width =TRUE)
Función consulta pais: USA,GBR, 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-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-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-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-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-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
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.0 1.0 9241600 7644560 9454309 29208678 0.8 0.8 0.6 0.1 1.0 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-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.0 1.0 9563208 7915272 9717433 30447546 0.8 0.8 0.6 0.1 1.0 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-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.0 1.0 10222333 8395977 10477239 31914476 0.9 0.8 0.6 0.1 1.0 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-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.0 1.0 10910675 8855808 11165208 33669848 0.9 0.8 0.6 0.1 1.0 0.8 0.7 0.7 benchmark benchmark market no 1.0 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-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.0 1.0 11907535 9590438 12341446 35854404 0.9 0.9 0.6 0.1 1.0 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-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.0 1.0 12975535 10500206 13647352 38439588 0.9 0.9 0.6 0.1 1.0 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
* Elaboración propia con base en datos de PWT

###Usando funcion consulta categoria capital detail

data_frame_4 <- funcion_consulta_categoria_capital_detail(pais=c("United States of America", "United Kingdom"),anio_i=1990,anio_f = 2000)
  data_frame_4 %>% kable(caption ="función que permite elegir todas las variables de la categoría capital detail", digits =4,align ="c") %>% 
  add_footnote(label="Elaboración propia con base en datos de PWT",notation="symbol") %>%
  kable_material(html_font = "sans-serif")
función que permite elegir todas las variables de la categoría capital detail
year country ck rkna pl_k
GBR-1990 1990 United Kingdom 3581698 6776786 1.0969
GBR-1992 1992 United Kingdom 3798598 6966938 0.9516
GBR-1994 1994 United Kingdom 4275514 7189067 0.7323
GBR-1996 1996 United Kingdom 4926870 7519430 0.7716
GBR-1998 1998 United Kingdom 5103451 7832531 0.8749
GBR-2000 2000 United Kingdom 5134820 8162493 0.9000
USA-1990 1990 United States of America 26453210 29208678 0.6470
USA-1992 1992 United States of America 26769574 30447546 0.6838
USA-1994 1994 United States of America 28433732 31914476 0.7150
USA-1996 1996 United States of America 30426092 33669848 0.7424
USA-1998 1998 United States of America 32851262 35854404 0.7633
USA-2000 2000 United States of America 35997032 38439588 0.7926
* Elaboración propia con base en datos de PWT