# JES2データの読み込みと分析例
# 福元健太郎

# 読み込み
# 授業で扱っていないコマンドを含んでいるが、とにかく実行する
データ <- read.csv("Jes2_1b.csv", header=T)
行数 <- nrow(データ)
列数 <- ncol(データ)
変数名 <- colnames(データ)
データ <- as.matrix(データ)
データ <- as.numeric(データ)
データ <- matrix(データ,行数,列数)
colnames(データ) <- 変数名
データ <- na.omit(データ)
データ <- as.data.frame(データ)
attach(データ)

# 以下、同じ回帰分析を３通りのやり方で示す
回帰分析結果1 <- glm(データ[,1]~データ[,2])
summary(回帰分析結果1)

回帰分析結果2 <- glm(X93衆院選投票参加予定~投票義務感.93衆院事前.)
summary(回帰分析結果2)

投票参加予定 <- データ[,1]
投票義務感 <- データ[,2]
回帰分析結果3 <- glm(投票参加予定~投票義務感)
summary(回帰分析結果3)