Carga de funciones

source("C:/Users/travail/Documents/R/Rscripts/funciones_comercio_exterior_nueva.R")

1ra Parte

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

library(dplyr)
library(kableExtra)
options(scipen=99999)
# 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$)

data_comercio_exterior%>%
  filter(sub_region=="Africa Sub-Sahariana",anio %in% 2019:2020,valor_fob>0)%>%
  group_by(anio)%>%
  summarise(`Total de Exportaciones MM USD`=sum(valor_fob)/1e6)%>%head()%>%
  kable(caption = "Exportaciones Totales a África Sub-sahariana:2019-2020. MM USD", aling="l")%>% add_footnote(label="Elaboración propia con base en datos del BCR")%>%kable_material(html_font = "sans_serif")
Exportaciones Totales a África Sub-sahariana:2019-2020. MM USD
anio Total de Exportaciones MM USD
2019 2.452792
2020 1.503626
a 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$)

data_comercio_exterior%>%
  filter(sub_region=="Asia Sudoriental",anio %in% 2017:2019)%>%
  group_by(anio)%>%summarise(Xijt=sum(valor_fob)/1e6,Mijt=sum(valor_cif)/1e6)%>%
  mutate(`BC MM USD`=Xijt-Mijt)%>%
  select("anio","BC MM USD")%>%
 head()%>%kable(caption = "Saldo Balanza Comercial con Asia Sudoriental:2017-2019. MM USD", aling="l")%>% add_footnote(label="Elaboración propia con base en datos del BCR")%>%kable_material(html_font = "sans_serif")
Saldo Balanza Comercial con Asia Sudoriental:2017-2019. MM USD
anio BC MM USD
2017 -195.8927
2018 -264.2740
2019 -257.9409
a 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?

data_comercio_exterior%>%
  filter(anio==2019,region_intermedia=="Sudamerica", valor_fob>0,valor_cif>0)%>%
  group_by(anio)%>%
  summarise(`Xijt MM USD`=sum(valor_fob)/1e6,`Mijt MM USD`=sum(valor_cif)/1e6)%>%
  mutate(Ratio =`Mijt MM USD` /`Xijt MM USD`)%>%
  select("anio","Xijt MM USD","Mijt MM USD","Ratio")%>%head()%>%kable(caption = "Cantidad importada por cada dolar exportado a la región Sudamericana.", aling="l")%>% add_footnote(label="Elaboración propia con base en datos del BCR")%>%kable_material(html_font = "sans_serif")
Cantidad importada por cada dolar exportado a la región Sudamericana.
anio Xijt MM USD Mijt MM USD Ratio
2019 11.49066 25.29053 2.200963
a 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.

resultado_balassa = data.frame("años"=2017:2020,
                               "Balassa_USA"= sapply(X=2017:2020,
                                              FUN= indicadores_Balassa_capitulo,
                                              codigo_pais=840,
                                              capitulo="01"),
                               "Balassa_CAN"= sapply(X=2017:2020,
                                              FUN= indicadores_Balassa_capitulo,
                                              codigo_pais=124,
                                              capitulo="01"),
                                "Balassa_MEX"= sapply(X=2017:2020,
                                              FUN= indicadores_Balassa_capitulo,
                                              codigo_pais=484,
                                              capitulo="01"))
resultado_balassa%>%head()%>%kable(caption = "Índice de Balassa con USA, CAN, MEX. Capítulo 01. 2017-2020", aling="l")%>% add_footnote(label="Elaboración propia con base en datos del BCR")%>%kable_material(html_font = "sans_serif")
Índice de Balassa con USA, CAN, MEX. Capítulo 01. 2017-2020
años Balassa_USA Balassa_CAN Balassa_MEX
2017 0.3597730 0.3953833 -0.5761364
2018 0.3228978 0.6144287 -0.8244130
2019 0.4015546 0.1885152 -0.8980952
2020 0.7034690 0.0410544 -0.9775297
a Elaboración propia con base en datos del BCR

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

options(scipen=99999)

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

resultado_IVCR = data.frame("años"=2017:2020,
                               "IVCR_USA"= sapply(X=2017:2020,
                                              FUN= indicadores_IVCR_capitulo,
                                              codigo_pais=840,
                                              capitulo="01"),
                               "IVCR_CAN"= sapply(X=2017:2020,
                                              FUN= indicadores_IVCR_capitulo,
                                              codigo_pais=124,
                                              capitulo="01"),
                                "IVCR_MEX"= sapply(X=2017:2020,
                                              FUN= indicadores_IVCR_capitulo,
                                              codigo_pais=484,
                                              capitulo="01"))
resultado_IVCR%>%head()%>%kable(caption = "IVCR con USA, CAN, MEX. Capítulo 01. 2017-2020", aling="l")%>% add_footnote(label="Elaboración propia con base en datos del BCR")%>%kable_material(html_font = "sans_serif")
IVCR con USA, CAN, MEX. Capítulo 01. 2017-2020
años IVCR_USA IVCR_CAN IVCR_MEX
2017 -0.1268112 0.0025811 -0.0006366
2018 -0.0997253 0.0000473 -0.0047801
2019 -0.0880920 0.0003483 -0.0014925
2020 -0.0841604 -0.0027953 -0.0013685
a 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)

data_comercio_exterior%>%
  filter(anio %in% 2017:2019,region_intermedia=="Centroamérica", valor_fob>0,valor_cif>0)%>%
  group_by(anio)%>%
  summarise(`Xijt MM USD_1`=sum(valor_fob)/1e6,
            `Mijt MM USD_1`=sum(valor_cif)/1e6)%>%
  mutate(Ratio_1 =`Mijt MM USD_1` /`Xijt MM USD_1`)%>%
  select("anio","Xijt MM USD_1","Mijt MM USD_1","Ratio_1")%>%head()%>%kable(caption = "Cantidad importada por cada dolar exportado a la región Centroamericana. 2017-2019", aling="l")%>% add_footnote(label="Elaboración propia con base en datos del BCR")%>%kable_material(html_font = "sans_serif")
Cantidad importada por cada dolar exportado a la región Centroamericana. 2017-2019
anio Xijt MM USD_1 Mijt MM USD_1 Ratio_1
2017 1444.992 1395.353 0.9656476
2018 1620.830 1570.746 0.9690997
2019 1734.932 1883.314 1.0855260
a 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$)

data_comercio_exterior%>%
  filter(region_intermedia=="Caribe",anio %in% 2017:2019)%>%
  group_by(anio)%>%summarise(`Xijt_2`=sum(valor_fob)/1e6,
                             `Mijt_2`=sum(valor_cif)/1e6)%>%
  mutate(`BC MM USD_2`=Xijt_2-Mijt_2)%>%
  select("anio","BC MM USD_2")%>%
 head()%>%kable(caption = "Saldo Balanza Comercial con el Caribe:2017-2019. MM USD", aling="l")%>% add_footnote(label="Elaboración propia con base en datos del BCR")%>%kable_material(html_font = "sans_serif")
Saldo Balanza Comercial con el Caribe:2017-2019. MM USD
anio BC MM USD_2
2017 104.1345
2018 138.0877
2019 147.5247
a 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$)

data_comercio_exterior%>%
  filter(sub_region=="Norte De Europa",anio %in% 2019:2020,valor_fob>0)%>%
  group_by(anio)%>%
  summarise(`Total de Exportaciones MM USD_2`=sum(valor_fob)/1e6)%>%head()%>%
  kable(caption = "Exportaciones Totales a el Norte de Europa:2019-2020. MM USD", aling="l")%>% add_footnote(label="Elaboración propia con base en datos del BCR")%>%kable_material(html_font = "sans_serif")
Exportaciones Totales a el Norte de Europa:2019-2020. MM USD
anio Total de Exportaciones MM USD_2
2019 19.80854
2020 12.15218
a Elaboración propia con base en datos del BCR

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

options(scipen=99999)

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

data_comercio_exterior%>%
  filter(anio %in% 2018:2019,region_intermedia=="Sudamerica", valor_fob>0,valor_cif>0)%>%
  group_by(anio)%>%
  summarise(`Xijt MM USD_3`=sum(valor_fob)/1e6,
            `Mijt MM USD_3`=sum(valor_cif)/1e6)%>%
  mutate(Ratio_3 =`Mijt MM USD_3` /`Xijt MM USD_3`)%>%
  select("anio","Xijt MM USD_3","Mijt MM USD_3","Ratio_3")%>%head()%>%kable(caption = "Cantidad importada por cada dolar exportado a la región Sudamerica. 2018-2019", aling="l")%>% add_footnote(label="Elaboración propia con base en datos del BCR")%>%kable_material(html_font = "sans_serif")
Cantidad importada por cada dolar exportado a la región Sudamerica. 2018-2019
anio Xijt MM USD_3 Mijt MM USD_3 Ratio_3
2018 7.082863 37.41055 5.281840
2019 11.490663 25.29053 2.200963
a 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.

resultado_IHH = data.frame("años"=2017:2020,
                               "IHH_USA"= sapply(X=2017:2020,
                                FUN= indicadores_IHH_Herfindahl_Hirschmann_anual,
                                              codigo_pais=840,
                                              normalizado=TRUE),
                               "IHH_CAN"= sapply(X=2017:2020,
                                FUN= indicadores_IHH_Herfindahl_Hirschmann_anual,
                                              codigo_pais=124,
                                              normalizado=TRUE),
                                "IHH_MEX"= sapply(X=2017:2020,
                                FUN= indicadores_IHH_Herfindahl_Hirschmann_anual,
                                              codigo_pais=484,
                                              normalizado=TRUE))
resultado_IHH%>%head()%>%kable(caption = "IHH con USA, CAN, MEX. 2017-2020", aling="l")%>% add_footnote(label="Elaboración propia con base en datos del BCR")%>%kable_material(html_font = "sans_serif")
IHH con USA, CAN, MEX. 2017-2020
años IHH_USA IHH_CAN IHH_MEX
2017 0.0055910 0.1231022 0.0165526
2018 0.0056610 0.0084443 0.0182162
2019 0.0058727 0.1190248 0.0142813
2020 0.0098672 0.0590948 0.0146978
a 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$)

data_comercio_exterior%>%
  filter(region_intermedia=="África Oriental",anio %in% 2017:2020,valor_fob>0)%>%
  group_by(anio)%>%
  summarise(`Total de Exportaciones MM USD_3`=sum(valor_fob)/1e6)%>%head()%>%
  kable(caption = "Exportaciones Totales a el África Oriental:2017-2020. MM USD", aling="l")%>% add_footnote(label="Elaboración propia con base en datos del BCR")%>%kable_material(html_font = "sans_serif")
Exportaciones Totales a el África Oriental:2017-2020. MM USD
anio Total de Exportaciones MM USD_3
2017 0.6734228
2018 4.0123130
2019 0.8439266
2020 0.0007570
a 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$)

data_comercio_exterior%>%
  filter(sub_region=="América Latina Y El Caribe",anio %in% 2017:2019)%>%
  group_by(anio)%>%summarise(`Xijt_4`=sum(valor_fob)/1e6,
                             `Mijt_4`=sum(valor_cif)/1e6)%>%
  mutate(`BC MM USD_4`=Xijt_4-Mijt_4)%>%
  select("anio","BC MM USD_4")%>%
 head()%>%kable(caption = "Saldo Balanza Comercial con Latinoamérica:2017-2019. MM USD", aling="l")%>% add_footnote(label="Elaboración propia con base en datos del BCR")%>%kable_material(html_font = "sans_serif")
Saldo Balanza Comercial con Latinoamérica:2017-2019. MM USD
anio BC MM USD_4
2017 -1024.633
2018 -1221.259
2019 -1485.784
a Elaboración propia con base en datos del BCR

