|
#出典：東京大学教養学部統計学教室[2007],p231,練習問題11.5より作成
#（１）x1とx2の平均の差の信頼係数95％（p231）
#（２）ふたつの母平均は異なるか。またx1のほうが大きいか（p243あたり参照）
#（３）母分散は等しいか
#(1)-(2)はt分布003参照
#(3)
#分散の比F
x1=c(7.97,7.66,7.59,8.44,8.05,8.08,8.35,7.77,7.98,8.15)
x2=c(8.06,8.27,8.45,8.05,8.51,8.14,8.09,8.15,8.16,8.42)
m1 = mean(x1);v1 =var(x1);n1=length(x1);df1=n1-1
m2 = mean(x2);v2 =var(x2);n2=length(x2);df2=n2-1
s1= sum((x1-m1)^2)/(n1-1)
s2= sum((x2-m2)^2)/(n2-1)
F= s1/s2
# F分布
# F1<F<F2であれば帰無仮説を棄却しない
#以下は有意水準５％
F1 = qf(0.95,n1-1,n2-1);F1
F2 = qf(0.05,n1-1,n2-1);F2
#もしくは…
var.test(x1,x2)
|
