[過去ﾛｸﾞ] 臨床統計もおもしろいですよ、その１ [無断転載禁止]©2ch.net (747ﾚｽ)
上下前次1-新

---

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

---

745: 2018/10/14(日)06:36 ID:+n7lCedi(1/2) AA×


[240|320|480|600|原寸|JPG|べ|ﾚｽ栞|ﾚｽ消]
745: [sage] 2018/10/14(日) 06:36:53 ID:+n7lCedi f <- function(ratio=1.2,wm=0.2,total=1000,pass=100){ woman=total*wm man=total-woman i=0:pass sum((choose(man,i)*choose(woman,pass-i)/choose(total,pass))*(i/man > ratio*(pass-i)/woman)) } f() r=seq(1,3,length=1000) p=sapply(r,f) plot(r,p,pch=19,type='n',bty='l',xlab='M/F ratio',ylab='probability') abline(h=0.01,lty=3) g <- function(wm) lines(r,sapply(r,function(r)f(r,wm)),col=10*wm,lwd=10*wm) for(i in 1:5/10) g(i) legend('center',bty='n',lwd=1:5,col=1:5, legend=c('10%','20%','30%','40%','50%')) pass=100 wm=0.2 curve( (x/(1-wm))/((pass-x)/wm),0,pass) uniroot(function(x,u0=1.2) x*wm/(1-wm)/(pass-x)-u0, c(0,pass)) (83/800)/(17/200) prop.test(c(83,17),c(800,200)) http://egg.5ch.net/test/read.cgi/hosp/1493809494/745

---

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

---

あと 2 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.100s*