2da Parte

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):

# Cargando la data de la Penn World Table
library(pwt9)
data("pwt9.0")

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

elegir_pais = function(country, anio_inicial, anio_final){
  pwt9.0 %>% filter(country==!!country,year>=anio_inicial & year<=anio_final)
}

elegir_pais("El Salvador", 1950,2014)%>%head(,n=25)%>%kable(caption = "El Salvador. 1950-2014", aling="l")%>% add_footnote(label="Elaboración propia con base en datos de la Penn World Table")%>%kable_material(html_font = "sans_serif")
El Salvador. 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.683 1162.960 1.974617 NA NA 1.221767 1106.165 1178.052 1276.176 1136.440 1489.365 NA NA 6510.534 6671.509 6988.906 14268.64 NA NA NA 0.0395769 1 0.0714821 0.0758341 0.0851586 extrapolated extrapolated market no NA NA 0.8601555 0.0632561 0.1132047 0.2326979 -0.2735967 0.0042824 0.0726798 0.1428014 0.0623814 0.0957944 0.0588752 0.1689458
SLV-1951 El Salvador SLV 1951 US Dollar 1406.211 1163.395 2.025469 NA NA 1.227318 1178.869 1266.991 1349.928 1105.532 1544.810 NA NA 6766.859 7134.093 7564.440 14326.17 NA NA NA 0.0402237 1 0.0819596 0.0872287 0.1065120 extrapolated extrapolated market no NA NA 0.9416709 0.0797104 0.1246656 0.2337610 -0.3840903 0.0042824 0.0833822 0.1577166 0.0712139 0.1204888 0.0574809 0.1872376
SLV-1952 El Salvador SLV 1952 US Dollar 1488.134 1253.536 2.079531 NA NA 1.232894 1251.227 1349.251 1420.908 1192.769 1588.553 NA NA 7264.295 7644.170 8093.954 14409.00 NA NA NA 0.0408718 1 0.0813641 0.0863657 0.1028848 extrapolated extrapolated market no NA NA 0.9220638 0.0821814 0.1269467 0.2189265 -0.3544008 0.0042824 0.0830379 0.1502092 0.0692063 0.1232858 0.0627610 0.1830856
SLV-1953 El Salvador SLV 1953 US Dollar 1593.581 1346.115 2.136806 NA NA 1.238495 1362.830 1463.970 1525.124 1305.574 1600.296 NA NA 7817.620 8292.652 8739.849 14508.44 NA NA NA 0.0413975 1 0.0864749 0.0914983 0.1068849 extrapolated extrapolated market no NA NA 0.9135450 0.0774674 0.1303107 0.2011925 -0.3267980 0.0042825 0.0883758 0.1591871 0.0731485 0.1240686 0.0646686 0.1915431
SLV-1954 El Salvador SLV 1954 US Dollar 1690.615 1356.889 2.197297 NA NA 1.244121 1450.979 1549.411 1615.577 1317.637 1580.193 NA NA 8021.829 8827.661 9217.746 14583.29 NA NA NA 0.0415397 1 0.0904802 0.0950344 0.1165233 extrapolated extrapolated market no NA NA 0.9554259 0.0747034 0.1457713 0.1846959 -0.3648789 0.0042825 0.0926551 0.1621677 0.0762254 0.1572254 0.0678737 0.1969756
SLV-1955 El Salvador SLV 1955 US Dollar 1753.397 1425.701 2.261005 NA NA 1.249773 1517.853 1618.173 1669.596 1384.103 1582.671 NA NA 8445.040 9284.060 9673.214 14673.44 NA NA NA 0.0416251 1 0.0956891 0.1001315 0.1207853 extrapolated extrapolated market no NA NA 0.9617410 0.0724800 0.1348921 0.1990355 -0.3724311 0.0042825 0.0980098 0.1673462 0.0791436 0.1412867 0.0669068 0.2019974
SLV-1956 El Salvador SLV 1956 US Dollar 1828.686 1514.185 2.327935 NA NA 1.253708 1564.435 1707.025 1730.086 1459.712 1657.897 NA NA 8990.820 9644.380 10412.619 15037.84 NA NA NA 0.0433461 1 0.0985739 0.1045277 0.1238889 extrapolated extrapolated market no NA NA 0.9360186 0.0976835 0.1357238 0.2061915 -0.3798999 0.0042824 0.1011595 0.1698505 0.0807427 0.1363328 0.0710446 0.2035257
SLV-1957 El Salvador SLV 1957 US Dollar 1975.537 1593.034 2.398088 NA NA 1.257655 1624.571 1784.295 1864.724 1527.841 1710.361 NA NA 9393.488 10034.266 10928.635 15464.78 NA NA NA 0.0452114 1 0.0923287 0.0987940 0.1205776 extrapolated extrapolated market no NA NA 0.9175580 0.1045418 0.1457536 0.2104285 -0.3825642 0.0042824 0.0949074 0.1645538 0.0760951 0.1567684 0.0739854 0.1990157
SLV-1958 El Salvador SLV 1958 US Dollar 1892.235 1650.909 2.471468 NA NA 1.261615 1627.995 1763.577 1785.912 1607.490 1703.699 NA NA 9519.496 10066.134 10701.722 15672.67 NA NA NA 0.0456185 1 0.0965574 0.1019307 0.1132444 extrapolated extrapolated market no NA NA 0.8733785 0.0843439 0.1393773 0.2108752 -0.3122572 0.0042824 0.0984481 0.1664504 0.0847094 0.1245530 0.0811313 0.2067156
SLV-1959 El Salvador SLV 1959 US Dollar 1908.075 1710.747 2.548077 NA NA 1.265587 1668.142 1771.133 1790.037 1664.498 1698.590 NA NA 9704.639 10381.457 10665.753 15645.99 NA NA NA 0.0446915 1 0.0946016 0.0988123 0.1062649 extrapolated extrapolated market no NA NA 0.8638852 0.0618752 0.1383039 0.2218550 -0.2902017 0.0042825 0.0970195 0.1670139 0.0794987 0.1086173 0.0807374 0.2079066
SLV-1960 El Salvador SLV 1960 US Dollar 1935.000 1727.861 2.627919 NA NA 1.269572 1713.026 1907.993 1833.119 1611.006 1723.048 NA NA 10141.434 10527.880 11719.510 16277.75 NA NA NA 0.0473846 1 0.0962097 0.1018848 0.1159318 extrapolated extrapolated market no NA NA 0.9170558 0.1210216 0.1462710 0.2162070 -0.4048379 0.0042825 0.0988007 0.1517473 0.0799656 0.1087158 0.0709836 0.1897212
SLV-1961 El Salvador SLV 1961 US Dollar 1988.435 1832.712 2.712668 NA NA 1.274122 1722.867 1888.861 1898.728 1738.631 1761.344 NA NA 10299.343 10425.415 11426.504 16665.32 NA NA NA 0.0484118 1 0.0946096 0.1000528 0.1092659 extrapolated extrapolated market no NA NA 0.8410482 0.0954738 0.1498846 0.2266681 -0.3173573 0.0042825 0.0980522 0.1565487 0.0752916 0.1075512 0.0765022 0.1878558
SLV-1962 El Salvador SLV 1962 US Dollar 2190.934 2056.026 2.797004 NA NA 1.278689 1908.765 2075.217 2094.641 2008.373 1795.502 NA NA 11393.634 11522.741 12500.359 17062.97 NA NA NA 0.0490132 1 0.0955800 0.1006432 0.1049662 extrapolated extrapolated market no NA NA 0.8089037 0.0828790 0.1414998 0.2388714 -0.2764365 0.0042826 0.0992214 0.1587041 0.0747635 0.1021776 0.0863978 0.1875454
SLV-1963 El Salvador SLV 1963 US Dollar 2262.952 2125.337 2.886994 NA NA 1.283272 2000.289 2183.816 2154.522 2091.819 1823.312 NA NA 11892.123 12173.597 13265.748 17543.06 NA NA NA 0.0499053 1 0.0983079 0.1033857 0.1064847 extrapolated extrapolated market no NA NA 0.8234706 0.0877356 0.1327731 0.2603160 -0.3085779 0.0042825 0.1019769 0.1587299 0.0755519 0.0984492 0.0892214 0.1913778
SLV-1964 El Salvador SLV 1964 US Dollar 2459.908 2274.694 2.976349 NA NA 1.287872 2139.116 2404.747 2332.529 2232.750 1897.548 NA NA 13026.593 13116.389 14919.761 18561.30 NA NA NA 0.0528911 1 0.0983872 0.1052776 0.1099823 extrapolated extrapolated market no NA NA 0.8332583 0.1189703 0.1248050 0.2604104 -0.3417265 0.0042826 0.1016200 0.1607654 0.0768040 0.1072705 0.0930878 0.1981099
SLV-1965 El Salvador SLV 1965 US Dollar 2638.417 2413.010 3.072018 NA NA 1.292488 2302.295 2551.578 2502.293 2375.560 1982.950 NA NA 13802.436 14111.995 15722.127 19365.05 NA NA NA 0.0547072 1 0.0987587 0.1047218 0.1103086 extrapolated extrapolated market no NA NA 0.8431790 0.1049364 0.1259799 0.2464250 -0.3248028 0.0042826 0.1021669 0.1597952 0.0759482 0.1182231 0.0978383 0.1955858
SLV-1966 El Salvador SLV 1966 US Dollar 2809.264 2571.686 3.184353 NA NA 1.297121 2499.565 2790.952 2666.593 2550.159 2106.566 NA NA 14927.101 15302.312 17257.166 20419.53 NA NA NA 0.0575785 1 0.0977634 0.1040615 0.1088127 extrapolated extrapolated market no NA NA 0.8504151 0.1142625 0.1297455 0.2290530 -0.3277587 0.0042826 0.1015147 0.1580872 0.0731759 0.1172740 0.0988610 0.1911767
SLV-1967 El Salvador SLV 1967 US Dollar 2962.031 2743.172 3.290953 NA NA 1.301770 2645.241 2897.411 2824.928 2745.077 2182.757 NA NA 15570.675 16075.046 17633.514 21093.55 NA NA NA 0.0587342 1 0.0967026 0.1031654 0.1061663 extrapolated extrapolated market no NA NA 0.8293132 0.0918625 0.1343175 0.2418038 -0.3015796 0.0042826 0.1006369 0.1709597 0.0724109 0.1126738 0.1008810 0.2037760
SLV-1968 El Salvador SLV 1968 US Dollar 2973.300 2871.786 3.407400 NA NA 1.306436 2685.812 2881.083 2844.069 2889.152 2199.776 NA NA 15887.046 16238.388 17227.877 21297.18 NA NA NA 0.0574213 1 0.1007127 0.1059778 0.1043241 extrapolated extrapolated market no NA NA 0.7941944 0.0675879 0.1354250 0.2517506 -0.2532404 0.0042825 0.1055000 0.1783949 0.0726378 0.1051589 0.1116658 0.2116146
SLV-1969 El Salvador SLV 1969 US Dollar 3072.134 2982.767 3.531444 NA NA 1.311119 2770.121 2991.297 2928.174 2991.856 2260.086 NA NA 16480.473 16726.619 17930.416 21689.30 NA NA NA 0.0568097 1 0.1006795 0.1069877 0.1047105 extrapolated extrapolated market no NA NA 0.7736632 0.0739260 0.1522238 0.2292933 -0.2333887 0.0042826 0.1063304 0.1859953 0.0719595 0.1059889 0.1157220 0.2208102
SLV-1970 El Salvador SLV 1970 US Dollar 3365.296 3070.213 3.668592 NA NA 1.315818 2927.776 3175.919 3199.564 3084.656 2350.377 NA NA 17229.572 17737.793 19129.137 22254.20 NA NA NA 0.0569395 1 0.0993653 0.1057294 0.1096680 extrapolated extrapolated market no NA NA 0.7905501 0.0804444 0.1585916 0.2057113 -0.2395799 0.0042826 0.1044083 0.1808180 0.0742268 0.1324988 0.1123454 0.2139115
SLV-1971 El Salvador SLV 1971 US Dollar 3400.099 3162.701 3.765252 NA NA 1.326031 2983.479 3288.684 3220.787 3166.822 2453.242 NA NA 18064.771 18239.385 20145.914 23028.00 NA NA NA 0.0577809 1 0.1031552 0.1104661 0.1123486 extrapolated extrapolated market no NA NA 0.7949576 0.0963759 0.1471476 0.2133937 -0.2507683 -0.0011065 0.1078779 0.1819325 0.0776416 0.1296717 0.1192943 0.2176460
SLV-1972 El Salvador SLV 1972 US Dollar 3625.126 3332.757 3.862132 NA NA 1.336322 3142.778 3429.795 3420.300 3342.622 2626.668 NA NA 19058.371 19195.180 20843.312 24376.66 NA NA NA 0.0600240 1 0.1039135 0.1108701 0.1134465 extrapolated extrapolated market no NA NA 0.7745525 0.0858658 0.1656611 0.2380006 -0.2519402 -0.0121397 0.1105379 0.1870435 0.0729405 0.1385974 0.1267125 0.2163169
SLV-1973 El Salvador SLV 1973 US Dollar 3889.177 3535.084 3.958616 NA NA 1.346694 3363.569 3739.708 3641.349 3510.522 2769.799 NA NA 20023.168 20695.355 23138.523 25351.46 NA NA NA 0.0613051 1 0.1100406 0.1204002 0.1248872 extrapolated extrapolated market no NA NA 0.7831610 0.1071460 0.1749784 0.2275720 -0.2961628 0.0033055 0.1179256 0.2130391 0.0747494 0.1643676 0.1390845 0.2576950
SLV-1974 El Salvador SLV 1974 US Dollar 3845.116 3708.943 4.053958 NA NA 1.357146 3419.448 3909.462 3613.523 3589.106 2981.376 NA NA 21304.768 21122.947 24593.070 26587.17 NA NA NA 0.0625725 1 0.1298678 0.1436119 0.1445889 extrapolated extrapolated market no NA NA 0.7876164 0.1365281 0.1651131 0.2635150 -0.3550588 0.0022862 0.1371266 0.2395224 0.0952418 0.1777933 0.1662351 0.3026217
a Elaboración propia con base en datos de la Penn World Table
#------------------------------------------------------------------------------

