#Análisis de Regresión: IED y Gasto Público como % del PIB

#Introducción

Pregunta de investigación: ¿Existe una relación significativa entre el gasto público como porcentaje del PIB y la inversión extranjera directa en Ecuador?

Teoría económica: Desde la perspectiva keynesiana, el gasto público puede influir en la IED a través de varios mecanismos. Por un lado, un mayor gasto público en infraestructura, educación y salud puede crear condiciones favorables para la inversión extranjera al mejorar el capital humano y físico del país. Por otro lado, un gasto público excesivo podría desplazar la inversión privada o generar expectativas de inestabilidad fiscal.

##Datos y Metodología

Fuente de datos

Los datos utilizados en este análisis provienen del Banco Central del Ecuador.

###Variables

IED: Inversión Extranjera Directa (en millones de dólares o como porcentaje del PIB)

GPEPIB: Gasto Público como porcentaje del PIB

Modelo Econométrico

El modelo de regresión lineal simple se especifica como: IED=b0+b1×GPEPIB+u

Donde:

b0 es el intercepto

b1 es el coeficiente de GPEPIB

u es el término de error

###analisis descriptivo

library(haven)
BASE <- read_dta("BASE.dta")
View(BASE)

summary(BASE$IED)
##      Min.   1st Qu.    Median      Mean   3rd Qu.      Max. 
## 1.508e+09 2.901e+09 9.561e+09 8.805e+09 1.382e+10 1.621e+10
summary(BASE$GPEPIB)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
## 0.03510 0.04035 0.04405 0.04302 0.04503 0.04880
plot(BASE$IED, 
     main = "Distribución de la IED",
     xlab = "Inversión Extranjera Directa", 
     ylab = "Frecuencia")

Se puede observar que la IED se encuentra mas acumulada en niveles bajos de inversion mientras que los mas altos muestran valores atipicos, es decir inversiones mas altas pero mas escasas

plot(BASE$GPEPIB, 
     main = "Distribución del Gasto Público (% PIB)",
     xlab = "Gasto Público (% PIB)", 
     ylab = "Frecuencia")

La inversion del gasto publico denota un gasto menos disperso que la inversion extranjera directa, pues el gasto publico se encuentra tanto en niveles bajos como altos.

boxplot(BASE$IED, BASE$GPEPIB, 
        names = c("IED", "GPEPIB"),
        col = c("lightblue", "lightcoral"),
        main = "Boxplots de las Variables")

La inversion extranjera directa como se observo anteriormente muestra la presencia de varios valores atipicos respecto al Gasto Publico.

##Resultados

###REGRESION

Estimar el modelo de regresión lineal

modelo <- lm(IED ~ GPEPIB, data = BASE)
summary(modelo)
## 
## Call:
## lm(formula = IED ~ GPEPIB, data = BASE)
## 
## Residuals:
##        Min         1Q     Median         3Q        Max 
## -8.373e+09 -3.744e+09  1.424e+09  3.608e+09  5.704e+09 
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)  
## (Intercept) -2.466e+10  1.188e+10  -2.076   0.0510 .
## GPEPIB       7.779e+11  2.752e+11   2.827   0.0104 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 4.568e+09 on 20 degrees of freedom
## Multiple R-squared:  0.2856, Adjusted R-squared:  0.2498 
## F-statistic: 7.994 on 1 and 20 DF,  p-value: 0.01041

El gasto publico mantiene un signo negativo, indicando que dado un incremento de un punto porcentual en el gasto publico, la inversion extranjera directa disminuira en 2.46 millones.

El coeficiente de determinacion R2 igual a 0.2856 indica un ajuste bajo entre las dos variables. Esto puede deberse a que la omision de variables pueda estar generando este bajo nivel explicativo desde el Gasto Publico a la Inversion Extranjera.

Respecto a la significancia de la variable predictora, esta es significativa a un nivel de 5%.