Today

Instrumental Variables: Model and Estimator

Sources of endogeneity: Why Use 2SLS?

\[E[Y_{-1i}u_i]\neq 0\]

Simultaneous equations systems (Code)

library(dagitty) #Library to create causal graphs
library(ggdag) #library to plot causal graphs
simeqgraph<-dagify(Y1~Y2+Z1,Y2~Y1+Z2) #create graph
#Set position of nodes 
  coords<-list(x=c(Y2 = 1, Y1 = 0, Z1=-1, Z2=2),
               y=c(Y2 = 0, Y1 = 0, Z1=0,Z2=0)) 
  coords_df<-coords2df(coords)
  coordinates(simeqgraph)<-coords2list(coords_df)
#Plot causal graph
ggdag(simeqgraph)+theme_dag_blank()+
  labs(title="Simultaneous System with Instruments") 

Simultaneous equations systems

Simultaneity Bias

\[Y_1=\beta_{11}Y_2+\beta_{12}Z_1+u_{1}\]

Handling simultaneity bias

General simultaneous systems

Reduced form in simultaneous equation models

Estimation of simultaneous equations models

Measurement Error

Measurement-error bias

Intuition

Solving Measurement error bias

Instrumental Variables: Overview