# 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

elegir_categoria_trade_detail = function(country,anio_inicial, anio_final){
  pwt9.0%>% filter(country==!!country,year>=anio_inicial & year<=anio_final)%>%
    select(country, year, pl_x, pl_m, csh_x, csh_m)
}

elegir_categoria_trade_detail("Argentina", 1950,2014)%>%head(,n=10)%>%kable(caption = "Argentina. 1950-2014", aling="l")%>% add_footnote(label="Elaboración propia con base en datos de la Penn World Table")%>%kable_material(html_font = "sans_serif")
Argentina. 1950-2014
country year pl_x pl_m csh_x csh_m
ARG-1950 Argentina 1950 0.1290759 0.1180764 0.1111818 -0.0549124
ARG-1951 Argentina 1951 0.1558549 0.1299270 0.0910209 -0.0678179
ARG-1952 Argentina 1952 0.1400716 0.1462543 0.0700704 -0.0520788
ARG-1953 Argentina 1953 0.1229455 0.1145618 0.0962276 -0.0373370
ARG-1954 Argentina 1954 0.1042912 0.1040372 0.0979796 -0.0463560
ARG-1955 Argentina 1955 0.1218847 0.1181408 0.0822265 -0.0514693
ARG-1956 Argentina 1956 0.2155612 0.2455499 0.0912248 -0.0445000
ARG-1957 Argentina 1957 0.2048247 0.2496538 0.0909500 -0.0473743
ARG-1958 Argentina 1958 0.1934512 0.2304398 0.0845386 -0.0432407
ARG-1959 Argentina 1959 0.2498368 0.2825796 0.0940148 -0.0400019
a Elaboración propia con base en datos de la Penn World Table
#------------------------------------------------------------------------------

# 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

elegir_pais(c("Mexico", "Canada"),2000,2014)%>%head(,n=25)%>%kable(caption = "México y Canada. 2000-2014", aling="l")%>% add_footnote(label="Elaboración propia con base en datos de la Penn World Table")%>%kable_material(html_font = "sans_serif")
México 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 30.99134 15.05903 1767.990 3.518916 814203.9 1079932 1145022 1144414 3268334 0.9022754 0.8153173 1190649 782785.5 1041029 3905941 1.0337603 0.9134005 0.6171623 0.0435058 1.5487608 0.6702421 0.6399313 0.6402714 interpolated benchmark market no NA NA 0.5601038 0.2321958 0.1513555 0.4177729 -0.3644541 0.0030261 0.6292517 0.5470572 0.8219304 0.5460286 0.5313601 0.6292847
CAN-2003 Canada CAN 2003 Canadian Dollar 1211094 1184269 31.59659 15.84749 1732.136 3.548722 858441.9 1148489 1194611 1200543 3349291 0.8915871 0.8093318 1247575 832796.8 1119539 4151862 1.0330168 0.9367892 0.6124471 0.0418044 1.4010517 0.7807368 0.7431563 0.7394839 interpolated benchmark market no NA NA 0.5621071 0.2415964 0.1529374 0.3902732 -0.3496419 0.0027278 0.7315946 0.6319304 0.9613546 0.5810179 0.5726507 0.7568532
CAN-2005 Canada CAN 2005 Canadian Dollar 1311424 1323181 32.25633 16.43793 1739.182 3.578782 918976.9 1263380 1315081 1326233 3865556 0.9038564 0.7981808 1327435 882079.1 1221829 4462552 1.0369463 0.9645296 0.5987505 0.0402097 1.2117633 0.9279599 0.8852534 0.8778094 benchmark benchmark market no 0.9038276 NA 0.5438991 0.2596853 0.1490238 0.4328717 -0.3851879 -0.0002920 0.8729587 0.7712987 1.1287004 0.6280424 0.6155325 0.8875628
CAN-2007 Canada CAN 2007 Canadian Dollar 1376870 1384391 32.98228 17.26695 1724.689 3.609095 969776.7 1342214 1370408 1395106 4445640 0.8834894 0.8020070 1389595 950916.3 1319552 4812567 1.0226208 0.9813300 0.6059821 0.0387376 1.0740992 1.1123220 1.0638244 1.0449910 interpolated benchmark market no NA NA 0.5394937 0.2669595 0.1556341 0.4428070 -0.3985552 -0.0063390 1.0543412 0.9375428 1.3133082 0.6796820 0.6845841 1.0519462
CAN-2009 Canada CAN 2009 Canadian Dollar 1310934 1304883 33.74656 17.43560 1678.515 3.639666 1000717.9 1325223 1306457 1323073 4794360 0.8118237 0.7897093 1367808 994270.1 1323141 5106391 0.9890912 0.9668959 0.6315947 0.0388171 1.1431006 1.0911957 1.0492800 1.0361022 interpolated benchmark market no NA NA 0.5724548 0.2452664 0.1839038 0.3453314 -0.3370062 -0.0099502 1.0351254 0.9200191 1.2657314 0.6898180 0.7204297 1.0221647
CAN-2011 Canada CAN 2011 Canadian Dollar 1423920 1455816 34.49990 18.07691 1683.574 3.662325 1045868.8 1440603 1423920 1455816 5427466 0.8070218 0.7662106 1455816 1045868.8 1440603 5427466 1.0000000 1.0000000 0.6074459 0.0370880 0.9895307 1.3175685 1.2562085 1.2286866 benchmark benchmark market no 0.8238315 NA 0.5405646 0.2711428 0.1778429 0.4387028 -0.4166212 -0.0116319 1.2595756 1.0936318 1.4938417 0.7052622 0.7428895 1.1579119
CAN-2013 Canada CAN 2013 Canadian Dollar 1478439 1493624 35.23061 18.66565 1682.736 3.676923 1086339.8 1488701 1465085 1472069 5828469 0.7754062 0.7574083 1513537 1084256.5 1500049 5779532 0.9928653 0.9944088 0.6191180 0.0364514 1.0297966 1.3056631 1.2551931 1.2492380 extrapolated benchmark market no NA NA 0.5595505 0.2733303 0.1784177 0.4206315 -0.4186161 -0.0133139 1.2401137 1.1189287 1.5112380 0.7374130 0.7493351 1.1488672
MEX-2000 Mexico MEX 2000 Mexican Peso 1241567 1203299 102.80859 38.60970 2173.992 2.417732 976115.5 1233276 1210525 1196573 2683662 0.6776875 0.6711588 1458667 1084404.0 1414794 3850000 1.1481084 1.0948994 0.4670270 0.0403870 9.4555583 0.5079750 0.5357581 0.5420051 interpolated benchmark market no NA NA 0.6732539 0.2149140 0.1425054 0.2626764 -0.2947699 0.0014202 0.5336822 0.6412158 0.3865237 0.5290740 0.5086392 0.6657988
MEX-2002 Mexico MEX 2002 Mexican Peso 1265801 1217542 105.57830 39.59854 2196.150 2.456598 1021844.4 1259728 1243224 1219592 2552782 0.6798000 0.6677148 1469444 1119252.6 1433203 4150159 1.0850003 1.0404917 0.4771637 0.0396217 9.6559583 0.5620881 0.5825984 0.5938877 benchmark benchmark market no NA NA 0.6941089 0.1950519 0.1437490 0.2504522 -0.2809940 -0.0023680 0.5839284 0.6707015 0.4566301 0.5262772 0.4921273 0.8063704
MEX-2004 Mexico MEX 2004 Mexican Peso 1399936 1345215 108.25782 41.23692 2123.364 2.496088 1114709.0 1384239 1376237 1344221 3077106 0.6890303 0.6691776 1552597 1225134.2 1551886 4461555 1.0916569 1.0728562 0.4381100 0.0373214 11.2859667 0.5380411 0.5595008 0.5728266 interpolated benchmark market no NA 74.44444 0.6979996 0.2005101 0.1312609 0.2391311 -0.2745519 0.0056502 0.5515599 0.6482526 0.4661525 0.5847969 0.5332708 0.7196133
MEX-2006 Mexico MEX 2006 Mexican Peso 1581637 1542631 111.38286 43.06945 2141.324 2.536212 1244907.5 1576208 1571088 1546752 3770402 0.7279464 0.6927031 1679987 1343449.2 1719133 4852529 1.0932913 1.1000023 0.4061596 0.0366829 10.8992417 0.5956349 0.6144006 0.6240674 interpolated benchmark market no NA 68.88889 0.6725003 0.2141908 0.1323524 0.2579798 -0.2801102 0.0030870 0.6152702 0.6849153 0.4958651 0.6264205 0.5910664 0.7278860
MEX-2008 Mexico MEX 2008 Mexican Peso 1693705 1677677 114.97282 45.01016 2173.356 2.571415 1345486.1 1729921 1692513 1672410 4036200 0.7459487 0.7331457 1758094 1411593.2 1826431 5305337 1.0535300 1.0761238 0.3901641 0.0364498 11.1297167 0.6365756 0.6506737 0.6584950 interpolated benchmark market no NA 77.77778 0.6508341 0.2298687 0.1536851 0.2416872 -0.2696986 -0.0063766 0.6767916 0.7000160 0.4662665 0.7205961 0.6841487 0.8066145
MEX-2010 Mexico MEX 2010 Mexican Peso 1734610 1694514 118.61754 48.29945 2128.041 2.599173 1381195.4 1742997 1728535 1697135 5054693 0.6361806 0.6299252 1761765 1405425.9 1779081 5671746 0.9895102 0.9824765 0.4086950 0.0366899 12.6360083 0.5986645 0.6074073 0.6186453 interpolated benchmark market no NA 85.55556 0.6285632 0.2131835 0.1852762 0.2481539 -0.2698361 -0.0053407 0.6602539 0.6407837 0.3897180 0.7083094 0.6583319 0.6478299
MEX-2012 Mexico MEX 2012 Mexican Peso 1908250 1862729 122.07096 50.82909 2106.862 2.637690 1535906.1 1947835 1903657 1851572 6089364 0.6145336 0.6213605 1904764 1537147.2 1954599 6096434 1.0019095 1.0108787 0.3860400 0.0368447 13.1694583 0.6110190 0.6222254 0.6397288 extrapolated benchmark market no NA 88.00000 0.6352695 0.2224750 0.1942454 0.2695678 -0.2984421 -0.0231156 0.6784819 0.6640091 0.3903852 0.7425870 0.6709370 0.6141177
MEX-2014 Mexico MEX 2014 Mexican Peso 1987688 1945966 125.38583 51.41257 2136.773 2.676779 1602949.4 2009978 1974138 1934006 6677512 0.6035797 0.6044779 1974418 1601032.4 2025506 6498114 0.9832620 0.9917858 0.3860400 0.0373482 13.2924500 0.6468756 0.6558278 0.6694366 extrapolated benchmark market no NA 85.55556 0.6356119 0.2104586 0.1932114 0.2715108 -0.2945466 -0.0162460 0.7153954 0.6910835 0.4214644 0.7570050 0.7021390 0.6044782
a Elaboración propia con base en datos de la Penn World Table
elegir_categoria_trade_detail(c("Mexico","Canada"),2000,2014)%>%head(,n=25)%>%kable(caption = "México y Canada:Trade Detail. 2000-2014", aling="l")%>% add_footnote(label="Elaboración propia con base en datos de la Penn World Table")%>%kable_material(html_font = "sans_serif")
México y Canada:Trade Detail. 2000-2014
country year pl_x pl_m csh_x csh_m
CAN-2001 Canada 2001 0.5460286 0.5313601 0.4177729 -0.3644541
CAN-2003 Canada 2003 0.5810179 0.5726507 0.3902732 -0.3496419
CAN-2005 Canada 2005 0.6280424 0.6155325 0.4328717 -0.3851879
CAN-2007 Canada 2007 0.6796820 0.6845841 0.4428070 -0.3985552
CAN-2009 Canada 2009 0.6898180 0.7204297 0.3453314 -0.3370062
CAN-2011 Canada 2011 0.7052622 0.7428895 0.4387028 -0.4166212
CAN-2013 Canada 2013 0.7374130 0.7493351 0.4206315 -0.4186161
MEX-2000 Mexico 2000 0.5290740 0.5086392 0.2626764 -0.2947699
MEX-2002 Mexico 2002 0.5262772 0.4921273 0.2504522 -0.2809940
MEX-2004 Mexico 2004 0.5847969 0.5332708 0.2391311 -0.2745519
MEX-2006 Mexico 2006 0.6264205 0.5910664 0.2579798 -0.2801102
MEX-2008 Mexico 2008 0.7205961 0.6841487 0.2416872 -0.2696986
MEX-2010 Mexico 2010 0.7083094 0.6583319 0.2481539 -0.2698361
MEX-2012 Mexico 2012 0.7425870 0.6709370 0.2695678 -0.2984421
MEX-2014 Mexico 2014 0.7570050 0.7021390 0.2715108 -0.2945466
a Elaboración propia con base en datos de la Penn World Table

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.

