#例7.1a

xa <- read.csv("Table713a.csv")
xa
attach(xa)

#片側検定：対立仮説μ1<μ2 　：指定しなければ両側検定を行う

#ローデータ（テキスト表7.1.3）から関数を利用

#　t.test(変数１,変数２,等分散の仮定,対立仮説)

#等分散を指定しなければ、ウェルチの方法を実行する

t.test(e_mas,c_mas,var.equal=T,alternative="less")

​

#信頼区間　p.217 を求める場合：両側検定

t.test(e_mas,c_mas,var.equal=T)

​

​