# 第2章 デザイン # 第2節 自然実験 # 福元健太郎 # 出典は # Fukumoto, Kentaro, and Yusaku Horiuchi. 2011. # "Making Outsiders' Votes Count: # Detecting Electoral Fraud through a Natural Experiment." # American Political Science Review 105 (3): 586-603. # データの読み込み データ <- read.csv("natural.experiment.csv") attach(データ) # 分析 回帰分析結果首長 <- lm(対数前年同月比転入者数~首長統一選) summary(回帰分析結果首長) 回帰分析結果議会 <- lm(対数前年同月比転入者数~議会統一選) summary(回帰分析結果議会)