# 行の中で、「#」以降は、コメントアウトで処理しません。

# ===================================================

# Cドライブにv02dataというフォルダーを作り、v02c4sensation.csv を置いているという設定

# データの読み込み

YOKO <- read.csv("C:/v02data/v02c4sensation.csv")

# パッケージreshapeを使用 (要インストール)

library(reshape)

# データを展開して「TATE」というデータフレームに代入

# variable という変数に「YUBISAKI」「TSUKENE」…などの値が代入され、

# value という変数に従属変数の値が代入される。

TATE <- melt(YOKO, id="SANKASHA")

# データフレーム名を省略できるようにする

attach(TATE)

# 記述統計

tapply(value, variable, mean)

tapply(value, variable, sd)

barplot(tapply(value, variable, mean))

# 分散分析

BUNSEKI<- aov(value ~ SANKASHA + variable) # オブジェクトの作成

summary(BUNSEKI) # 分散分析

TukeyHSD(BUNSEKI) # 多重比較

# データフレーム名の省略を解除する

detach(TATE)

# 参考文献

# 山田剛史・村井潤一郎・杉澤武俊 (2015). Rによる心理データ解析 ナカニシヤ出版, p.40-42.

# ===================================================

# 2017.02.23 橋本貴充・荘島宏二郎