CHR <- c(94, 100, 93, 75, 81, 74)
equips <- c("A1", "A2", "A3", "B1", "B2", "B3")
dows <- c("火", "土", "水", "風", "氷", "雷", "光", "闇");
moons <- c("新月", "三日月", "七日月", "上弦の月", "十日夜", "十三夜",
			"満月", "十六夜", "居待月", "下弦の月", "二十日余月", "二十六夜")

ayaturu <- read.csv("ayaturu.csv")
attach(ayaturu)

#imgout <- 1; # グラフをpngファイルに出力する。
imgout <- 0; # グラフをpngファイルに出力しない。

# 画像出力するときのファイル名
filename1 <- "ayaturu-1.jpg"
filename2 <- "ayaturu-2.jpg"
filename3 <- "ayaturu-3.jpg"
filename4 <- "ayaturu-4.jpg"
filename5 <- "ayaturu-5.jpg"
filename6 <- "ayaturu-6.jpg"
filename7 <- "ayaturu2-1.jpg"
filename8 <- "ayaturu3-1.jpg"


# y軸[%]の表示幅(他データとの比較のため、基本的には固定にします)
y.range <- c(70, 100)

#ac <- 0;# プロマシア前
ac <- 1;# プロマシア後

#PROP.TEST <- 1;# 二群間の比率の差の検定を行う
PROP.TEST <- 0;# 二群間の比率の差の検定を行わない

# 統計対象ペット
dst.pet <- "Mourioche"

par(ask=FALSE)