[過去ﾛｸﾞ] 底辺私立医大を卒業した医者って頭悪いよね？ Part32 (1002ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) ﾚｽ栞 あぼーん

---

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

---

376: 2024/09/10(火)06:58 ID:ncLaE3Vp(1) AAS
HDIbeta=\(alpha,beta,cre=0.95,verbose=FALSE){
lwr=optimise(\(x) qbeta(pbeta(x,alpha,beta)+cre,alpha,beta) - x,c(0,qbeta(1-cre,alpha,beta)))$minimum
upr=qbeta(pbeta(lwr,alpha,beta)+cre,alpha,beta)
if(verbose){
curve(dbeta(x,alpha,beta),bty='l',ann=FALSE)
curve(dbeta(x,alpha,beta),type='h',col=2,xlim=c(lwr,upr),add=TRUE)
hdi=c(lwr,upr)
qu=qbeta(c(1/2-cre/2,1/2+cre/2),alpha,beta)
segments(qu[1],0,qu[2],0,col=4,lwd=2)
return(list(hdi=hdi,quantile=qu))
省3

---

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

---

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

---

ぬこの手 ぬこTOP 0.024s