Patarakin: Новая страница: « # Загружаем пакет library(ivreg) # Допустим, у нас есть данные из Wealth Distribution data <- read.csv("wealth_distribution.csv") # Столбцы: wealth, vision, metabolism, age, initial_wealth # Модель: богатство зависит от видимости и метаболизма # Проблема: видимость может быть эндогенна (коррелиру...»

2025-11-29T04:57:56Z

Новая страница: « <syntaxhighlight lang="r"> # Загружаем пакет library(ivreg) # Допустим, у нас есть данные из Wealth Distribution data <- read.csv("wealth_distribution.csv") # Столбцы: wealth, vision, metabolism, age, initial_wealth # Модель: богатство зависит от видимости и метаболизма # Проблема: видимость может быть эндогенна (коррелиру...»

Новая страница

<syntaxhighlight lang="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)

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

ДМНК/R - История изменений