底辺私立医大を卒業した医者って頭悪いよね？ Part32 (867ﾚｽ)
上下前次1-新
376: 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
377(3): 09/10(火)07:14 ID:0OGSIRnA(1/2) AAS
He thinks that that that that that doctor wrote beautiful.
１．品詞分解せよ。
２．和訳せよ。
378: 09/10(火)08:15 ID:w7Lftci3(1/2) AAS
cranからパッケージHDIntervalが削除されていたので自作。
一般化
HDI=\(InvCDF=qbeta,cred=0.95,...){
opt=optimize(\(p) InvCDF(p+cred,...) - InvCDF(p,...),c(0,1-cred))
lwr=InvCDF(opt$min,...)
upr=lwr+opt$obj
c(lwr,upr)
}
cranからパッケージHDIntervalが削除されていたので自作。
379: 09/10(火)08:51 ID:w7Lftci3(2/2) AAS
基礎学力が問われる問題
外部ﾘﾝｸ:www.bloomberg.co.jp
によると出馬は9人に増えるようである。
９人でジャンケンをして総裁を決める。
残った勝者で勝者が１人になるまでジャンケンを行う。
アイコも１回と数える。
総裁が決まるまでのジャンケンの回数の期待値と最頻値を求めよ。
380(1): 09/10(火)09:37 ID:/cg0W/YV(1) AAS
期待値、約7〜8回
最頻値、7回
381: 09/10(火)10:43 ID:PDXaAFpI(1/3) AAS
>>377
お
382: 09/10(火)10:44 ID:PDXaAFpI(2/3) AAS
>>377
私文卒でも解ける問題発見
まあ医師ならこんなのは朝飯前だろう。
383(1): 09/10(火)11:01 ID:PDXaAFpI(3/3) AAS
>>377
isが足りないと思う。
1. He（代名詞） thinks（動詞、三単現） that（接続詞） that（指示代名詞） that（名詞） that（関係代名詞） that（指示代名詞） doctor（名詞） wrote（動詞、過去形）is（動詞、be動詞） beautiful（形容詞）.
2. 彼は、あの医師が書いたあのthat（という単語）のことを美しいと考えている。
384: [0] 09/10(火)12:13 ID:CWKIMCPS(1) AAS
どちらも負けるな。現在は五分五分。
385: 09/10(火)12:18 ID:DyHutrGv(2/2) AAS
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
外部ﾘﾝｸ:www.skgh.jp
外部ﾘﾝｸ:www.suruga-ya.jp
外部ﾘﾝｸ[html]:www.oma-aozora.jp
386: 09/10(火)13:34 ID:0OGSIRnA(2/2) AAS
>>383
正解
本当だisが抜けてたスマン
387(2): 09/12(木)05:55 ID:Gblj4tVi(1/2) AAS
裏口容疑者には算出できない問題
こういう実地臨床に役立つ計算は楽しい。
"
正しく薬を服用すれば1回目の除菌療法の成功率は約68〜92％といわれています。
外部ﾘﾝｸ:www.pylori-story.jp
尿素呼気試験の感度は90-100% 特異度80-99%
外部ﾘﾝｸ[html]:i.imgur.com
上記数値はHighest Probability Densityでの95%信頼区間であると想定するとき
尿素呼気試験で陰性であった患者にピロリ菌感染が持続している確率とその95%信頼区間を求めよ。
"
388: 09/12(木)09:39 ID:Gblj4tVi(2/2) AAS
# オミクロン株流行下の抗原定性検査の感度と特異度が判明
# 外部ﾘﾝｸ[html]:www.aist.go.jp
st2pv=\(prior,sl=0.53,su=0.73,tl=0.995,tu=1.00,cred=0.95){ # prior 検査前確率 感度[sl,su] 特異度[tl,lu] cred:信用レベル
mv2ab<-function(m,v){# mean, variance to a,b
a=(-m^3+m^2-m*v)/v
b=(m^3-2*m^2+m*v+m-v)/v
c(a=a,b=b)
}
absen=mv2ab((sl+su)/2,((su-sl)/2/qnorm(1/2+cred/2))^2)
abspc=mv2ab((tl+tu)/2,((tu-tl)/2/qnorm(1/2+cred/2))^2)
省18
389: 09/12(木)10:15 ID:b25APUh4(1) AAS
>>387
ほとんどの数学は役に立つよ
役立たせ方を知らない、考えようとしてないだけ
390: 09/12(木)12:13 ID:3v9jdxfx(1) AAS
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
外部ﾘﾝｸ:www.skgh.jp
外部ﾘﾝｸ:www.suruga-ya.jp
外部ﾘﾝｸ[html]:www.oma-aozora.jp
391: 警備員[Lv.4][新芽] 09/12(木)19:29 ID:AgPCF0df(1) AAS
>>387
脳内医者はダンマリ決め込むしかない問題>>327
392: 09/13(金)14:31 ID:FlUFi/rO(1) AAS
library(LearnBayes)
# 累積密度関数の逆関数InvCDF(qbeta,qgamma等)と省略しない引数から
# Highest Density Intervalの信頼区間を求める
HDI=\(InvCDF=qbeta,cred=0.95,...){
opt=optimize(\(p) InvCDF(p+cred,...) - InvCDF(p,...),c(0,1-cred))
lwr=InvCDF(opt$min,...)
upr=lwr+opt$obj
c(lwr,upr)
}
ab=beta.select(list(p=0.025,x=0.80),list(p=0.975,x=0.99))
省8
393: 09/13(金)16:58 ID:Ro8w2WW/(1) AAS
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
外部ﾘﾝｸ:www.skgh.jp
外部ﾘﾝｸ:www.suruga-ya.jp
外部ﾘﾝｸ[html]:www.oma-aozora.jp
394: 09/14(土)07:57 ID:4aTGKsaG(1/5) AAS
# 信頼区間からβ分布の形状係数を算出する
ci2ab=\(l,u,cl=0.95){ # ci : [l,u], cl : confidence level
f=\(ab){
LU=HDI(qbeta,cred=cl,shape1=ab[1],shape2=ab[2])
(LU[1]-l)^2 + (LU[2]-u)^2
}
opt=optim(runif(2,1,100),f1)
opt=optim(opt$par,f1)
par=opt$par
ls=HDI(qbeta,shape1=par[1],shape2=par[2])
省4
395: 09/14(土)08:24 ID:4aTGKsaG(2/5) AAS
改良
# 信頼区間からβ分布の形状係数を算出する
ci2ab=\(l,u,cl=0.95){ # ci : [l,u], cl : confidence level
HDI=\(InvCDF=qbeta,cred=0.95,...){
opt=optimize(\(p) InvCDF(p+cred,...) - InvCDF(p,...),c(0,1-cred))
lwr=InvCDF(opt$min,...)
upr=lwr+opt$obj
c(lwr,upr)
}
f=\(ab){
省12
上下前次1-新書関写板覧索設栞歴
あと 472 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.015s