elegir_pais = function(country, anio_inicial, anio_final){
  pwt9.0 %>% filter(country==!!country,year>=anio_inicial & year<=anio_final)
}

elegir_pais("Guatemala", 1990,2014)%>%head(,n=25)%>%kable(caption = "Guatemala. 1990-2014", aling="l")%>% add_footnote(label="Elaboración propia con base en datos de la Penn World Table")%>%kable_material(html_font = "sans_serif")
Guatemala. 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.62 34222.74 9.158547 2.538660 NA 1.505300 32241.00 35134.41 33063.18 34293.31 45778.58 0.8753806 0.8853395 46215.35 41905.34 47471.36 126784.4 0.9577078 0.9025829 0.4626807 0.0681985 4.485758 0.1929589 0.2062707 0.1988716 interpolated benchmark market no NA NA 0.8334805 0.0843724 0.1066736 0.0651807 -0.0982982 0.0085911 0.1960830 0.3546031 0.1685490 0.5202830 0.4891152 0.3006485
GTM-1991 Guatemala GTM 1991 Quetzal 35438.66 36470.83 9.385000 2.605186 NA 1.519857 33555.41 37250.09 35158.59 36600.20 47208.34 0.9033879 0.9155734 47906.02 43432.05 50421.88 129355.2 0.9687026 0.9354662 0.4626807 0.0681924 5.028880 0.2252538 0.2385006 0.2291065 interpolated benchmark market no NA NA 0.8176922 0.1009468 0.0991172 0.0605982 -0.0962708 0.0179165 0.2310958 0.3588092 0.1770586 0.5420392 0.5253956 0.2961766
GTM-1992 Guatemala GTM 1992 Quetzal 36326.25 37987.71 9.619113 2.720084 NA 1.534554 35497.80 40458.93 35981.47 37812.49 49587.25 0.8589593 0.9131517 50223.88 45647.37 54848.88 133586.8 0.9764827 0.9784324 0.4626807 0.0678795 5.170630 0.2416930 0.2586807 0.2461544 interpolated benchmark market no NA NA 0.8386466 0.1312035 0.1001385 0.0681966 -0.1391768 0.0009916 0.2452815 0.3802301 0.2116399 0.5023061 0.4679706 0.3603562
GTM-1993 Guatemala GTM 1993 Quetzal 38583.34 40375.68 9.860063 2.825407 NA 1.549394 37369.67 42216.37 38180.74 40147.47 53500.32 0.8575951 0.8890855 52196.79 47680.36 56266.14 140097.1 0.9635613 0.9529967 0.4626807 0.0679666 5.635363 0.2488299 0.2661781 0.2531387 interpolated benchmark market no NA NA 0.8316219 0.1207225 0.0991882 0.0653350 -0.1420268 0.0251591 0.2522477 0.3999384 0.2201738 0.5101784 0.4679225 0.3295898
GTM-1994 Guatemala GTM 1994 Quetzal 41145.23 42164.69 10.106463 2.960489 NA 1.564377 39555.75 44458.89 40625.70 42118.18 57302.10 0.8412362 0.8751096 54301.95 49909.42 58601.23 144104.8 0.9581584 0.9487185 0.4626807 0.0679718 5.751201 0.2694702 0.2848994 0.2748038 interpolated benchmark market no NA NA 0.8428388 0.1164139 0.0963221 0.0702836 -0.1304091 0.0045509 0.2742199 0.4093736 0.2279084 0.5075458 0.4819565 0.3656753
GTM-1995 Guatemala GTM 1995 Quetzal 43889.57 45114.49 10.357354 3.029005 NA 1.579504 42208.83 47068.03 43522.26 45290.43 62316.18 0.8563243 0.8790638 56981.12 52361.34 60906.52 150601.8 0.9630098 0.9444355 0.4626807 0.0687958 5.810342 0.2832287 0.3002045 0.2884842 interpolated benchmark market no NA NA 0.8439781 0.1072898 0.0879809 0.0781004 -0.1397344 0.0223853 0.2876097 0.4476626 0.2412024 0.5471875 0.5202458 0.3337128
GTM-1996 Guatemala GTM 1996 Quetzal 45516.44 46279.23 10.612300 3.077578 NA 1.593614 43993.85 48135.54 45269.62 46609.67 66182.52 0.8338670 0.8501827 58669.06 53711.55 60829.76 154488.9 0.9678007 0.9206650 0.4626807 0.0680509 6.049512 0.2951957 0.3108068 0.3018711 interpolated benchmark market no NA NA 0.8614841 0.0888591 0.0823941 0.0781560 -0.1268653 0.0159719 0.2996605 0.4766318 0.2485133 0.5574598 0.5320690 0.3673370
GTM-1997 Guatemala GTM 1997 Quetzal 48241.86 48901.27 10.871786 3.177999 NA 1.607850 46064.64 51158.18 47688.03 49022.37 72300.22 0.8107752 0.8355905 61235.07 55940.71 64595.59 163422.1 0.9586948 0.9278800 0.4626807 0.0676323 6.065269 0.3171500 0.3324771 0.3234273 interpolated benchmark market no NA NA 0.8545197 0.1039023 0.0851460 0.0893638 -0.1552649 0.0223331 0.3234993 0.4710912 0.2534287 0.5350770 0.5060688 0.3360571
GTM-1998 Guatemala GTM 1998 Quetzal 51417.23 51953.59 11.136814 3.329491 NA 1.622214 48666.76 55740.56 50502.77 52091.17 79881.70 0.7793075 0.8186667 64293.27 58718.48 70643.41 172925.6 0.9488526 0.9565630 0.4626807 0.0691223 6.394653 0.3237718 0.3423565 0.3319172 interpolated benchmark market no NA NA 0.8457731 0.1357965 0.0884882 0.0962769 -0.1822959 0.0159612 0.3279001 0.4702171 0.2843134 0.5147717 0.4897670 0.3603995
GTM-1999 Guatemala GTM 1999 Quetzal 53550.95 54882.24 11.408815 3.447858 NA 1.636705 51127.00 58298.11 52587.78 54994.94 89126.99 0.7519059 0.7746418 66766.56 61015.44 72668.62 185427.2 0.9284942 0.9272051 0.4626807 0.0720938 7.385610 0.2927798 0.3105237 0.2969320 interpolated benchmark market no NA 47.77778 0.8388500 0.1303959 0.0908173 0.0904227 -0.1702599 0.0197740 0.2946025 0.4370305 0.2759442 0.4943322 0.4863929 0.2925759
GTM-2000 Guatemala GTM 2000 Quetzal 56102.14 57968.25 11.688660 3.576353 NA 1.651326 53538.39 61430.30 55067.02 57636.36 96989.82 0.7267604 0.7443070 69175.77 63408.13 75548.16 192628.2 0.9231635 0.9250330 0.4626807 0.0718838 7.763159 0.2949465 0.3122673 0.2983468 interpolated benchmark market no NA NA 0.8344309 0.1369260 0.0944685 0.0985218 -0.1757428 0.0113956 0.2949118 0.4297707 0.2952531 0.4753692 0.4820090 0.3206322
GTM-2001 Guatemala GTM 2001 Quetzal 58489.13 61418.70 11.976725 3.719503 NA 1.644117 56344.38 65172.14 57608.37 61010.92 103967.48 0.7368973 0.7537643 70788.73 65909.31 78846.05 198709.3 0.9198117 0.9399905 0.4626807 0.0555546 7.858593 0.3102637 0.3246546 0.3065487 interpolated benchmark market no NA NA 0.8293597 0.1446914 0.0941534 0.0844560 -0.1916583 0.0389978 0.3083138 0.4165066 0.3274388 0.4682079 0.4786980 0.3918616
GTM-2002 Guatemala GTM 2002 Quetzal 61456.70 63811.87 12.272208 3.890061 NA 1.636940 58545.00 68691.82 60556.65 63553.07 112948.85 0.7303415 0.7506577 73525.86 67883.91 81973.27 205983.8 0.9239915 0.9451677 0.4540263 0.0536999 7.821645 0.3296143 0.3430928 0.3269165 interpolated benchmark market no NA NA 0.8309575 0.1596590 0.0902411 0.0741353 -0.2058145 0.0508217 0.3273902 0.4208606 0.3500943 0.4727791 0.4644080 0.4068114
GTM-2003 Guatemala GTM 2003 Quetzal 63583.77 66275.41 12.573346 4.028822 NA 1.629793 61206.75 71559.89 62545.62 66160.77 122840.91 0.7199143 0.7388628 75386.65 70127.82 84049.51 212495.2 0.9239281 0.9451215 0.4538320 0.0521087 7.940847 0.3370055 0.3504254 0.3312775 interpolated benchmark market no NA NA 0.8377278 0.1564846 0.0873937 0.0773233 -0.2011427 0.0422132 0.3341971 0.4297630 0.3639254 0.5150070 0.5048708 0.4096814
GTM-2004 Guatemala GTM 2004 Quetzal 66131.61 69108.45 12.877711 4.003099 NA 1.622678 63706.59 74806.21 64977.05 69019.59 136110.94 0.7217454 0.7377543 77762.90 72080.09 86489.88 218599.4 0.9426609 0.9619601 0.4480789 0.0506187 7.946496 0.3546667 0.3688270 0.3472244 interpolated benchmark market no NA 81.11111 0.8437819 0.1608183 0.0792400 0.0776921 -0.2139023 0.0523700 0.3519154 0.4501000 0.3839642 0.5467442 0.5291523 0.4214014
GTM-2005 Guatemala GTM 2005 Quetzal 68825.27 72399.19 13.183505 4.241460 NA 1.615594 68320.18 79756.32 68791.45 72216.68 153376.92 0.7071830 0.7240139 80298.05 74990.95 89195.77 225095.9 0.9360399 0.9539868 0.4452629 0.0502148 7.633944 0.3831682 0.3955610 0.3767996 interpolated benchmark market no NA 78.88889 0.8655689 0.1583587 0.0804754 0.1347229 -0.2678438 0.0287179 0.3818860 0.4695967 0.3969589 0.5530560 0.5428140 0.4195978
GTM-2006 Guatemala GTM 2006 Quetzal 73486.25 76668.98 13.490041 4.482933 NA 1.647152 72078.90 85189.21 72839.48 76602.49 173933.11 0.6903256 0.7168869 84617.91 78573.34 94445.38 234027.8 0.9340488 0.9565259 0.4420631 0.0498596 7.602631 0.4031882 0.4150377 0.3946494 interpolated benchmark market no NA 80.00000 0.8599222 0.1711473 0.0810249 0.0722222 -0.2245417 0.0402250 0.4027652 0.4801847 0.4076773 0.5780641 0.5546211 0.4089134
GTM-2007 Guatemala GTM 2007 Quetzal 79439.30 82025.16 13.797629 4.478435 NA 1.679327 77205.08 91696.30 78528.68 82104.99 192681.02 0.7068482 0.7448530 89952.32 83017.79 100097.27 243391.2 0.9650598 0.9853097 0.4321372 0.0495606 7.673304 0.4238964 0.4344028 0.4154811 interpolated benchmark market no NA 78.88889 0.8571900 0.1764962 0.0831313 0.1314359 -0.2753900 0.0271366 0.4230407 0.4903775 0.4327194 0.6392542 0.5990165 0.4042647
GTM-2008 Guatemala GTM 2008 Quetzal 83265.55 85980.33 14.106687 4.473998 NA 1.711398 82892.91 95164.66 82976.34 85649.05 209983.75 0.7073764 0.7467952 92903.74 87139.71 100861.81 251030.0 0.9743035 0.9705023 0.4268249 0.0476142 7.560028 0.4640414 0.4716553 0.4569371 interpolated benchmark market no NA 82.22222 0.8770284 0.1432793 0.0907921 0.1277802 -0.2653549 0.0264748 0.4651203 0.5230856 0.4536191 0.7069185 0.6389426 0.4338338
GTM-2009 Guatemala GTM 2009 Quetzal 87864.48 88414.58 14.418033 4.470042 NA 1.736535 84656.93 95068.25 87094.73 88634.62 223994.41 0.7129018 0.7426124 93392.59 88072.64 99219.42 255899.8 0.9707723 0.9462597 0.4251315 0.0466098 8.161555 0.4283527 0.4332508 0.4257237 interpolated benchmark market no NA 85.55556 0.8545183 0.1174633 0.1006044 0.1215293 -0.2168599 0.0227446 0.4280714 0.4730786 0.4307415 0.6692148 0.5994061 0.3882567
GTM-2010 Guatemala GTM 2010 Quetzal 92085.59 93170.68 14.732261 4.347271 NA 1.762041 89748.67 101272.45 91646.23 93270.40 241053.61 0.7112700 0.7445784 96072.38 91514.48 103506.62 260478.3 0.9917862 0.9803844 0.4237789 0.0465325 8.057771 0.4447823 0.4510618 0.4432071 interpolated benchmark market no NA 85.55556 0.8577853 0.1235524 0.1044564 0.1320213 -0.2426869 0.0248715 0.4448180 0.4999667 0.4444899 0.6870530 0.6110010 0.3990763
GTM-2011 Guatemala GTM 2011 Quetzal 98496.59 100070.86 15.049280 4.464380 NA 1.782439 94919.23 109068.38 98496.59 100070.86 266095.22 0.7085029 0.7408973 100070.86 94919.24 109068.38 266095.2 1.0000000 1.0000000 0.4160447 0.0454343 7.785418 0.4794830 0.4838211 0.4762098 benchmark benchmark market no 0.5634772 83.33333 0.8469821 0.1413912 0.1015381 0.1422097 -0.2601334 0.0280123 0.4796763 0.5129236 0.4778700 0.7140051 0.6380976 0.4046682
GTM-2012 Guatemala GTM 2012 Quetzal 101200.23 102466.37 15.368759 5.068458 NA 1.803074 98274.92 112493.70 101122.35 101964.92 272282.81 0.6613257 0.7012603 103042.98 98166.99 112555.04 272057.2 0.9599255 0.9620391 0.4163693 0.0443241 7.833605 0.4937098 0.4982916 0.4941741 extrapolated benchmark market no NA 80.00000 0.8587239 0.1394477 0.1050872 0.1436424 -0.2704758 0.0235746 0.4945794 0.5299590 0.4866040 0.6912617 0.6156372 0.4213769
GTM-2013 Guatemala GTM 2013 Quetzal 104637.66 105246.73 15.690793 4.870840 NA 1.823948 102153.27 115864.62 104280.19 104663.09 281013.78 0.6811199 0.7282866 106852.91 101996.58 116153.33 277956.6 0.9934911 0.9908731 0.4163693 0.0444593 7.856814 0.5118735 0.5164074 0.5145181 extrapolated benchmark market no NA 76.66667 0.8676862 0.1310047 0.1083338 0.1364953 -0.2705641 0.0270442 0.5131051 0.5501858 0.5020098 0.7045580 0.6181203 0.4230438
GTM-2014 Guatemala GTM 2014 Quetzal 109715.60 110703.16 16.015494 5.011289 NA 1.845063 106532.52 120539.55 109468.74 110100.03 292397.53 0.6863526 0.7241055 111393.91 106132.74 120699.96 284343.5 1.0038136 0.9979470 0.4163693 0.0446557 7.732232 0.5332622 0.5373848 0.5343036 extrapolated benchmark market no NA 68.88889 0.8586715 0.1272209 0.1089260 0.1401623 -0.2591750 0.0241942 0.5334974 0.5687401 0.5314080 0.7057272 0.6400257 0.4220564
a Elaboración propia con base en datos de la Penn World Table
#------------------------------------------------------------------------------

