[過去ﾛｸﾞ] 面白い問題おしえて〜な 28問目 (1002ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) ﾚｽ栞 あぼーん

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

447: 2018/11/27(火)14:19 ID:Lp6axtvL(1/4) AAS
>>444
> T.test=function(n1,n2,m1,m2,sd1,sd2){
+ SE12=sqrt((1/n1+1/n2)*((n1-1)*sd1^2+(n2-1)*sd2^2)/((n1-1)+(n2-1)))
+ T=(m1-m2)/SE12
+ 2*pt(abs(T),n1-1+n2-1,lower.tail = FALSE)
+
+ }
> T.test(100,100,600,570,70,70)
[1] 0.002767864

---

448: 2018/11/27(火)14:22 ID:Lp6axtvL(2/4) AAS
>>444
> kinyu=scale(rnorm(100))*70+600
> seizo=scale(rnorm(100))*70+570
> t.test(kinyu,seizo,var.equal = TRUE)

Two Sample t-test

data: kinyu and seizo
t = 3.0305, df = 198, p-value = 0.002768
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
10.47802 49.52198
省14

---

449: 2018/11/27(火)14:26 ID:Lp6axtvL(3/4) AAS
>>445
前半
> binom.test(0.15*500,500,0.20,alternative = 'less')

Exact binomial test

data: 0.15 * 500 and 500
number of successes = 75, number of trials = 500, p-value = 0.002383
alternative hypothesis: true probability of success is less than 0.2
95 percent confidence interval:
0.0000000 0.1788032
sample estimates:
省3

---

450: 2018/11/27(火)14:29 ID:Lp6axtvL(4/4) AAS
>>445
後半
> binom.test(60,300,1/6)

Exact binomial test

data: 60 and 300
number of successes = 60, number of trials = 300, p-value = 0.1216
alternative hypothesis: true probability of success is not equal to 0.1666667
95 percent confidence interval:
0.1562313 0.2498044
sample estimates:
省5

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.029s