#-- 第10章 回帰分析 --#

# データの読み込み
data<- read.csv("10_regression_kyojin.csv", header=TRUE, fileEncoding="CP932")
head(data)

# 相関係数
round(cor(data[3:8]),digits=3)

# モデル1：コントロール変数のみ
# モデル2：すべての変数
res1<- lm(入場率~休日+伝統の一戦+交流戦+貯金,data=data)
res2<- lm(入場率~休日+伝統の一戦+交流戦+貯金+応援グッズプレゼント+野球グッズプレゼント,data=data)

summary(res1)
summary(res2)

AIC(res1)
AIC(res2)

# 多重共線性
install.packages("car")
library(car)
vif(res1)
vif(res2)