#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

elegir_categoria_labor_detail = function(country,anio_inicial, anio_final){
  pwt9.0%>% filter(country==!!country,year>=anio_inicial & year<=anio_final)%>%
    select(country,year,emp, avh, hc, labsh)
}

elegir_categoria_labor_detail("Argentina", 1950,2014)%>%head(,n=10)%>%kable(caption = "Argentina. 1950-2014", aling="l")%>% add_footnote(label="Elaboración propia con base en datos de la Penn World Table")%>%kable_material(html_font = "sans_serif")
Argentina. 1950-2014
country year emp avh hc labsh
ARG-1950 Argentina 1950 6.546807 2034.000 1.816503 0.5337398
ARG-1951 Argentina 1951 6.650246 2037.867 1.830769 0.5337398
ARG-1952 Argentina 1952 6.755320 2041.741 1.845147 0.5337398
ARG-1953 Argentina 1953 6.862053 2045.622 1.859638 0.5337398
ARG-1954 Argentina 1954 6.970472 2049.511 1.874243 0.5337398
ARG-1955 Argentina 1955 7.080605 2053.407 1.888963 0.5337398
ARG-1956 Argentina 1956 7.176124 2057.311 1.901768 0.5337398
ARG-1957 Argentina 1957 7.272932 2061.222 1.914661 0.5337398
ARG-1958 Argentina 1958 7.371045 2065.141 1.927641 0.5337398
ARG-1959 Argentina 1959 7.470483 2069.067 1.940709 0.5337398
a Elaboración propia con base en datos de la Penn World Table
#-------------------------------------------------------------------------------

# 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

