Sistema de Ecuaciones Simultaneas 3EV4

This is an R Markdown Notebook. When you execute code within the notebook, the results appear beneath the code.

Try executing this chunk by clicking the Run button within the chunk or by placing your cursor inside it and pressing Ctrl+Shift+Enter.

1. Marco Teórico: Esta investigación supone los factores determinantes de la inflación de precios y la inflación salarial. Comenzando con un modelo muy simple que supone que (P) es la tasa anual de crecimiento de los precios, la cual está relacionada con (w) la tasa anual de crecimiento de los salarios.
Esta es la hipótesis de que los aumentos en los costos salariales obligan la existencia de un aumento en los precios. Al mismo tiempo w está relacionado con P & (u) la tasa de desempleo, los trabajadores que protegen sus salarios reales, exigiendo aumentos en los salarios a medida que suben los precios, pero su capacidad para hacerlo es la más débil.

2. Representacion de Formas Reducidas:
Por su propia especificación, este modelo de ecuaciones simultáneas implica una cierta cantidad de
circularidad: w determina p en la primera ecuación, y a su vez p ayuda a determinar w en la segunda ecuación. Necesitamos cortar a través de la circularidad, para hacer una distinción entre las variables endógenas & exógenas.

3.Estadística Descriptiva:
Número de países=26.
base<-read_dta(file.choose())

attach(base)
summary(base)
View(base)

4. Gráfica de la relación entre los precios y los salarios:
ggplot(data = base, aes_(y=WAGES,x = PRICES))+geom_area()

5. Estimación por Minimos Cuadrados Ordinarios (MCO)
mco<-lm(PRICES~WAGES+UNEMPLOY,base)
stargazer(mco,type = "text")
summary(mco,diagnostics = TRUE)
¿Es un buen instrumento para la variable desempleo para instrumentar los salarios?
El desempleo es un buen instrumento para determinar un cambio en relacion a los salarios.

6. PRUEBA DE HAUSMAN
Exite un alto nivel de Endogeneidad, se acepta la hipótesis HA.
vi<-ivreg(PRICES~WAGES|WAGES+UNEMPLOY,data=base)
summary(vi) #6PRUEBA DE HAUSMAN

7. Estimación por Minimos Cuadrados Ordinarios (MCO)
mco2<-lm(WAGES~PRICES+UNEMPLOY,base)
stargazer(mco2,type = "text")
summary(mco2,diagnostics = TRUE)
¿Es posible instrumentar esta ecuación?
Es posible instrumentar la ecuacion ya que existe un nivel de significancia alto.

8. ¿Cual es la relación teórica de las nuevas variables en sus respectivas ecuaciones?
Cuando los precios de casi todos los bienes y servicios suben y siguen aumentando, se debe a un incremento en la Oferta de dinero. Al existir mayores salarios, la gente tiene más dinero para gastar y va a demandar más productos.
Si el crecimiento economico ocurre demasiado rápido la inflación también crece demasiado rápido, por lo que el costo de vida se vuelve demasiado alto como para que las personas puedan ajustarse a él. Las personas no pueden costear los nuevos precios porque la filtración de ingresos para las personas es más lenta que la inflación.

vi2<-ivreg(WAGES~PRICES|PRICES+UNEMPLOY,data=base)
summary(vi2) 6#PRUEBA DE HAUSMAN

9. ¿Se cuenta con buenos instrumentos para realizar la regresion por Minimos Cuadrados en dos Étapas?
Se cuenta con buenos instrumentos al realizar la regresion por MC2E.
mco9<-lm(PRICES~WAGES+MONEY1,base)
summary(mco9)

vi3<-ivreg(WAGES~MONEY1|MONEY1+PRICES+GDP+UNEMPLOY,data = base)
summary(vi3)

10. PRUEBA DE HAUSMAN & SARGAN
En la prueba de Hansen-Sargan nos arroja que es preferible usar multiples instrumentos, asi que se acepta la H0 esta sobreidentificada la escuacion estructural.

11. Estimación por MCO & Variables Intrumentales
¿Se cuenta con buenos instrumentos para realizar la regresion por Minimos Cuadrados en dos Étapas?
Se cuenta con buenos instrumentos para estimar por MC2E ya que esta ecuacion es sobreidentificada.

Add a new chunk by clicking the Insert Chunk button on the toolbar or by pressing Ctrl+Alt+I.

When you save the notebook, an HTML file containing the code and output will be saved alongside it (click the Preview button or press Ctrl+Shift+K to preview the HTML file).

The preview shows you a rendered HTML copy of the contents of the editor. Consequently, unlike Knit, Preview does not run any R code chunks. Instead, the output of the chunk when it was last run in the editor is displayed.