# 練習問題
# 1.
binom.test(134, 200)$conf.int

# 2.
binom.test(145, 300, 0.3)

# 3.
p <- c(0.382, 0.219, 0.305, 0.094)
x <- c(39, 16, 27, 15)
chisq.test(x, p = p)