elegir_pais(c("United States of America", "Canada"),2000,2014)%>%head(,n=25)%>%kable(caption = "EE.UU y Canada. 2000-2014", aling="l")%>% add_footnote(label="Elaboración propia con base en datos de la Penn World Table")%>%kable_material(html_font = "sans_serif")
EE.UU 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 30.99134 15.05903 1767.990 3.518916 814203.9 1079932 1145022 1144414 3268334 0.9022754 0.8153173 1190649 782785.5 1041029 3905941 1.0337603 0.9134005 0.6171623 0.0435058 1.5487608 0.6702421 0.6399313 0.6402714 interpolated benchmark market no NA NA 0.5601038 0.2321958 0.1513555 0.4177729 -0.3644541 0.0030261 0.6292517 0.5470572 0.8219304 0.5460286 0.5313601 0.6292847
CAN-2003 Canada CAN 2003 Canadian Dollar 1211094 1184269 31.59659 15.84749 1732.136 3.548722 858441.9 1148489 1194611 1200543 3349291 0.8915871 0.8093318 1247575 832796.8 1119539 4151862 1.0330168 0.9367892 0.6124471 0.0418044 1.4010517 0.7807368 0.7431563 0.7394839 interpolated benchmark market no NA NA 0.5621071 0.2415964 0.1529374 0.3902732 -0.3496419 0.0027278 0.7315946 0.6319304 0.9613546 0.5810179 0.5726507 0.7568532
CAN-2005 Canada CAN 2005 Canadian Dollar 1311424 1323181 32.25633 16.43793 1739.182 3.578782 918976.9 1263380 1315081 1326233 3865556 0.9038564 0.7981808 1327435 882079.1 1221829 4462552 1.0369463 0.9645296 0.5987505 0.0402097 1.2117633 0.9279599 0.8852534 0.8778094 benchmark benchmark market no 0.9038276 NA 0.5438991 0.2596853 0.1490238 0.4328717 -0.3851879 -0.0002920 0.8729587 0.7712987 1.1287004 0.6280424 0.6155325 0.8875628
CAN-2007 Canada CAN 2007 Canadian Dollar 1376870 1384391 32.98228 17.26695 1724.689 3.609095 969776.7 1342214 1370408 1395106 4445640 0.8834894 0.8020070 1389595 950916.3 1319552 4812567 1.0226208 0.9813300 0.6059821 0.0387376 1.0740992 1.1123220 1.0638244 1.0449910 interpolated benchmark market no NA NA 0.5394937 0.2669595 0.1556341 0.4428070 -0.3985552 -0.0063390 1.0543412 0.9375428 1.3133082 0.6796820 0.6845841 1.0519462
CAN-2009 Canada CAN 2009 Canadian Dollar 1310934 1304883 33.74656 17.43560 1678.515 3.639666 1000717.9 1325223 1306457 1323073 4794360 0.8118237 0.7897093 1367808 994270.1 1323141 5106391 0.9890912 0.9668959 0.6315947 0.0388171 1.1431006 1.0911957 1.0492800 1.0361022 interpolated benchmark market no NA NA 0.5724548 0.2452664 0.1839038 0.3453314 -0.3370062 -0.0099502 1.0351254 0.9200191 1.2657314 0.6898180 0.7204297 1.0221647
CAN-2011 Canada CAN 2011 Canadian Dollar 1423920 1455816 34.49990 18.07691 1683.574 3.662325 1045868.8 1440603 1423920 1455816 5427466 0.8070218 0.7662106 1455816 1045868.8 1440603 5427466 1.0000000 1.0000000 0.6074459 0.0370880 0.9895307 1.3175685 1.2562085 1.2286866 benchmark benchmark market no 0.8238315 NA 0.5405646 0.2711428 0.1778429 0.4387028 -0.4166212 -0.0116319 1.2595756 1.0936318 1.4938417 0.7052622 0.7428895 1.1579119
CAN-2013 Canada CAN 2013 Canadian Dollar 1478439 1493624 35.23061 18.66565 1682.736 3.676923 1086339.8 1488701 1465085 1472069 5828469 0.7754062 0.7574083 1513537 1084256.5 1500049 5779532 0.9928653 0.9944088 0.6191180 0.0364514 1.0297966 1.3056631 1.2551931 1.2492380 extrapolated benchmark market no NA NA 0.5595505 0.2733303 0.1784177 0.4206315 -0.4186161 -0.0133139 1.2401137 1.1189287 1.5112380 0.7374130 0.7493351 1.1488672
USA-2000 United States of America USA 2000 US Dollar 13222419 13031820 282.89574 139.29607 1848.147 3.578582 9977582.0 13511612 13035321 12983206 35997032 1.0000000 1.0000000 12975535 10500206.0 13647352 38439588 0.9205835 0.9289908 0.6426795 0.0521203 1.0000000 0.8255066 0.7889932 0.7921603 interpolated benchmark market no NA NA 0.6758358 0.2722001 0.0926633 0.1060347 -0.1566473 0.0099135 0.7741043 0.6859053 1.2004077 0.5668258 0.6185908 0.7926286
USA-2002 United States of America USA 2002 US Dollar 13591523 13309916 288.47085 139.08432 1805.477 3.598118 10524779.0 14027745 13503168 13339370 38467564 1.0000000 1.0000000 13336194 11088529.0 14123900 40679832 0.9388351 0.9539754 0.6347357 0.0501273 1.0000000 0.8584893 0.8129588 0.8229414 benchmark benchmark market no NA NA 0.6889258 0.2626036 0.1000754 0.0934876 -0.1526167 0.0075243 0.8035018 0.6761612 1.2370269 0.5558824 0.5905658 0.8231374
USA-2004 United States of America USA 2004 US Dollar 14499944 14204685 293.53089 141.63098 1783.413 3.617761 11251801.0 15090846 14366189 14232334 42071616 1.0000000 1.0000000 14229557 11796878.0 15181932 43024076 0.9741488 0.9972088 0.6222099 0.0477466 1.0000000 0.9002079 0.8544319 0.8624678 interpolated benchmark market no NA NA 0.6870325 0.2697411 0.1035477 0.0912226 -0.1587287 0.0071849 0.8447491 0.7202677 1.2681735 0.6299770 0.6751730 0.8626361
USA-2006 United States of America USA 2006 US Dollar 15353601 15083465 298.86052 146.61525 1778.528 3.642329 12126527.0 16170304 15318001 15099868 47891040 1.0000000 1.0000000 15097712 12476968.0 16121374 45671956 0.9863822 1.0105580 0.6123036 0.0455617 1.0000000 0.9395798 0.9045495 0.9176166 interpolated benchmark market no NA NA 0.6949668 0.2678021 0.1081215 0.1048826 -0.1837855 0.0080125 0.8866088 0.7995001 1.2800587 0.6548091 0.6914976 0.9177476
USA-2008 United States of America USA 2008 US Dollar 15357469 15305872 304.47314 147.52623 1761.316 3.671921 12569281.0 16125585 15370500 15321926 50006724 1.0000000 1.0000000 15321422 12759836.0 16086510 47779436 0.9808996 0.9881262 0.6150548 0.0462778 1.0000000 0.9851168 0.9575869 0.9606227 interpolated benchmark market no NA NA 0.7019295 0.2321056 0.1184165 0.1129995 -0.1750899 0.0096388 0.9310760 0.8602863 1.3054508 0.7507930 0.8069550 0.9606543
USA-2010 United States of America USA 2010 US Dollar 15368666 15250698 309.87617 141.34911 1738.001 3.701753 12764841.0 15842214 15317448 15273702 48876336 1.0000000 1.0000000 15273331 12883714.0 15924426 48728140 0.9990609 0.9994178 0.5952319 0.0471083 1.0000000 0.9968326 0.9769499 0.9797481 interpolated benchmark market no NA NA 0.7068287 0.2014818 0.1289111 0.1149813 -0.1603202 0.0081173 0.9450076 0.8944773 1.2809926 0.7277685 0.7809259 0.9797719
USA-2012 United States of America USA 2012 US Dollar 15976742 15899255 314.79946 144.86284 1753.699 3.712276 13206454.0 16505245 15946878 15863845 50020716 1.0000000 1.0000000 15863049 13182059.0 16509182 49960600 1.0051460 1.0036752 0.6020187 0.0478848 1.0000000 1.0294040 1.0130669 1.0183694 extrapolated benchmark market no NA NA 0.7113655 0.2079439 0.1211221 0.1274738 -0.1780486 0.0101433 0.9792322 0.9476624 1.3240701 0.7639757 0.8052509 1.0184206
USA-2014 United States of America USA 2014 US Dollar 16704698 16598099 319.44863 148.46339 1764.597 3.722829 13685949.0 17113208 16605887 16490883 52849892 1.0000000 1.0000000 16490192 13585164.0 17137356 51190644 1.0141082 1.0111778 0.6035975 0.0470459 1.0000000 1.0537966 1.0446941 1.0519795 extrapolated benchmark market no NA NA 0.7167840 0.2078275 0.1131261 0.1276901 -0.1767433 0.0113156 1.0038527 1.0083452 1.3702492 0.7692084 0.8049124 1.0520236
a Elaboración propia con base en datos de la Penn World Table
elegir_categoria_labor_detail(c("United States of America", "Canada"),2000,2014)%>%head(,n=25)%>%kable(caption = "EE.UU y Canada: Labor Detail. 2000-2014", aling="l")%>% add_footnote(label="Elaboración propia con base en datos de la Penn World Table")%>%kable_material(html_font = "sans_serif")
EE.UU y Canada: Labor Detail. 2000-2014
country year emp avh hc labsh
CAN-2001 Canada 2001 15.05903 1767.990 3.518916 0.6171623
CAN-2003 Canada 2003 15.84749 1732.136 3.548722 0.6124471
CAN-2005 Canada 2005 16.43793 1739.182 3.578782 0.5987505
CAN-2007 Canada 2007 17.26695 1724.689 3.609095 0.6059821
CAN-2009 Canada 2009 17.43560 1678.515 3.639666 0.6315947
CAN-2011 Canada 2011 18.07691 1683.574 3.662325 0.6074459
CAN-2013 Canada 2013 18.66565 1682.736 3.676923 0.6191180
USA-2000 United States of America 2000 139.29607 1848.147 3.578582 0.6426795
USA-2002 United States of America 2002 139.08432 1805.477 3.598118 0.6347357
USA-2004 United States of America 2004 141.63098 1783.413 3.617761 0.6222099
USA-2006 United States of America 2006 146.61525 1778.528 3.642329 0.6123036
USA-2008 United States of America 2008 147.52623 1761.316 3.671921 0.6150548
USA-2010 United States of America 2010 141.34911 1738.001 3.701753 0.5952319
USA-2012 United States of America 2012 144.86284 1753.699 3.712276 0.6020187
USA-2014 United States of America 2014 148.46339 1764.597 3.722829 0.6035975
a Elaboración propia con base en datos de la Penn World Table

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.

elegir_pais = function(country, anio_inicial, anio_final){
  pwt9.0 %>% filter(country==!!country,year>=anio_inicial & year<=anio_final)
}

