ДМНК/R

# Загружаем пакет
library(ivreg)

# Допустим, у нас есть данные из Wealth Distribution
data <- read.csv("wealth_distribution.csv")
# Столбцы: wealth, vision, metabolism, age, initial_wealth

# Модель: богатство зависит от видимости и метаболизма
# Проблема: видимость может быть эндогенна (коррелирует с везением)

# ДМНК с инструментом: initial_wealth (видимость при рождении)
model_iv <- ivreg(
  wealth ~ vision + metabolism | initial_wealth + metabolism,
  data = data
)

summary(model_iv)

# Сравнение с наивным МНК (который смещён)
model_ols <- lm(wealth ~ vision + metabolism, data = data)
summary(model_ols)

# Видим разницу в коэффициентах!