第3章 統計理論の基礎

第3章では第2章と同じデータを使うため、新たなダウンロードは不要. なお出版社サイトにある第3章のファイルは, 練習問題2-1のデータを用いるところが, 誤って練習問題2-3と同じデータが格納されている.

必要なライブラリを読み込む.

library(tidyverse)

練習問題 3-2 [確認]

第2章練習問題2-1で用いたデータを読み込み、両側t検定を実行する. \(\alpha=0.10\)の場合90%信頼区間は\([8.354811, 11.645189]\)となり, これは8を含まないことから帰無仮説は棄却できる. 一方で\(\alpha=0.01\)のとき、99%信頼区間は\([7.277955, 12.722045]\)となり8を含むことから, 帰無仮説は棄却されない.

data32 <- read.csv("data/02_第2章/02_practice_01.csv", header = FALSE)
x <- data32$V1

t.test(x, alternative = "two.sided", mu = 8, conf.level = 0.90)
## 
##  One Sample t-test
## 
## data:  x
## t = 2.102, df = 19, p-value = 0.04911
## alternative hypothesis: true mean is not equal to 8
## 90 percent confidence interval:
##   8.354811 11.645189
## sample estimates:
## mean of x 
##        10

t.test(x, alternative = "two.sided", mu = 8, conf.level = 0.99)
## 
##  One Sample t-test
## 
## data:  x
## t = 2.102, df = 19, p-value = 0.04911
## alternative hypothesis: true mean is not equal to 8
## 99 percent confidence interval:
##   7.277955 12.722045
## sample estimates:
## mean of x 
##        10