elegir_pais("Honduras", 1990,2014)%>%head(,n=25)%>%kable(caption = "Honduras. 1990-2014", aling="l")%>% add_footnote(label="Elaboración propia con base en datos de la Penn World Table")%>%kable_material(html_font = "sans_serif")
Honduras. 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.68 14479.95 4.903363 1.212946 NA 1.767629 12349.56 14292.89 14019.55 14777.81 24019.17 0.6273910 0.5990154 15670.49 14036.91 16844.10 46727.57 1.2477888 1.1507260 0.5790429 0.0479281 4.111983 0.2379519 0.2594444 0.2461320 interpolated benchmark market no NA NA 0.7289965 0.1315029 0.1066864 0.0737031 -0.1280089 0.0871200 0.2261269 0.3960259 0.3187529 0.5092028 0.4981820 0.3947745
HND-1991 Honduras HND 1991 Lempira 14668.76 15217.25 5.041050 1.529694 NA 1.778764 12721.95 15095.52 14801.82 15593.70 24835.76 0.5656669 0.5452989 16180.10 14378.00 17783.92 48069.19 1.1127641 1.0493369 0.5790429 0.0484012 5.316667 0.2281345 0.2473101 0.2347512 interpolated benchmark market no NA NA 0.7269562 0.1522135 0.0888826 0.0736594 -0.1166072 0.0748955 0.2186105 0.3500882 0.3060299 0.5368614 0.5298529 0.3703450
HND-1992 Honduras HND 1992 Lempira 15327.71 15702.40 5.179557 1.667114 NA 1.789970 13162.22 15913.10 15452.53 15956.85 26166.61 0.5191000 0.5143396 17090.11 14913.27 18787.75 50292.81 1.0965490 1.0342450 0.5790429 0.0493221 5.497917 0.2450800 0.2639952 0.2556516 interpolated benchmark market no NA NA 0.7276504 0.1723951 0.0972129 0.0927137 -0.1384448 0.0484727 0.2344678 0.3544996 0.3245134 0.4984363 0.4783411 0.3800623
HND-1993 Honduras HND 1993 Lempira 15933.56 17007.75 5.318042 1.716850 NA 1.801246 13556.20 17219.01 16058.67 17298.61 28825.96 0.5295349 0.5196727 18154.83 15235.90 20400.85 53997.58 1.1015327 1.0619862 0.5790429 0.0512118 6.471583 0.2354946 0.2604541 0.2417851 interpolated benchmark market no NA NA 0.7042156 0.2117400 0.0794425 0.0770114 -0.1530855 0.0806760 0.2231715 0.3528298 0.3447323 0.4989966 0.4925680 0.3600760
HND-1994 Honduras HND 1994 Lempira 16221.66 17431.77 5.455481 1.775193 NA 1.812593 13626.76 17519.94 16247.20 17766.09 31565.97 0.5096037 0.4952551 17918.23 15181.68 20793.20 57415.96 1.0302681 1.0257515 0.5790429 0.0534466 8.408758 0.2199179 0.2520298 0.2304830 interpolated benchmark market no NA NA 0.6941285 0.2191356 0.0728813 0.0680602 -0.1518366 0.0976310 0.2088324 0.3644269 0.3254969 0.5078282 0.4947444 0.3341411
HND-1995 Honduras HND 1995 Lempira 17476.45 19391.93 5.591136 1.820764 NA 1.824012 13971.42 17967.27 17503.07 19796.22 33959.80 0.5411949 0.4851948 18649.27 15343.45 21133.80 59646.99 1.0304242 1.0018374 0.5790429 0.0544604 9.470987 0.2488675 0.2699223 0.2386552 interpolated benchmark market no NA NA 0.6439156 0.2018491 0.0618464 0.0625456 -0.1704345 0.2002778 0.2358658 0.3435404 0.3842352 0.5298240 0.5120141 0.3707557
HND-1996 Honduras HND 1996 Lempira 17991.68 18534.55 5.724587 1.969232 NA 1.835503 14862.28 18612.00 17993.62 18919.16 36097.18 0.4727955 0.4591877 19316.62 16146.38 21565.41 62041.05 1.0007118 0.9585197 0.5790429 0.0561350 11.705303 0.2449153 0.2705369 0.2573019 interpolated benchmark market no NA NA 0.7196743 0.1981971 0.0658931 0.1251037 -0.1821674 0.0732991 0.2308974 0.3720898 0.3980164 0.5560105 0.5339137 0.3517663
HND-1997 Honduras HND 1997 Lempira 18783.43 19283.00 5.855946 2.065996 NA 1.847066 15261.00 19375.77 18662.25 19602.26 38919.98 0.4525510 0.4417664 20281.24 16564.65 22439.02 65095.36 0.9939573 0.9435017 0.5790429 0.0583501 13.003474 0.2735510 0.3014578 0.2870017 interpolated benchmark market no NA NA 0.7138742 0.2099128 0.0646589 0.1391080 -0.2140427 0.0864889 0.2603426 0.4049597 0.4193795 0.5301754 0.5118002 0.3647384
HND-1998 Honduras HND 1998 Lempira 19437.26 19877.25 5.985675 2.129612 NA 1.858702 16084.09 20327.30 19169.84 20236.38 42338.37 0.4296251 0.4236698 20869.71 17542.46 23514.27 68522.87 0.9762488 0.9437152 0.5790429 0.0602006 13.385015 0.3027463 0.3274958 0.3102354 interpolated benchmark market no NA NA 0.7218101 0.2096821 0.0730008 0.1549506 -0.2585347 0.0990911 0.2869599 0.4213099 0.4588381 0.4888291 0.4843364 0.3920445
HND-1999 Honduras HND 1999 Lempira 18722.69 19555.42 6.114534 2.278612 NA 1.870411 16175.77 20880.68 18457.55 19883.22 46072.06 0.3832954 0.3911985 20475.37 17648.50 24128.66 72088.17 0.8964342 0.9063278 0.5790429 0.0609560 14.213168 0.3248484 0.3505927 0.3254545 interpolated benchmark market no NA 60.55556 0.7311782 0.2366271 0.0823608 0.1217707 -0.2738907 0.1019537 0.3076058 0.4391032 0.4779238 0.4809175 0.4909589 0.3880243
HND-2000 Honduras HND 2000 Lempira 20014.32 21004.32 6.243080 2.277200 NA 1.882193 17440.45 22230.78 19769.88 21097.95 49552.57 0.3855208 0.3903347 21652.33 19076.11 25351.34 74802.02 0.9306372 0.9348506 0.5790429 0.0602743 14.839203 0.3468261 0.3635496 0.3406651 interpolated benchmark market no NA NA 0.7356162 0.2270520 0.0910260 0.1101759 -0.2350611 0.0711909 0.3276480 0.4244360 0.5018118 0.4627264 0.5004598 0.3933881
HND-2001 Honduras HND 2001 Lempira 20637.62 21337.64 6.371304 2.284981 NA 1.899813 18379.90 23177.14 20478.18 21473.39 52978.77 0.3769335 0.3895814 22241.96 19999.78 26027.96 77193.24 0.9438935 0.9476663 0.5914308 0.0595489 15.473667 0.3629830 0.3737027 0.3563830 interpolated benchmark market no NA NA 0.7604110 0.2234040 0.0955274 0.1401108 -0.2656095 0.0461564 0.3397452 0.4147735 0.5479591 0.4414564 0.4716410 0.3868796
HND-2002 Honduras HND 2002 Lempira 21429.86 22322.82 6.499001 2.310051 NA 1.917598 19132.07 23977.57 21306.53 22633.90 56023.19 0.3830226 0.3858492 23077.00 20740.80 26554.17 79013.09 0.9642826 0.9519697 0.5981197 0.0599975 16.433383 0.3626706 0.3689012 0.3472668 interpolated benchmark market no NA NA 0.7532266 0.2140816 0.0920571 0.0942259 -0.2711890 0.1175978 0.3379519 0.3935021 0.5649227 0.4526783 0.4684044 0.3726304
HND-2003 Honduras HND 2003 Lempira 22293.72 23442.71 6.626304 2.358234 NA 1.935549 20103.34 25232.91 22122.40 23866.67 59671.42 0.3844427 0.3856745 24126.32 21692.98 27731.18 81101.34 0.9875214 0.9738438 0.6054907 0.0600904 17.345292 0.3636180 0.3721932 0.3449919 interpolated benchmark market no NA NA 0.7478350 0.2149259 0.0944836 0.0856145 -0.2634298 0.1205707 0.3407257 0.4058002 0.5448104 0.4854675 0.4998156 0.3768820
HND-2004 Honduras HND 2004 Lempira 23503.39 24886.89 6.753352 2.380619 NA 1.953669 21223.06 27632.29 23295.61 25364.89 65749.49 0.3901497 0.4008462 25629.95 22787.18 30171.69 84672.58 1.0192550 1.0294384 0.5971574 0.0608004 18.206221 0.3718025 0.3808016 0.3497357 interpolated benchmark market no NA 63.88889 0.7415702 0.2526812 0.0951399 0.0903868 -0.2744031 0.0946250 0.3487100 0.4106006 0.5517979 0.5209755 0.5294741 0.3677614
HND-2005 Honduras HND 2005 Lempira 24863.05 27339.29 6.880181 2.453150 NA 1.971957 23171.71 29687.92 25057.70 27758.67 72955.40 0.4087618 0.4052648 27180.79 24338.38 31628.39 87856.12 1.0415866 1.0398625 0.5903670 0.0612781 18.832342 0.3825670 0.3893809 0.3514934 interpolated benchmark market no NA 63.33333 0.7344357 0.2347449 0.1003200 0.0887210 -0.2937164 0.1354948 0.3605338 0.4136114 0.5438707 0.5255956 0.5420418 0.3525336
HND-2006 Honduras HND 2006 Lempira 26591.88 28317.32 7.007029 2.636856 NA 1.990417 25053.55 32155.18 26569.55 28826.40 81215.07 0.3933462 0.4097231 28965.75 26253.87 34069.19 91934.22 1.0388225 1.0482956 0.5845672 0.0620216 18.895208 0.4038720 0.4109026 0.3787326 interpolated benchmark market no NA 63.33333 0.7675272 0.2463586 0.1015908 0.1177532 -0.3015383 0.0683084 0.3832936 0.4357059 0.5593431 0.5537532 0.5660859 0.3581534
HND-2007 Honduras HND 2007 Lempira 28196.94 30212.58 7.133737 2.751748 NA 2.009050 26953.74 35926.29 28055.89 30818.34 89601.12 0.3912421 0.4303392 30758.23 28137.40 37910.04 98000.57 1.0444032 1.1044008 0.5925926 0.0633370 18.895100 0.4328700 0.4405943 0.4011008 interpolated benchmark market no NA 70.00000 0.7655122 0.2911433 0.1090883 0.1275888 -0.3476368 0.0543041 0.4075651 0.4637982 0.6104436 0.6081878 0.6095402 0.3706837
HND-2008 Honduras HND 2008 Lempira 28689.72 29158.39 7.259470 2.777892 NA 2.027858 28240.20 38256.50 28743.01 29235.60 97798.84 0.3554068 0.4418927 32059.88 29045.71 39696.93 104314.83 1.0532839 1.1189380 0.5936449 0.0619876 18.903758 0.4769719 0.4829600 0.4748228 interpolated benchmark market no NA 73.33333 0.8429075 0.3426064 0.1230450 0.3158697 -0.4805019 -0.1439269 0.4501883 0.4998433 0.6604503 0.7080935 0.6503295 0.3979344
HND-2009 Honduras HND 2009 Lempira 29242.94 29286.39 7.383098 2.891410 NA 2.046841 28587.59 34253.79 29066.95 29677.80 100695.90 0.3488050 0.3909848 31280.22 29424.54 35252.21 105943.45 1.0027796 0.9695888 0.5991222 0.0603257 18.895100 0.4962146 0.5018576 0.4915281 interpolated benchmark market no NA 77.77778 0.8329699 0.1909237 0.1302954 0.1249084 -0.3287673 0.0496698 0.4634882 0.5303282 0.7054326 0.7001138 0.6070395 0.4178108
HND-2010 Honduras HND 2010 Lempira 30846.39 31120.90 7.503875 2.940079 NA 2.066002 29819.84 36243.63 30734.73 31326.93 104274.56 0.3470534 0.3871138 32447.37 30233.08 36788.32 107767.67 1.0137688 0.9861315 0.6076818 0.0594937 18.895100 0.5101559 0.5153565 0.5056143 interpolated benchmark market no NA 77.77778 0.8277879 0.2050566 0.1241036 0.1453721 -0.3624463 0.0601261 0.4771446 0.5394980 0.7303461 0.6815198 0.6072651 0.4301115
HND-2011 Honduras HND 2011 Lempira 32806.54 33691.91 7.621414 3.051567 NA 2.104307 31070.36 39269.93 32806.54 33691.91 110959.42 0.3469205 0.3879624 33691.91 31070.36 39269.93 110959.42 1.0000000 1.0000000 0.6112589 0.0591796 18.917142 0.5341044 0.5398403 0.5256542 benchmark benchmark market no 0.6087185 77.77778 0.8074962 0.2433691 0.1146944 0.1448321 -0.3961623 0.0857706 0.5053933 0.5615748 0.7362428 0.7241395 0.6399552 0.4511802
HND-2012 Honduras HND 2012 Lempira 33772.98 34601.96 7.736131 3.165068 NA 2.143323 32356.33 40233.31 33701.14 34306.44 114260.53 0.3337609 0.3762115 35082.96 32295.14 40251.67 114391.16 0.9955488 0.9799768 0.6182181 0.0586203 19.502250 0.5429687 0.5497898 0.5400894 extrapolated benchmark market no NA 76.00000 0.8282939 0.2296066 0.1148623 0.1905468 -0.3827002 0.0193907 0.5126201 0.5778091 0.7618182 0.7184008 0.6585971 0.4533114
HND-2013 Honduras HND 2013 Lempira 33759.91 33670.28 7.849059 3.276676 NA 2.183062 33565.68 40386.88 33537.50 33307.57 118671.20 0.3102254 0.3633257 36062.30 33478.72 40477.25 117494.66 0.9785456 0.9423326 0.6182181 0.0578064 20.341500 0.5441083 0.5519466 0.5557567 extrapolated benchmark market no NA 62.22222 0.8854985 0.2047944 0.1222507 0.3223343 -0.4402955 -0.0945822 0.5142024 0.5905170 0.7607258 0.6957347 0.6477398 0.4413261
HND-2014 Honduras HND 2014 Lempira 35219.24 34835.65 7.961680 3.381201 NA 2.223537 34384.08 41614.70 35008.41 34377.60 123703.28 0.3039389 0.3545439 37174.90 34161.48 41649.40 120378.56 0.9671497 0.9296472 0.6182181 0.0573270 21.008742 0.5489583 0.5569289 0.5671483 extrapolated benchmark market no NA 73.33333 0.8831683 0.2103293 0.1170201 0.3396600 -0.4747215 -0.0754562 0.5208093 0.5948322 0.7614025 0.6971985 0.6341395 0.4374071
a Elaboración propia con base en datos de la Penn World Table
#------------------------------------------------------------------------------

