Hausman test: OLS vs 2SLS

Usage

morie_iv_hausman(data, outcome, endogenous, instruments, exogenous = NULL)

Arguments

data: A data.frame (or tibble) holding the outcome, endogenous regressors, instruments, and any exogenous controls.
outcome: Character; column name of the response variable.
endogenous: Character vector; column names of the endogenous regressors.
instruments: Character vector; column names of the instrumental variables.
exogenous: Optional character vector of additional exogenous regressors included in both the structural equation and the first stage. NULL (default) for a just-identified design.

Value

A named list (see Details).

Examples

set.seed(1)
n <- 500
z <- rbinom(n, 1, 0.5); u <- rnorm(n)
d <- rbinom(n, 1, plogis(0.8 * z + 0.3 * u))
y <- 0.5 * d + 0.4 * u + rnorm(n, sd = 0.5)
df <- data.frame(y, d, z)
out <- morie_iv_hausman(df, "y", "d", "z")
out$statistic
#> [1] 3.082588