底辺私立医大を卒業した医者って頭悪いよね？ Part32 (903ﾚｽ)
上下前次1-新
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
396(2): 09/14(土)08:48 ID:4aTGKsaG(3/5) AAS
臨床応用問題
尿素呼気試験 感度90-100%、特異度80-99%
外部ﾘﾝｸ[html]:www.crc-group.co.jp
あるクリニックで
通算のP-CAB利用の除菌成功率は1次除菌が88.5％（502/567）であった。
判定は尿素呼気試験 感度90-100%、特異度80-99%
外部ﾘﾝｸ[html]:www.crc-group.co.jp
で行った。
このクリニックで一次除菌成功と判定されたときにピロリ菌が持続感染している確率の
平均値、中央値、95%信頼区間を求めよ。
省2
397: 09/14(土)09:04 ID:4aTGKsaG(4/5) AAS
pdfを描出するように改良
# 信頼区間からβ分布の形状係数を算出する
ci2ab=\(l,u,verbose=FALSE,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){
省15
398: 09/14(土)09:20 ID:YRPV5tb8(1) AAS
>>396
感度と特異度のpdfを描出
画像ﾘﾝｸ[png]:i.imgur.com
画像ﾘﾝｸ[png]:i.imgur.com
区間の中心を平均値や中央値に設定しての算出より誤差が少なかった。
399: 09/14(土)09:36 ID:6IJRlZll(1/3) AAS
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
外部ﾘﾝｸ:www.skgh.jp
外部ﾘﾝｸ:www.suruga-ya.jp
外部ﾘﾝｸ[html]:www.oma-aozora.jp
400: 09/14(土)09:43 ID:4aTGKsaG(5/5) AAS
LearnBayesのbeta.select関数(分位数から形状母数を算出)だと
エントリーに0や1があると計算してくれない。
95信頼区間を2.5%-97.5%の分位数として算出させようとするとエラーが返ってくる。
> LearnBayes::beta.select(list(p=0.025,x=0.90),list(p=0.975,x=1.00))
Error in approx(prob2[ind], logK[ind], p2) :
need at least two non-NA values to interpolate
401: 警備員[Lv.4][新芽] 09/14(土)09:57 ID:9hxLr8jT(1/4) AAS
尿瓶ジジイ都合の悪いことは全てダンマリで板違いのチンパン数学()を垂れ流すことしかもうできない模様
402(1): 09/14(土)10:42 ID:kTVOq2TW(1/2) AAS
底辺私立医大卒の医者は、なぜ国立医大に行かなかったのだろう⁈
可哀想なのは患者だけで無く、底辺私立医大卒の家族たち!!
日々の何気ない生活の中で、時には知り合いから『お宅のご主人の大学は??』『おまえのお父さんの大学どこ??』という質問をうける事もあるだろう。
そんな時、阿保医者の家族達は『知らないんだょね』と誤魔化すのが精一杯、、知らない筈はないが…
全ての患者も、優秀な医者に診て欲しいと思っているから、底辺私立医大卒は寝る間を惜しんでもっと勉強、再教育すべきと思う
省5
403: 09/14(土)11:03 ID:6Ky8Mu7c(1) AAS
>>402
出身大学と医者のレベルは必ずしも一致しない
論文読めば分かるだろ
404: 09/14(土)11:35 ID:6IJRlZll(2/3) AAS
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
外部ﾘﾝｸ:www.skgh.jp
外部ﾘﾝｸ:www.suruga-ya.jp
外部ﾘﾝｸ[html]:www.oma-aozora.jp
405(1): 09/14(土)12:04 ID:v9WwgBOq(1/2) AAS
>>396
この計算から
ピロリ菌再発は何人にひとりくらいと患者に説明すればよいか?
406(1): 09/14(土)12:06 ID:v9WwgBOq(2/2) AAS
>>405
Rでの試算
# 信頼区間からβ分布の形状係数を算出する
ci2ab=\(l,u,verbose=FALSE,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)
}
省29
上下前次1-新書関写板覧索設栞歴
あと 497 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.013s