# 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á

elegir_categoria_capital_detail = function(country,anio_inicial, anio_final){
  pwt9.0%>% filter(country==!!country,year>=anio_inicial & year<=anio_final)%>%
    select(country, year, ck, rkna, pl_k)
}

elegir_categoria_capital_detail("Argentina", 1950,2014)%>%head(,n=10)%>%kable(caption = "Argentina. 1950-2014", aling="l")%>% add_footnote(label="Elaboración propia con base en datos de la Penn World Table")%>%kable_material(html_font = "sans_serif")
Argentina. 1950-2014
country year ck rkna pl_k
ARG-1950 Argentina 1950 57509.32 272087.3 0.5409842
ARG-1951 Argentina 1951 61940.02 286250.3 0.4746850
ARG-1952 Argentina 1952 65282.94 294574.8 0.4695615
ARG-1953 Argentina 1953 67051.51 303104.2 0.4713947
ARG-1954 Argentina 1954 67107.31 309455.2 0.4908980
ARG-1955 Argentina 1955 68349.95 317486.1 0.4768719
ARG-1956 Argentina 1956 71089.67 322676.3 0.5044748
ARG-1957 Argentina 1957 73226.95 329198.7 0.5441019
ARG-1958 Argentina 1958 73912.35 336580.3 0.5600608
ARG-1959 Argentina 1959 74841.00 339898.6 0.5388948
a Elaboración propia con base en datos de la Penn World Table
#------------------------------------------------------------------------------

# 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

elegir_pais(c("United States of America", "United Kingdom"),1990,2000)%>%head(,n=25)%>%kable(caption = "EE.UU y Reino Unido. 1990-2000", aling="l")%>% add_footnote(label="Elaboración propia con base en datos de la Penn World Table")%>%kable_material(html_font = "sans_serif")
EE.UU y 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.11012 26.70239 1757.428 3.197166 1089023 1383493 1389299 1359320 3581698 0.8565159 0.8605587 1454251 1151596 1441845 6776786 0.8450031 0.7902915 0.6305985 0.0448434 0.5631772 0.7784873 0.7868814 0.8042360 interpolated benchmark market no NA NA 0.6439415 0.2166304 0.1572114 0.2256019 -0.2834871 0.0401019 0.7423567 0.8179252 0.9264792 0.6048944 0.5832911 1.0969303
GBR-1992 United Kingdom GBR 1992 Pound Sterling 1414993 1376120 57.41947 25.34559 1710.730 3.257343 1079084 1364559 1386354 1355717 3798598 0.8363361 0.8363643 1442380 1157180 1430968 6966938 0.8621486 0.8068302 0.6349562 0.0469881 0.5697742 0.8785668 0.8509466 0.8701767 interpolated benchmark market no NA NA 0.6331229 0.2105715 0.1628279 0.2457861 -0.2944569 0.0421485 0.8377092 0.7465436 1.0374331 0.5716438 0.5552554 0.9516477
GBR-1994 United Kingdom GBR 1994 Pound Sterling 1519652 1478347 57.73667 25.37445 1718.147 3.318652 1143430 1462102 1480134 1454296 4275514 0.8437811 0.8360074 1539957 1230659 1542677 7189067 0.8962294 0.8469064 0.6022500 0.0499640 0.6534266 0.7998383 0.7705001 0.7841891 interpolated benchmark market no NA NA 0.6347595 0.2191247 0.1514831 0.2260039 -0.2656137 0.0342425 0.7634724 0.6652314 0.9522221 0.6048408 0.5797722 0.7323192
GBR-1996 United Kingdom GBR 1996 Pound Sterling 1674593 1641439 58.07932 25.90053 1727.994 3.381115 1243814 1616862 1620570 1603619 4926870 0.8475673 0.8436683 1620910 1298540 1675014 7519430 0.9019064 0.8791658 0.5876861 0.0490391 0.6409583 0.8347086 0.8062972 0.8148201 benchmark benchmark market no 0.9190811 NA 0.6384134 0.2326292 0.1372159 0.2420737 -0.2748890 0.0245567 0.7892579 0.7115680 1.0461737 0.6533383 0.6413544 0.7715557
GBR-1998 United Kingdom GBR 1998 Pound Sterling 1888442 1813215 58.45699 26.65316 1720.474 3.444755 1437450 1828209 1813438 1801130 5103451 0.8929624 0.8898261 1727567 1407718 1817333 7832531 0.9216082 0.9145252 0.6077729 0.0473513 0.6038236 0.8621315 0.8475854 0.8533775 benchmark benchmark market no NA NA 0.6567524 0.2169524 0.1413301 0.2528893 -0.2868337 0.0189095 0.8288851 0.7940759 1.0166255 0.5934206 0.6036877 0.8749288
GBR-2000 United Kingdom GBR 2000 Pound Sterling 2088803 2024305 58.86700 27.31735 1699.107 3.509591 1650633 2054763 2015176 2011111 5134820 0.9471037 0.9298179 1849012 1538370 1967642 8162493 0.9527478 0.9563877 0.6309897 0.0459023 0.6609308 0.7730830 0.7715102 0.7730696 benchmark benchmark market no NA NA 0.6695670 0.2009486 0.1511896 0.2721535 -0.3255441 0.0316854 0.7461854 0.7650863 0.8922034 0.5387948 0.5723231 0.9000055
USA-1990 United States of America USA 1990 US Dollar 9203227 9203558 252.84781 123.40108 1793.348 3.435097 7180793 9379958 9259331 9259567 26453210 1.0000000 1.0000000 9241600 7644560 9454309 29208678 0.8194728 0.8043448 0.6205937 0.0505045 1.0000000 0.6647873 0.6457918 0.6457753 interpolated benchmark market no NA NA 0.6682413 0.2375019 0.1072586 0.0696767 -0.0904981 0.0078196 0.6182825 0.5837670 0.9545210 0.6089282 0.6175903 0.6470308
USA-1992 United States of America USA 1992 US Dollar 9530917 9509170 257.90821 122.23189 1773.457 3.469595 7393262 9636033 9585170 9573914 26769574 1.0000000 1.0000000 9563208 7915272 9717433 30447546 0.8403289 0.8192613 0.6259861 0.0512877 1.0000000 0.7121214 0.6822309 0.6830331 interpolated benchmark market no NA NA 0.6659960 0.2342586 0.1062337 0.0786810 -0.0960980 0.0109287 0.6611473 0.5836974 1.0316866 0.5938390 0.6016038 0.6837977
USA-1994 United States of America USA 1994 US Dollar 10262589 10205495 263.30132 126.19808 1805.167 3.504440 7875691 10382788 10252747 10232211 28433732 1.0000000 1.0000000 10222333 8395977 10477239 31914476 0.8503121 0.8361810 0.6138800 0.0508853 1.0000000 0.7428809 0.7128529 0.7142835 interpolated benchmark market no NA NA 0.6700110 0.2450200 0.0996848 0.0803991 -0.1066071 0.0114922 0.6915565 0.6185242 1.0878472 0.6227808 0.6316585 0.7149737
USA-1996 United States of America USA 1996 US Dollar 10988194 10926444 269.48322 129.91119 1818.629 3.533239 8440640 11059940 10929891 10918888 30426092 1.0000000 1.0000000 10910675 8855808 11165208 33669848 0.8649735 0.8492648 0.6127331 0.0511477 1.0000000 0.7635167 0.7411053 0.7418521 benchmark benchmark market no 1.0000000 NA 0.6820182 0.2398870 0.0910130 0.0849851 -0.1100589 0.0121556 0.7074198 0.6688849 1.1838868 0.6711445 0.6803800 0.7424105
USA-1998 United States of America USA 1998 US Dollar 12132393 11956923 276.35410 135.07707 1842.790 3.555839 9099003 12138236 11924765 11916442 32851262 1.0000000 1.0000000 11907535 9590438 12341446 35854404 0.8888780 0.8839169 0.6289788 0.0512883 1.0000000 0.7885633 0.7622087 0.7627411 interpolated benchmark market no NA NA 0.6714191 0.2550454 0.0921480 0.0947524 -0.1244996 0.0111347 0.7377932 0.6833072 1.1584898 0.6026288 0.6365294 0.7633117
USA-2000 United States of America USA 2000 US Dollar 13222419 13031820 282.89574 139.29607 1848.147 3.578582 9977582 13511612 13035321 12983206 35997032 1.0000000 1.0000000 12975535 10500206 13647352 38439588 0.9205835 0.9289908 0.6426795 0.0521203 1.0000000 0.8255066 0.7889932 0.7921603 interpolated benchmark market no NA NA 0.6758358 0.2722001 0.0926633 0.1060347 -0.1566473 0.0099135 0.7741043 0.6859053 1.2004077 0.5668258 0.6185908 0.7926286
a Elaboración propia con base en datos de la Penn World Table
elegir_categoria_labor_detail(c("United States of America", "United Kingdom"),1990,2000)%>%head(,n=25)%>%kable(caption = "EE.UU y Reino Unido: Capital Detail. 1990-2000", aling="l")%>% add_footnote(label="Elaboración propia con base en datos de la Penn World Table")%>%kable_material(html_font = "sans_serif")
EE.UU y Reino Unido: Capital Detail. 1990-2000
country year emp avh hc labsh
GBR-1990 United Kingdom 1990 26.70239 1757.428 3.197166 0.6305985
GBR-1992 United Kingdom 1992 25.34559 1710.730 3.257343 0.6349562
GBR-1994 United Kingdom 1994 25.37445 1718.147 3.318652 0.6022500
GBR-1996 United Kingdom 1996 25.90053 1727.994 3.381115 0.5876861
GBR-1998 United Kingdom 1998 26.65316 1720.474 3.444755 0.6077729
GBR-2000 United Kingdom 2000 27.31735 1699.107 3.509591 0.6309897
USA-1990 United States of America 1990 123.40108 1793.348 3.435097 0.6205937
USA-1992 United States of America 1992 122.23189 1773.457 3.469595 0.6259861
USA-1994 United States of America 1994 126.19808 1805.167 3.504440 0.6138800
USA-1996 United States of America 1996 129.91119 1818.629 3.533239 0.6127331
USA-1998 United States of America 1998 135.07707 1842.790 3.555839 0.6289788
USA-2000 United States of America 2000 139.29607 1848.147 3.578582 0.6426795
a Elaboración propia con base en datos de la Penn World Table