面白い問題おしえて～な 28問目

面白い問題おしえて～ ..

472:１３２人目の素数さん
18/11/27 14:19:17.27 Lp6axtvL.net
>>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

次ページ

続きを表示

1を表示