## Warning: package 'ggplot2' was built under R version 3.5.1
## Warning: package 'dplyr' was built under R version 3.5.1
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
## Warning: package 'readxl' was built under R version 3.5.1

1 Introduccion

El PIB o llamado producto interno bruto es el uno de los indicadores de medicion de la situacion economica de los paises. Este mide la produccion total de bienes y servicios producidos en la economia de un pais en valores corrientes en un periodo determinado.

Este indicador esta compuesto por el consumo de los hogares, inversion de las empresas, gasto del gobierno, exportaciones e importaciones.

El objetivo es identificar los agregados economicos de mayor incidencia en el crecimiento economico del Ecuador en los ultimos años.

2 Metodologia y datos

Los datos son generados y obtenidos a traves de la insitucion encargada del procesamiento y generacion de la informacion economica en el Ecuador. En este caso la fuente es el Banco Central del Ecuador. Los datos descargados corresponden a los ultimos 52 años de la historia economica del Ecuador donde se registran todas las variables antes mencionadas que contribuyen al PIB.

## # A tibble: 15 x 7
##     YEAR      PIB   GASTO CONSUMO INVERSION  EXPORT  IMPORT
##    <dbl>    <dbl>   <dbl>   <dbl>     <dbl>   <dbl>   <dbl>
##  1  1965  2385904  225077 1610779    254420  214246  245521
##  2  1966  2428145  222215 1677717    273737  254608  269873
##  3  1967  2552372  190970 1825922    342052  257973  307091
##  4  1968  2580943  185762 1995608    384334  284992  359221
##  5  1969  3110675  256195 2267041    442828  264499  376465
##  6  1970  2861132  277339 2126266    450556  270126  372234
##  7  1971  2752900  234341 2070135    512330  291268  459462
##  8  1972  3184460  293838 2250184    633048  395125  495186
##  9  1973  3889890  420376 2623702    915277  695436  648040
## 10  1974  6596096 1057872 3655505    966016 1494151 1236921
## 11  1975  7727971 1618152 4771985   1430749 1241954 1494138
## 12  1976  9087566 1834862 5515786   1719679 1457249 1633787
## 13  1977 11021061 2304812 6219623   2180244 1796750 1999147
## 14  1978 11916787 2357046 6846123   2612519 1755579 2212214
## 15  1979 14168371 2668921 8308475   2855925 2537283 2574606
##       YEAR           PIB                GASTO             CONSUMO        
##  Min.   :1965   Min.   :  2385904   Min.   :  185762   Min.   : 1610779  
##  1st Qu.:1978   1st Qu.: 11692856   1st Qu.: 1825511   1st Qu.: 6689498  
##  Median :1990   Median : 18201896   Median : 2508616   Median :11696070  
##  Mean   :1990   Mean   : 28961708   Mean   : 3797380   Mean   :18447079  
##  3rd Qu.:2003   3rd Qu.: 33472559   3rd Qu.: 3601812   3rd Qu.:23897658  
##  Max.   :2016   Max.   :101726331   Max.   :14542955   Max.   :60991910  
##    INVERSION            EXPORT             IMPORT        
##  Min.   :  254420   Min.   :  214246   Min.   :  245521  
##  1st Qu.: 2504450   1st Qu.: 1786457   1st Qu.: 2158947  
##  Median : 3320424   Median : 3630048   Median : 3595796  
##  Mean   : 6478222   Mean   : 7081532   Mean   : 7511162  
##  3rd Qu.: 6482794   3rd Qu.: 7743191   3rd Qu.: 8382980  
##  Max.   :27684231   Max.   :28536122   Max.   :30168281

3 Resultados de la investigacion y modelo econometrico

## 
## Call:
## lm(formula = PIB ~ CONSUMO + INVERSION + GASTO + EXPORT + IMPORT, 
##     data = PIBR)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -632567 -211683   -3857  190720  830146 
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  1.654e+05  9.975e+04   1.659    0.104    
## CONSUMO      9.860e-01  1.728e-02  57.047  < 2e-16 ***
## INVERSION    5.355e-01  7.146e-02   7.495 1.66e-09 ***
## GASTO        1.519e+00  1.082e-01  14.036  < 2e-16 ***
## EXPORT       8.757e-01  6.610e-02  13.248  < 2e-16 ***
## IMPORT      -6.434e-01  6.876e-02  -9.356 3.23e-12 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 335700 on 46 degrees of freedom
## Multiple R-squared:  0.9999, Adjusted R-squared:  0.9999 
## F-statistic: 7.293e+04 on 5 and 46 DF,  p-value: < 2.2e-16
## Warning: package 'bindrcpp' was built under R version 3.5.1
## # A tibble: 1 x 5
##   Rconsumo  Rinv Rgasto Rxport Rimport
##      <dbl> <dbl>  <dbl>  <dbl>   <dbl>
## 1    0.997 0.993  0.987  0.974   0.975

4 Conclusiones

5 Bibliografia