[過去ﾛｸﾞ] 底辺私立医大を卒業した医者って頭悪いよね？ Part30 (1002ﾚｽ)
上下前次1-新

---

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

---

857: (ﾜｯﾁｮｲ 5bf6-Tu0P [2001:ac8:40:6000:* [上級国民]]) 2024/05/31(金) 05:40:41.96 ID:U7Vlyaxm0(1/2) AAS
beta.diff=
function(r1,r2,n1,n2,a=1,b=1){
f <- function(x,y) dbeta(x+y,a+r1,b+n1-r1)*dbeta(y,a+r2,b+n2-r2)
vf=Vectorize(f,vectorize.args = 'y')
pdf <- function(x) integrate(function(y) vf(x,y),-1,1)$value
pdf=Vectorize(pdf)
cdf=function(x) integrate(pdf,-1,x)$value
cdf=Vectorize(cdf)
invisible(list(pdf=pdf,cdf=cdf))
}
re=beta.diff(240,400,240+27,400,1,1)
curve(re$pdf(x),-1,1)
integrate(\(x) x*re$pdf(x),0,1,rel.tol = 1e-24)
re$cdf(0)

---

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

---

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

---

ぬこの手 ぬこTOP 0.081s