20/04/26 22:33:36 7Vo1jkoW.net
ド底辺シリツ医大卒ってこれだよな
底辺私立医大卒が国立大学医学部卒を妬むスレ [転載禁止](c)2ch.net
スレリンク(hosp板:695番)
695 名前:卵の名無しさん[] 投稿日:2016/09/25(日) 22:04:25.53 ID:FzuOCpqV
匿名先生
精神科
▲
1
評価
私立出でも、素晴らしい医師がいるし、国立でも、どうしようもないのもいる。
そんなのは、あくまで個人の資質差と思ってました。
が、
今いる病院(医師の大部分が、いわゆる底辺私立)に来て、その考えは変わりました。
とある、気に食わない医師の白衣やサンダルを隠す、机の上にゴミを置く、など、小学生じみた嫌がらせをしている医師というのを、はじめて見ました。
国立出の変人も多々みてきましたが、こんな、小学生のイタズラみたいなことをする人は、いませんでした。
やは�
3:閨A底辺私立は、それなりなんだと思いました。 2016年09月02日 00時21分09秒
4:卵の名無しさん
20/04/26 22:33:53 7Vo1jkoW.net
人種や民族など本人が選択できないことを根拠とする区別は差別の批判を免れないが、
ド底辺シリツ医大進学は本人の選択だよなぁ。
これな!
不朽の名投稿
>>
私は昭和の時代に大学受験したけど、昔は今よりも差別感が凄く、特殊民のための特殊学校というイメージで開業医のバカ息子以外は誰も受験しようとすらしなかった。
常識的に考えて、数千万という法外な金を払って、しかも同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んでド底辺医に行く同級生は一人もいませんでした。
本人には面と向かっては言わないけれど、俺くらいの年代の人間は、おそらくは8-9割はド底辺医卒を今でも「何偉そうなこと抜かしてるんだ、この裏口バカが」と心の底で軽蔑し、嘲笑しているよ。
当の本人には面と向かっては絶対にそんなことは言わないけどね。
<<
東京医大の事件は裏口入学が現在進行形であること如実にしめした事件だよね。
シリツ医の使命は裏口入学撲滅国民運動の先頭に立つことだよ。
裏口入学の学生を除籍処分にしないかぎり、信頼の回復はないね。つまり、いつまで経ってもシリツ医大卒=裏口バカと汚名は拭えない。シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を!の国民運動の先頭に立てばよいぞ。
僕も裏口入学とか、言ってたら信頼の回復はない。
5:卵の名無しさん
20/04/26 22:34:30 7Vo1jkoW.net
シリツ医のこれが現実
1次方程式もできないド底辺特殊シリツ医大卒の記録
URLリンク(imagizer.imageshack.com)
何度読んでも馬鹿すぎる。
男女別の割合と全体での割合から男女比が計算できるとも思わないとは。
なんでこんなのが大学に入れるわけよ?
裏口入学以外に説明がつく?
中学生でも解ける一次方程式の問題だろ。
それすらできない馬鹿が自信を持って発言。
>患者の男女比が必要なのもわからないのか?
だとさ。
URLリンク(imagizer.imageshack.com)
0.2575549
と答を書いてやったら
>単位も書かずに答えだとか…
ド底辺シリツ医大では確率に単位があるらしいぞw
何でこんな馬鹿が大学に入れるわけ?
裏口入学以外に説明がつく?
URLリンク(imagizer.imageshack.com)
6:卵の名無しさん
20/04/26 22:34:54 7Vo1jkoW.net
算数の掛け算すら怪しいのがシリツ医がこういう事故を起こす。
氷山の一角だと俺は思っている。
URLリンク(i.imgur.com)
7:卵の名無しさん
20/04/26 22:36:46 7Vo1jkoW.net
底辺シリツ裏口卒業のガイジ
URLリンク(video.twimg.com)
山添「つまり趣旨は伝わってるんですよ、総理、いかがですか」
安倍
「ですが、しゅし、趣旨については伝わったという話をいたしましたが、こっ…こっ…チッ…
このですね、この、イワバッ、サァンギンの……………が、書いた、いるですね、この ォー
ギョウセイキカンノホユウスルジョウホウノコウカイニカンスルホウリツニモトヂュイテ、名簿全体を、公開されることもありますと
いうこと、では、キきていない、ということは申し上げた、わけで、あります
で、そもそもですね!えー、この…この、最初の、ないか、えー、れんらく、うー
事務連絡で、かいたあることもですね、えー、カイ請求の対象!とされることも、あります!
とこうかいて、ウェ、ある、わけぇ、で、アリマシテ、対象とされることもありますということとですね、
エ、カイジ、エ、アノム、名簿ジェンタイを公開される、ということとは、これ、エー、…f…fセ、請求の対象トセ!
対象ですから!対象とされたってこと、でありますから、そこが、マァ違うということだとオモマスガ
いずれぇいたしましてもですね、イズレェいたしましても、いわば、ア、そうい、う、方、をですね、
エー、選んでくださいと、いうことについては、ソレァ、当然、エキテイルということは
先ほども申し上げた趣旨、にチュイテハ、申し上げている通りであります」
山添「ちょっとはっきり趣旨が分かりませんけども」
8:卵の名無しさん
20/04/26 23:13:20 7Vo1jkoW.net
Last but not least, three laws of Do-Teihen Medical School, currently called Gachi'Ura by its graduates.
最後にド底辺医大の三法則を掲げましょう。
1: It is not the bottom medical school but its enrollee that is despicable, which deserves to be called a bona fide moron beyond redemption.
ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ。
2: The graduates of Do-Teihen are so ashamed that none of them dare to mention their own alma mater which they have gone through.
ド底辺シリツ医大卒は恥ずかしくて、学校名を皆さま言いません。
3: The Do-Teihen graduates are so ashamed of having bought their way into the exclusively bottom-leveled medical school
that they tend to call a genuine doctor a charlatan who elucidates their imbecility.
ド底辺シリツ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる。
前々スレからのド底辺シリツ医への宿題
若い女性研修医(嘘つきかどうかは不明)から
「あなたのいうことが正しければ手コキかフェラをしてあげる、そうでなければセンズリを命じる」と言われた。
フェラをしてもらうには何と言えばいいか?
答だせないってアホなの?
フェラよりセンズリが好きなの?
9:卵の名無しさん
20/04/26 23:23:23 7Vo1jkoW.net
N=950
y=c(rep(NA,N-1),30) # c(NA,NA,....,30)
thresh=cbind(rep(15,N),rep(25,N),rep(30,N)) # 15,25,30
ybin=c(rep(1,N-1),3) # 0:[,15), 1:[15,25), 2:[25,30), 3:[30,]
data=list(N=N,y=y,ybin=ybin,thresh=thresh)
inits=list(theta=0.5)
model.string='
model{
for (i in 1:N){
ybin[i] ~ dinterval( y[i] , thresh[i, ] )
y[i] ~ dbin(theta,50)
}
theta ~ dbeta(1,1)I(0.25,1)
}
'
10:卵の名無しさん
20/04/26 23:35:43.41 7Vo1jkoW.net
URLリンク(image.slidesharecdn.com)
11:卵の名無しさん
20/04/26 23:46:36 7Vo1jkoW.net
>>8
URLリンク(kosugitti.github.io)
12:卵の名無しさん
20/04/27 06:34:29 Yae16mbw.net
fakekit <- function(
prev, # prevalence
sen=0, # sensitivity
spc=1){ # specificity
data.frame(p = prev*sen + (1-prev)*(1-spc),
PPV=sen*prev/(sen*prev+(1-prev)*(1-spc)),
NPV=(1-prev)*spc/((1-prev)*spc+prev*(1-sen)),
precision=(prev*sen+(1-prev)*spc)/
((prev*sen+(1-prev)*spc+(1-prev)*(1-spc)+(prev*(1-sen)))),
pLR=sen/(1-spc),
nLR=(1-sen)/spc,
DOR=pLR/nLR)}
13:卵の名無しさん
20/04/27 06:35:01 Yae16mbw.net
rm(list=ls())
source('tools.R')
Prev2PV <- function(
prev=0.003,
SEN=0.5, # 感度最頻値 beta(13.6991,9.4661)でmode 0.6, sd=0.1
SD1=0.2,# 感度標準偏差
SPC=0.95, # 特異度最頻値 beta(36.172,4.908)でmode 0.9 sd=0.05
SD2=0.05, # 特異度標準偏差
MODE=FALSE, # 最頻値表示,期待値表示
N.ITER=NULL, # JAGSのサンプリング回数
THIN=NULL, # THIN毎にデータ採用
print=TRUE){ # グラフを描くか?
library(rjags)
library(BEST)
sn=Mv2ab(SEN,SD1^2) # Mode variance -> Beta(a,b)のパラメータに
sp=Mv2ab(SPC,SD2^2)
# n : 日々の検査人数配列 x:日々の陽性人数配列
modelstring='
model
{
p = prev*sen + (1-prev)*(1-spc) ;
PPV=sen*p/(sen*p+(1-p)*(1-spc));
NPV=(1-p)*spc/((1-p)*spc+p*(1-sen));
precision=(p*sen+(1-p)*spc)/((p*sen+(1-p)*spc+(1-p)*(1-spc)+(p*(1-sen))));
pLR=sen/(1-spc);
nLR=(1-sen)/spc;
DOR=pLR/nLR;
sen ~ dbeta(sn[1],sn[2])
spc ~ dbeta(sp[1],sp[2])
}
'
14:卵の名無しさん
20/04/27 06:35:09 Yae16mbw.net
writeLines(modelstring,'TEMPmodelj4.txt')
dataList=list(prev=prev,sn=sn,sp=sp)
jagsModel = jags.model( file="TEMPmodelj4.txt" ,data=dataList, n.chains=4,quiet=TRUE)
update(jagsModel)
codaSamples=coda.samples(jagsModel,
variable.names=c("PPV","NPV","precision","pLR","nLR","DOR"),
n.iter=ifelse(is.null(N.ITER),1e5,N.ITER),
thin=ifelse(is.null(THIN),1,THIN))
js=as.data.frame(as.matrix(codaSamples))
par(mfrow=c(3,2))
BEST::plotPost(js$PPV,xlab='PPV',col='pink')
BEST::plotPost(js$NPV,xlab='NPV')
BEST::plotPost(js$precision,xlab='precision')
BEST::plotPost(js$pLR,xlab='pLR')
BEST::plotPost(js$nLR,xlab='nLR')
BEST::plotPost(js$DOR,xlab='DOR')
invisible(js)
}
15:卵の名無しさん
20/04/27 16:34:24.34 gLUrqN54.net
他の病気で入院してきた患者が自覚症状なしでコロナ持ってくるんだぜ
さらにそれで感染した同僚が無症候でまわりにばら撒くんだぜ
いくらプロでもこんなん防げねーよ全患者・全職員に対し常時完全防備なんてできねーし
なんならいっそ一般病棟よりコロナ病棟入ったほうが全員が最初からわかって対策できるぶん感染リスク少ねーと思うわ
16:卵の名無しさん
20/04/27 19:02:09 gLUrqN54.net
rm(list=ls())
library(rjags)
# model string
modelstring = "
model {
for ( i in 1:N ) {
ybin[i] ~ dinterval( y[i] , thresh[i,] )
y[i] ~ dnorm( mu , tau )
}
tau ~ dt(0,pow(2.5,-2),1)T(0,)
# tau ~ dgamma(.001,.001)
sigma = sqrt(1/tau)
mu ~ dnorm(0,1E-6)
}
"
17:卵の名無しさん
20/04/27 19:02:49 gLUrqN54.net
# Generate some random data Y:
N=500 ; MU=100 ; SD=15
set.seed(19791017) ; Y=MU + SD*scale(rnorm(N))
# Generate cencored data y:
# threshold 0 1 2 3
# censored 94-100 106-
fn <- function(
t1=94,
t2=100,
t3=106){
y=Y=as.numeric(Y)
thresh=matrix(rep(c(t1,t2,t3),N),ncol=3,b=T)
ybin=numeric(N)
idx0=which(Y<t1)
ybin[idx0]=0
idx1=which(t1<=Y & Y<=t2)
ybin[idx1]=1
idx2=which(t2<Y & t3<Y)
ybin[idx2]=2
idx3=which(t3<=Y)
ybin[idx3]=3
y[c(idx1,idx3)]=NA
list(y=y,ybin=ybin,thresh=thresh)
}
re=fn()
data=list(y=re$y,ybin=re$ybin,thresh=re$thresh,N=N)
writeLines(modelstring,con="model.txt")
jagsModel=jags.model('model.txt',data=data,n.chains = 1)
codaSamples=coda.samples(jagsModel,n.iter=1e4,thin=1,
variable.names = c("mu","sigma") )
js=as.data.frame(as.matrix(codaSamples))
18:卵の名無しさん
20/04/27 19:02:58 gLUrqN54.net
summary(js)
layout(matrix(1:2,2))
BEST::plotPost(js$mu,xlab='μ = 100',showMode = T)
BEST::plotPost(js$sigma,xlab='σ = 15',showMode = T)
19:卵の名無しさん
20/04/27 19:15:39 gLUrqN54.net
Natureのこの論文はエクセルデータとRのコードがついていて自分で再現できるので入力の手間が省ける。
URLリンク(www.nature.com)
感染させる確率分布をガンマ分布を平行移動させた分布として想定して、データから最尤法でパラメータ算出している。
そのプログラムをみていくと
感染させる確率分布を
#--- infectiousness, gamma distribution ---
# gpar[1:2]: hyper-parameters (gamma)
# x : infection time of infectee w.r.t onset time of infector
f.Xc = function(x, gpar) { dgamma(x, gpar[1], gpar[2]) }
ガンマ分布にしているけど
一人が一人を感染させるモデルだから
形状パラメータgpar[1]は1で固定、つまり、指数分布だと思うんだがどうだろ?待ち時間の分布と同じ考え。
w.r.t = with reference to
ひとりが別の一人に一回感染させるというモデルなので待ち時間の分布の指数分布でいいと思う。
ガンマ分布の形状パラメータ=1とおけば指数分布になる。
プログラムを書き直してグラフにすると
URLリンク(i.imgur.com)
発症前に感染させている確率は47%と原著とあまりかわらないが、そのピークは発症1.6日前という結果になった。
20:卵の名無しさん
20/04/27 20:23:34 gLUrqN54.net
算数の掛け算すら怪しいのがシリツ医がこういう事故を起こすわけなんだな。
URLリンク(i.imgur.com)
21:卵の名無しさん
20/04/27 22:21:29.54 fJhkKCFp.net
私立医大を増やすとこうなる。
算数の掛け算すら怪しいのがシリツ医がこういう事故を起こすわけなんだな。
://i.imgur.com/ArPaux9.png
22:卵の名無しさん
20/04/27 22:50:43 ek/DjIvE.net
5卵の名無しさん2020/03/13(金) 07:13:02.02ID:kiP5MRUD
前スレからのド底辺シリツ医への宿題
若い女性研修医(嘘つきかどうかは不明)から
「あなたのいうことが正しければ手コキかフェラをしてあげる、そうでなければセンズリを命じる」と言われた。
フェラをしてもらうには何と言えばいいか?
答だせないってアホなの?
フェラよりセンズリが好きなの?
997卵の名無しさん2020/04/27(月) 19:05:04.10ID:ek/DjIvE
>>5
答えてやろうw
正直に「俺はド底辺私立医大卒の医者です」と言うw
前スレの続きだがこれで答えは正解?
23:卵の名無しさん
20/04/27 22:51:20 ek/DjIvE.net
阪大卒業しました(恥ずかしいっす)
24:卵の名無しさん
20/04/28 01:21:00.96 BRKGEFCX.net
InstalledPackages=installed.packages()[,'Package']
install.packages(InstalledPackages)
25:卵の名無しさん
20/04/28 01:22:38 BRKGEFCX.net
>>21
アホ晒して楽しい?
26:卵の名無しさん
20/04/28 08:25:36 BRKGEFCX.net
" URLリンク(www.medrxiv.org)
saliva+ saliva-
swab+ 26 3
swab- 8 1
"
prop.test(c(9,4),c(38,38))
poisson.test(c(9,4),c(38,38),alt='g')
27:卵の名無しさん
20/04/28 09:16:52 tMvnGpTj.net
URLリンク(www.researchgate.net)
28:卵の名無しさん
20/04/28 09:22:05 tMvnGpTj.net
URLリンク(www.researchgate.net)
URLリンク(i.imgur.com)
を見つけたのでKappa値や信頼区間を出して遊んでみよう~っと。
29:卵の名無しさん
20/04/28 15:27:32 BRKGEFCX.net
>>27
仮想データで遊ぶより、面白いな。
swabと唾液でまあ、結果が合致している。
> print(fit.kappa,pars=c('kappa','PABAK'))
Inference for Stan model: kappa.
4 chains, each with iter=2000; warmup=1000; thin=1;
post-warmup draws per chain=1000, total post-warmup draws=4000.
mean se_mean sd 2.5% 25% 50% 75% 97.5% n_eff Rhat
kappa 0.81 0 0.07 0.65 0.77 0.81 0.86 0.92 3540 1
PABAK 0.93 0 0.02 0.88 0.92 0.93 0.95 0.97 3342 1
JAGSでMCMCしてもほぼ同じ結果。
URLリンク(i.imgur.com)
30:卵の名無しさん
20/04/28 16:21:41 yG8s6fMX.net
キスも……慶応病院研修医「集団感染」
40人懇親会で何が起きていたか???
文春オンライン
URLリンク(bunshun.jp)
31:卵の名無しさん
20/04/28 18:47:11.83 1fl0FDJA.net
うりゅう爺さん今日も絶好調wwww
きちんと勉強机の前に座って勉強しないとまた浪人するよwwww
で25浪くらいかwwww
32:卵の名無しさん
20/04/28 18:55:54 1fl0FDJA.net
そろそろ就職して年老いた親を安心させないとwwww
医科歯科大卒を自称してもウソはバレバレだからwwww
33:卵の名無しさん
20/04/28 19:30:46.53 BRKGEFCX.net
スレタイ読んでここに投稿するシリツ医ってアホだと思うぜ。
内視鏡バイト先が緊急事態宣言解除まで休診だけど6~10割給与がでるのでなんだか悪いな。
バイト医を解雇する病院とかでてきているらしいなぁ。
34:卵の名無しさん
20/04/28 19:35:44 BRKGEFCX.net
国立卒は謙虚な人がおおいなぁ。
新型コロナウイルス対策 in 医者板 Part.8
スレリンク(hosp板:771番)
771 名前:卵の名無しさん[] 投稿日:2020/04/28(火) 15:49:26.22 ID:kb7Uq7l8
>>766
>こういう計算ができる歯医者は国立卒だろうな。
国立の阪大卒の歯医者ですが全く分かりません。(石神井の学院出身)
歯医者の知性の低さを侮らないで下さい。
医学部に行けなかったから歯学部に行ったのでは無く
親の病院を継ぎたく無いから歯学部に入ったリヴァタリアンなのですから
お医者さんのような社会的動機的知性を持っている歯医者なんていませんよ。(ダブルライセンスの先生は別として)
やる気ない人生を楽しむ為に歯医者になったんですから。でもお医者様に関してはリスペクトしてます。
35:卵の名無しさん
20/04/28 20:53:14.39 BRKGEFCX.net
Suppose that an urn contains n1 white balls and n2 black balls. A total of m1 balls are
drawn from the urn without replacement. Then y1, the number of white balls drawn from
the urn, has a hypergeometric distribution
y1 ~ dhyper(n1,n2,m1,1)
The non-central hypergeometric distribution with odds ratio parameter ψ≠ 1 arises when
m1 is the sum of two binomial distributions
m1 ~ sum(y1, y2)
y1 ~ dbin(p1, n1)
y2 ~ dbin(p2, n2)
If m1 is observed, the conditional distribution of y1 has a non-central hypergeometric distribution
with odds ratio parameter
ψ = p1(1 - p2) / (1 - p1)p2
There are two important things to note. Firstly, the value of m1 is not fixed a priori but is a
random variable. Secondly, the hypergeometric distribution does not depend on the absolute
values of the underlying binomial probability parameters p1; p2 but only their odds ratio .
36:卵の名無しさん
20/04/28 20:53:47.36 BRKGEFCX.net
"
ド底辺シリツ医大にある年の裏口受験票があることが判明した。
枚数は1000枚以下であることは判明しているが、その数を推定したい。
裏口入学調査員が無作為に10枚選んで番号を記録して元に戻した。
別の裏口入学調査員が無作為に20枚選んで番号を記録した。
二人の調査員の記録した番号を照合すると3枚の番号が一致していた。
この情報からこの年の裏口受験証の数の最頻値、期待値とその95%信頼区間を求めよ。
"
37:卵の名無しさん
20/04/29 06:12:34 d8E8REox.net
# 裏口
Nmax=1000
g=10
b=20
x=3
Nmin=max(g,b)
prob=rep(c(0,1/(Nmax-Nmin)),c(Nmin-1,Nmax-Nmin+1))
model.string='
model{
N ~ dcat(prob[]) # 離散量分布
x ~ dhyper(g,N-g,b,1) # 1: central hypergeometric distribution
}
'
writeLines(model.string,'tmp.txt')
dataList=list(g=g,b=b,x=x,prob=prob)
JagsModel=jags.model('tmp.txt', n.chains=4, data=dataList)
codaSamples=coda.samples(JagsModel,n.iter=1e4,thin=1,
variable.names = c('N'))
plot(codaSamples)
js=as.data.frame(as.matrix(codaSamples))
layout(matrix(1:2,2))
hist(js$N,breaks=1000,border = 'skyblue',freq=F,xlim=c(0,Nmax))
summary(js$N)
quantile(js$N,c(.025,.975))
HDInterval::hdi(js$N)
plot(table(js$N), col='lightgreen',bty='l',xlim=c(0,Nmax))
layout(1)
BEST::plotPost(js$N,breaks=100)
as.numeric(names(which.max(table(js$N))))
density(js$N)$x[which.max(density(js$N)$y)] # MODE
38:卵の名無しさん
20/04/29 08:31:20 qPb/O/Fx.net
〇〇大学入試問題
国語 次の漢字の読み方を答えよ
血管 細菌 病気
数学
3 +5=
7+2=
6-4=
英語 アルファベットをAからZまで大文字で全て書け
社会
江戸幕府を開いた人は次のうち誰?
A.徳川家康
B.豊臣秀吉
C.織田信長
理科
時速50Kmの自家用車が15Kmを走るのに要する時間を答えなさい。
39:卵の名無しさん
20/04/29 08:34:06 d8E8REox.net
JAGSもプログラムのコメントに日本語を使うとエラーがでるな。
シリツ医に計算させて医療に従事させるみたいなもんだな。
算数の掛け算すら怪しいのがシリツ医がこういう事故を起こす。
URLリンク(i.imgur.com)
40:卵の名無しさん
20/04/29 09:01:05 d8E8REox.net
だってマスク要りません
検査やりません
外国人どんどん来てだもん
初期行動がこれだから、いくら問題になろうとどっかでコソコソ動いて本筋に戻したいのよ準備してたから
ほとぼり冷めたと思ったのか感染研辺り奇妙な事言い出し始めた
41:卵の名無しさん
20/04/29 09:28:31.87 d8E8REox.net
俺と同じような計算している人いるんだなぁ。
URLリンク(statmodeling.hatenablog.com)
COVID-19 日本国内の潜在的な陽性者数を推定する試み
42:卵の名無しさん
20/04/29 11:34:59 76qD2zC/.net
比較物、用いる価値観によるとしか
実際の医療はパターンばっかりの中に器用さが求められたり、実直さが必要だったりいろんな才能が必要だと思うよ
ゲームが上手いと手術が上手い事が多いかもしれないので私立の方がいいかもしれん
第一出身大学は聞かないとわからない
いちいち入試問題を解かすわけじゃ無いのでね
私立は入試のボーダーは国立より低いだろうけど低いなりに競争はある
私立にも入れない人か、学歴コンプが気にするんだろう
43:卵の名無しさん
20/04/29 12:53:10 d8E8REox.net
# URLリンク(statmodeling.hatenablog.com)
rm(list=ls())
library(rjags)
modelString='
model {
for (a in 1:A) {
n.pos[a] ~ dbinom(p.pos, N[a])
n.sym[a] ~ dbinom(q[a], n.pos[a])
n.asy[a] <- n.pos[a] - n.sym[a]
Y.sym[a] ~ dbinom(p.obs.sym, n.sym[a])
Y.asy[a] ~ dbinom(p.obs.asy, n.asy[a])
Y.sym.DP[a] ~ dbinom(q[a], N.pos.DP[a])
logit(q[a]) <- q.x[a]
}
n.pos.sum <- sum(n.pos)
# positive rate = prevalence*sensitivity + (1 - prevalence)*(1 - specificity)
# prevalence = (specificity + positive rate - 1) / (specificity + sensitivity - 1)
prevalence <- (spc + p.pos -1)/(spc + sen -1)
sen ~ dbeta(sn[1],sn[2])
spc ~ dbeta(sp[1],sp[2])
p.pos ~ dbeta(0.5, 1)
p.obs.sym ~ dbeta(4, 2)
p.obs.asy ~ dbeta(2, 4)
q.x[1] ~ dnorm(0, 1e-4)
q.x[2] ~ dnorm(0, 1e-4)
for (a in 3:A) {
q.x[a] ~ dnorm(2*q.x[a-1] - q.x[a-2], tau)
}
tau ~ dt(0,pow(2.5,-2),1)T(0,)
}
'
44:卵の名無しさん
20/04/29 12:53:46 d8E8REox.net
# URLリンク(www.stat.go.jp)
SEN=0.5 ; SD1=0.2
SPC=0.9 ; SD2=0.05
sn=Mv2ab(SEN,SD1^2) # Mode variance -> Beta(a,b)のパラメータに
sp=Mv2ab(SPC,SD2^2)
pop=c(472,506,534,577,639,627,667,747,855,982,861,778,745,843,899,716,537,369,181,52)
A=10
N=(pop[(1:10)%%2==1] + pop[(1:10)%%2==0])*1e4
plot(N,type='h',bty='l')
Y.sym.DP=c(0,2,25,27,19,28,76,95,27,2)
N.pos.DP=c(1,5,28,34,27,59,177,234,52,2)
Y.sym=c(19,20,256,212,296,334,280,212,114,4)
Y.asy=c(6,12,30,23,32,20,21,19,17,6)
plot(0:(A-1)*10,Y.sym.DP/N.pos.DP,type='h',bty='l',xlab='age')
lines((0:9*10)+1.5,Y.sym/(Y.sym + Y.asy),type='h',col='red')
dataList=list(N=N,Y.sym=Y.sym,Y.asy=Y.asy,
Y.sym.DP=Y.sym.DP,N.pos.DP=N.pos.DP,A=A,
sn=sn,sp=sp)
writeLines(modelString,'temp.txt')
jagsModel=jags.model('temp.txt',data=dataList, n.chains=4,n.adapt = 50000)
update(jagsModel,50000)
codaSamples=coda.samples(jagsModel, n.iter=50e4,thin=100,
variable.names = c('n.pos.sum', 'n.pos', 'p.pos', 'p.obs.sym', 'p.obs.asy', 'q'))
mat=as.matrix(codaSamples)
colnames(mat)
js=as.data.frame(mat)
attach(js)
summary(p.pos)
summary(n.pos.sum)
45:卵の名無しさん
20/04/29 12:55:07 d8E8REox.net
>>41
手先の器用な奴はシリツにもいるが(上皇の執刀医)、
頭が器用なシリツ医はまず、いない。特待生ならいるかもしれんが。
このスレのシリツ医は知恵遅れなのは明らか。
46:卵の名無しさん
20/04/29 13:48:30 d8E8REox.net
これには同意。
なんで、不正って分かってて退学にならないの?
大分の公務員試験は、本人は全く知らずに、親が頼んでたのが分かっただけで、勤務してたのに、解雇になったのに。
ありえないよ。
47:卵の名無しさん
20/04/29 13:48:54 d8E8REox.net
東京医大の事件は裏口入学が現在進行形であること如実にしめした事件だよね。
シリツ医の使命は裏口入学撲滅国民運動の先頭に立つことだよ。
裏口入学の学生を除籍処分にしないかぎり、信頼の回復はないね。つまり、いつまで経ってもシリツ医大卒=裏口バカと汚名は拭えない。シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を!の国民運動の先頭に立てばよいぞ。
僕も裏口入学とか、言ってたら信頼の回復はない。
48:卵の名無しさん
20/04/29 14:20:59 2kI0OgWQ.net
僕には友達がいません 誰か友達になってくれないかな~
by 浩之
49:卵の名無しさん
20/04/29 16:31:33 d8E8REox.net
感度(30-70%)特異度(90-100%)の確率分布をいれて、
URLリンク(statmodeling.hatenablog.com)
の設定を踏襲して、データを更新して
COVID-19 日本国内の陽性率を推定してみると
推定陽性率は
> summary(p.pos) ; HDInterval::hdi(p.pos)[1:2]
Min. 1st Qu. Median Mean 3rd Qu. Max.
0.000031 0.000067 0.004681 0.005229 0.009325 0.016658
lower upper
0.00003082 0.01408833
推定有病率は
> summary(prevalence) ; HDInterval::hdi(prevalence)[1:2]
Min. 1st Qu. Median Mean 3rd Qu. Max.
0.00000 0.00166 0.00529 0.01040 0.01129 0.16078
lower upper
0.0000005693 0.0305640211
50:卵の名無しさん
20/04/29 18:10:11.03 d8E8REox.net
ド底辺裏口シリツ医をコロナ病院に徴用すべきだな。便所掃除とかゴミ捨てとかに使えば、少しは裏口シリツ医でも役に立つと思われるかもなぁ。
算数の掛け算すら怪しいから、治療に当たらせては駄目。医療ミスをコロナのせいにしてしまうから。
URLリンク(i.imgur.com)
51:卵の名無しさん
20/04/29 19:18:46 UsVfFJmV.net
さっさと解除しろよ
「緊急事態宣言で失う命は救う命より多い」
URLリンク(ikedanobuo.livedoor.biz)
52:卵の名無しさん
20/04/29 19:19:57 UsVfFJmV.net
URLリンク(twitter.com)
(deleted an unsolicited ad)
53:卵の名無しさん
20/04/29 19:20:33 UsVfFJmV.net
URLリンク(twitter.com)
(deleted an unsolicited ad)
54:卵の名無しさん
20/04/29 19:26:00 UsVfFJmV.net
読め
URLリンク(twitter.com)
(deleted an unsolicited ad)
55:卵の名無しさん
20/04/29 19:26:39 UsVfFJmV.net
医師会碌なもんじゃねえな
URLリンク(twitter.com)
(deleted an unsolicited ad)
56:卵の名無しさん
20/04/29 19:37:50 UsVfFJmV.net
URLリンク(twitter.com)
(deleted an unsolicited ad)
57:卵の名無しさん
20/04/29 19:39:04 UsVfFJmV.net
反日のクズはチョンだけではないようだ
URLリンク(twitter.com)
(deleted an unsolicited ad)
58:卵の名無しさん
20/04/29 19:40:45 UsVfFJmV.net
URLリンク(twitter.com)
(deleted an unsolicited ad)
59:卵の名無しさん
20/04/29 19:42:07 UsVfFJmV.net
URLリンク(twitter.com)
(deleted an unsolicited ad)
60:卵の名無しさん
20/04/29 19:42:48.10 UsVfFJmV.net
適確です
URLリンク(twitter.com)
(deleted an unsolicited ad)
61:卵の名無しさん
20/04/29 19:53:03.79 2kI0OgWQ.net
リアルでは誰も相手をしてくれません 匿名のネットでは誰かが相手をしてくれるので嬉しいです
by 浩之
62:卵の名無しさん
20/04/29 19:55:55.30 UsVfFJmV.net
URLリンク(twitter.com)
(deleted an unsolicited ad)
63:卵の名無しさん
20/04/29 19:56:49.76 UsVfFJmV.net
>>60
それって某医科歯科爺さんのことですか?w
64:卵の名無しさん
20/04/29 19:57:19.98 UsVfFJmV.net
うりゅうよ、これを読めw
URLリンク(twitter.com)
(deleted an unsolicited ad)
65:卵の名無しさん
20/04/29 19:57:57.81 UsVfFJmV.net
もっともうりゅうは医者じゃないけどねwwwwww
66:卵の名無しさん
20/04/29 19:58:35.25 UsVfFJmV.net
URLリンク(twitter.com)
(deleted an unsolicited ad)
67:卵の名無しさん
20/04/29 20:00:28.84 2kI0OgWQ.net
僕は福井県筑後市瓜生町に住んでいます リアルでの友達が欲しいです
68:卵の名無しさん
20/04/29 20:06:03.86 UsVfFJmV.net
並列コードのバグ取りは大変だったな・・・
69:卵の名無しさん
20/04/29 20:12:53.81 2kI0OgWQ.net
友達が一人もいないので自分と会話をするしかありません 寂しいです
by 浩之
70:卵の名無しさん
20/04/29 20:44:41 UsVfFJmV.net
アホ私立医大に裏口入学した奴は死刑でいいと言っておく
71:卵の名無しさん
20/04/29 20:45:21 UsVfFJmV.net
んなのもん正々堂々と試験受けて合格すればいいだろうに
72:卵の名無しさん
20/04/29 20:46:41 2kI0OgWQ.net
僕の不幸の原因は全て僕のせいです 認めるのは辛いですが、、、
by浩之
73:卵の名無しさん
20/04/29 20:58:02 UsVfFJmV.net
誰もうりゅうの不幸の原因なんて興味あらへんがなw
74:卵の名無しさん
20/04/29 21:00:53 UsVfFJmV.net
「私大医学部は金持ちのバカばかり」伝説はもはや過去の話
「私大医学部は金持ちのバカばかり」伝説はもはや過去の話
「私大医学部は金持ちのバカばかり」伝説はもはや過去の話
URLリンク(ent.smt.docomo.ne.jp)
んなこたーないw
アホばっかやでw
75:卵の名無しさん
20/04/29 21:04:13 UsVfFJmV.net
処女にフェラを仕込むのはさほど難しくないが(N=4)、アホにアホと認識させるのはむつかしい
76:卵の名無しさん
20/04/29 21:06:26 2kI0OgWQ.net
自分の不幸をどうしても他人のせいにしてしまうほど 僕は不幸です
by 浩之
77:卵の名無しさん
20/04/29 21:07:40 2kI0OgWQ.net
自分の不幸をどうしても他人のせいにしてしまうほど 僕は不幸です
by 浩之
78:卵の名無しさん
20/04/29 21:08:58 UsVfFJmV.net
以前はよく「社会勉強」に出かけたが今は無理やねw
嫁はんが厳しいからのう
79:卵の名無しさん
20/04/29 21:11:37 2kI0OgWQ.net
恥ずかしながら 僕はモテないので今まで女性と付き合ったことがありません 女性の前でどう振る舞えばいいのかわからないのです あ、年齢は今50歳台後半です
by 浩之
80:卵の名無しさん
20/04/29 21:23:37.09 d8E8REox.net
>>74
臨床をやっている女医は不細工か不倫しているかのどちらかである。
(エビデンスレベルV、個人の経験 n =21)
81:卵の名無しさん
20/04/29 21:24:18.63 d8E8REox.net
>>77
当直がなくなると、外泊の口実がなくなるからねw
82:卵の名無しさん
20/04/29 21:27:46.27 2kI0OgWQ.net
恥ずかしながら 僕はモテないので今まで女性と付き合ったことがありません 女性の前でどう振る舞えばいいのかわからないのです あ、年齢は今50歳台後半です
by 浩之
83:卵の名無しさん
20/04/29 21:47:44 UsVfFJmV.net
>>79
女医と看護師は地雷原w
ドエライ目に会うぞw
>>80
学会が口実としては最高w
まずバレないw
事前調査をしないと「社会勉強」で地雷を踏むw
84:卵の名無しさん
20/04/29 21:50:31 2kI0OgWQ.net
僕の幸せってなんだろう?僕は今まで何をしてきたのだろうか?失敗してしまった人生
by浩之
85:卵の名無しさん
20/04/29 22:00:21 d8E8REox.net
人種や民族など本人が選択できないことを根拠とする区別は差別の批判を免れないが、
ド底辺シリツ医大進学は本人の選択だよなぁ。
これな!
不朽の名投稿
>>
私は昭和の時代に大学受験したけど、昔は今よりも差別感が凄く、特殊民のための特殊学校というイメージで開業医のバカ息子以外は誰も受験しようとすらしなかった。
常識的に考えて、数千万という法外な金を払って、しかも同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んでド底辺医に行く同級生は一人もいませんでした。
本人には面と向かっては言わないけれど、俺くらいの年代の人間は、おそらくは8-9割はド底辺医卒を今でも「何偉そうなこと抜かしてるんだ、この裏口バカが」と心の底で軽蔑し、嘲笑しているよ。
当の本人に�
86:ヘ面と向かっては絶対にそんなことは言わないけどね。 << 東京医大の事件は裏口入学が現在進行形であること如実にしめした事件だよね。 シリツ医の使命は裏口入学撲滅国民運動の先頭に立つことだよ。 裏口入学の学生を除籍処分にしないかぎり、信頼の回復はないね。つまり、いつまで経ってもシリツ医大卒=裏口バカと汚名は拭えない。シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。 裏口入学医師の免許剥奪を!の国民運動の先頭に立てばよいぞ。 僕も裏口入学とか、言ってたら信頼の回復はない。
87:卵の名無しさん
20/04/29 22:02:02 d8E8REox.net
>>82
学生時代には女子医大の学生には息子が大変お世話になりました。
88:卵の名無しさん
20/04/29 22:04:58.55 UsVfFJmV.net
美人な女医ってたまにいるけどね、いるんだけどさ・・・
トンデモない性癖の持ち主だったな(N=2)
具体的には書かれへんw
89:卵の名無しさん
20/04/29 22:05:20.50 2kI0OgWQ.net
自分の不幸をどうしても他人のせいにしてしまうほど 僕は不幸です
by 浩之
90:卵の名無しさん
20/04/29 22:06:50.69 UsVfFJmV.net
>>85
俺の息子は大変に鍛え�
91:轤黷ワしたw
92:卵の名無しさん
20/04/29 22:07:02.90 d8E8REox.net
人種や民族など本人が選択できないことを根拠とする区別は差別の批判を免れないが、
ド底辺シリツ医大進学は本人の選択だよなぁ。
ド底辺シリツ医大にしか入れない子供だとわかったとき両親はどれだけ悲しんだことだろう。
症例提示
私立医学部医学科karte213 [無断転載禁止]©2ch.net
スレリンク(kouri板:319番)
319 名前:大学への名無しさん[] 投稿日:2016/02/11(木) 22:52:02.21 ID:50TBuVXh0
恥ずかしながら実はうちの親がそうなんです
私立洗顔でした
本人は隠したがっていたけど祖父が公言してたからね
祖父は息子(うちの父親)の学力など知らずに進路指導で当たり前に自分の出身医大(国立)を希望させ父親の担任に無理だと断言されこれが一生で最大の屈辱だったそうです
祖父が何十年もたってるのに死ぬまで祖母をその事で叱りつけてました
お前がしっかり勉強させないからこうなったっとね
自分は教育に失敗したが祖父の口癖
これが私大医学部OBの悲しい現実
これが現実です
93:卵の名無しさん
20/04/29 22:13:06 2kI0OgWQ.net
無理をして多浪してまで医学部に入学したがまさか無職でニートになるとは思わなかった 背伸びしちゃったな 今は医者ではなく患者だもんな
by 浩之
94:卵の名無しさん
20/04/29 22:13:58 UsVfFJmV.net
医者になりたきゃフツーに受験してフツーに合格すればいいんですよ
地方国立ぐらいで十分だからさ
なにも大金費やして「特別受験」する必要はない
log(対数)を10グラムと読んでしまうアホなんか使い物になるわけあらへん
95:卵の名無しさん
20/04/29 22:20:20.85 2kI0OgWQ.net
僕は福井県筑後市瓜生町に住んでいます リアルでの友達が欲しいです
by 浩之
96:卵の名無しさん
20/04/29 22:22:54.71 76qD2zC/.net
>>1
入りたくても入れなかったんだね
真っ赤だよ
97:卵の名無しさん
20/04/29 22:25:20.35 2kI0OgWQ.net
誰かリアルで友達になってくれませんか?
by 浩之
98:卵の名無しさん
20/04/29 22:40:22 2kI0OgWQ.net
もうすぐ還暦が来る 余生は5ちゃんねるで書き込んで遊ぶつもりです 皆さん僕とネットで友達になってくださいね よろしくお願いします
by 浩之
99:卵の名無しさん
20/04/29 23:01:33 2kI0OgWQ.net
お金は精神障害者手帳でなんとかなるかな?チョット不安
by 浩之
100:卵の名無しさん
20/04/30 05:40:33 yBA/Llsz.net
これもシリツの悪寒
誤って10倍量の薬を処方 子供が救急搬送される 院外の薬局が「投与量が多いのでは」と問い合わせるも、間違いに気づかず・尼崎の医者 [水星虫★]
スレリンク(newsplus板)
101:卵の名無しさん
20/04/30 05:43:40.78 yBA/Llsz.net
>>91
数字以前に、手コキ問題にも答が出せないのがド底辺シリツ医。
同僚も上司も裏口だらけなのか、本人が馬鹿すぎて相手にされないんだろう。
102:卵の名無しさん
20/04/30 05:45:17.18 yBA/Llsz.net
Last but not least, three laws of Do-Teihen Medical School, currently called Gachi'Ura by its graduates.
最後にド底辺医大の三法則を掲げましょう。
1: It is not the bottom medical school but its enrollee that is despicable, which deserves to be called a bona fide moron beyond redemption.
ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ。
2: The graduates of Do-Teihen are so ashamed that none of them dare to mention their own alma
103: mater which they have gone through. ド底辺シリツ医大卒は恥ずかしくて、学校名を皆さま言いません。 3: The Do-Teihen graduates are so ashamed of having bought their way into the exclusively bottom-tiered medical school that they tend to call a genuine doctor a charlatan who elucidates their imbecility. ド底辺シリツ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる。 前々スレからのド底辺シリツ医への宿題 若い女性研修医(嘘つきかどうかは不明)から 「あなたのいうことが正しければ手コキかフェラをしてあげる、そうでなければセンズリを命じる」と言われた。 フェラをしてもらうには何と言えばいいか? 答だせないってアホなの? フェラよりセンズリが好きなの?
104:卵の名無しさん
20/04/30 06:13:14.88 yBA/Llsz.net
実情はかかりつけ医が保健所に電話すると病院は紹介される。(保健所は責任回避)
病院はまずCT撮る。肺炎あればPCR検査。なければ帰す。(病院は通達通りで責任回避)
紹介した開業医にはコロナ肺炎あれば結果が保健所から通知あり。
肺炎なけれぱ紹介のガイドラインを書いてある通知が初めの1回目から全部再送られてくる。
よく読めよ、と。
だから誰も悪くないんだよ。
これに似ているなぁ。
ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ。
105:卵の名無しさん
20/04/30 07:38:10 5zG31fqb.net
うりゅうひろゆき先輩、
国家試験のお勉強、
すすんでますか?
何年も勉強してんだから、
そろそろ.ね…
応援してますよ
それはともかく、
全部、
自演ってことは
ないです…
よ、ね、?
なんか、昔からのこと考えたら
やりそうなんで
106:卵の名無しさん
20/04/30 09:18:02 yBA/Llsz.net
>>101
誰だよ、それ?
俺、医科歯科卒だから、神経解剖学の故・萬年 甫教授の飼い猫の名前も覚えているぞ。
絵画も趣味で私の画風はマンネリズムと言って学生を笑わせていたのもいい思い出した。
んで、あんたどこ卒?
107:卵の名無しさん
20/04/30 09:22:41.80 5zG31fqb.net
え?何書いてるの?
重症じゃないのか?、うりゅう先輩!
じゃ
うりゅうさん、テストだよ
100から7ひいたらいくつかな?
それと、
思いつく野菜を5つ、書いてみようか
108:卵の名無しさん
20/04/30 09:24:24 yBA/Llsz.net
内視鏡検査休止(6~10割の賃金補償付き)で纏まった時間がとれるで、ベイズの階層モデルの学習中。
コロナ関連で公表された数値を題材にして遊べて( ・∀・)イイ!!
仮想データではどうも味気ないから。
109:卵の名無しさん
20/04/30 09:38:28 yBA/Llsz.net
前々スレからのド底辺シリツ医への宿題
若い女性研修医(嘘つきかどうかは不明)から
「あなたのいうことが正しければ手コキかフェラをしてあげる、そうでなければセンズリを命じる」と言われた。
フェラをしてもらうには何と言えばいいか?
答だせないってアホなの?
フェラよりセンズリが好きなの?
110:卵の名無しさん
20/04/30 09:39:20 yBA/Llsz.net
>>103
んで、あんたどこ卒?
111:卵の名無しさん
20/04/30 10:20:45 sKMCxhwj.net
もうすぐ還暦が来る 余生は5ちゃんねるで書き込んで遊ぶつもりです 皆さん僕とネットで友達になってくださいね よろしくお願いします
by 浩之
112:卵の名無しさん
20/04/30 10:22:21 sKMCxhwj.net
悪口でもいいですから相手してください 寂しくて寂しくて辛いんです
by 浩之
113:卵の名無しさん
20/04/30 10:56:55 5zG31fqb.net
それより
うりゅう先輩
100から7引くと
いくつかな?
114:卵の名無しさん
20/04/30 11:19:35 sKMCxhwj.net
93です すみません
by 浩之
115:卵の名無しさん
20/04/30 11:22:54 sKMCxhwj.net
特に私立大学医卒の人が順調に医師になっていくのが悔しい 私立医卒の人に負けてしまった 悔しくてたまりません
by 浩之
116:卵の名無しさん
20/04/30 11:39:43.51 5zG31fqb.net
よしよし、いいぞ!うりゅう先輩!
そこから
また
7を引くと?
いくつかな?
117:卵の名無しさん
20/04/30 11:42:48 sKMCxhwj.net
86?ちょっと苦しくなってきました すみません
by 浩之
118:卵の名無しさん
20/04/30 11:55:34 sKMCxhwj.net
特に私立大学医卒の人が順調に医師になっていくのが悔しい 私立医卒の人に負けてしまった 悔しくてたまりません
by 浩之
119:卵の名無しさん
20/04/30 12:05:47 yBA/Llsz.net
>>
検査結果では、一般市民の百四十七人の4・8%にあたる七人が陽性、医療従事者五十五人のうち9・1%の五人が陽性だった。
市民・医療従事者を合計した二百二人全体では5・9
120:%の十二人(男女とも六人)が陽性だった。 << このデータから、一般市民と医療従事者で陽性率に有意差があるかを検定してみよう。 ド底辺シリツ医には無理だろね。 こういう実測データの統計処理は仮想データと違って役立つね。 ド底辺シリツ医が役立たないのは自明だが。
121:卵の名無しさん
20/04/30 12:14:36 sKMCxhwj.net
みんなが順調に医師になっていくのがたまらなく妬ましいし悔しくてたまりません
わかってください
by 浩之
122:卵の名無しさん
20/04/30 12:19:19 5zG31fqb.net
うりゅう先輩、
がんばれ
そこから
また
7を引くと…
いくつかな?
難しいの?
時間かけたらダメですよ
123:卵の名無しさん
20/04/30 12:21:37 sKMCxhwj.net
わからなくなってきましたよ 電卓使っていいですか? すみません
by 浩之
124:卵の名無しさん
20/04/30 12:35:05 yBA/Llsz.net
>>116
誰だよ、それ?
んで、あんたどこ卒?
俺、医科歯科。入学は二期校時代。
125:卵の名無しさん
20/04/30 12:44:13 yBA/Llsz.net
内視鏡バイト先は休診だけど、有給休暇分は10割以後は6割の給与が補償されて( ・∀・)イイ!!
126:卵の名無しさん
20/04/30 12:49:45 yBA/Llsz.net
内視鏡バイト先は休診だけど、有給休暇分は10割以後は6割の給与が補償されて( ・∀・)イイ!!
127:卵の名無しさん
20/04/30 12:50:46 yBA/Llsz.net
ド底辺シリツ医大の面接試験に手コキ問題を出しても正答できない馬鹿だらけなので○×式で試験をすることになった。
15人を面接して40問の問題の正答数が21,17,21,18,22,31,31,34,34,35,35,36,39,36,35
であった。当てずっぽうの正解確率が0.5なので正解率の期待値が0.5以上である受験生を選択したい。
何点以上の受験生を選択すればよいか?
Score = c(21,17,21,18,22,31,31,34,34,35,35,36,39,36,35)
N = length(Score) # number of people : 15
Q = 40 # number of questions : 40
dataList=list(Score=Score,N=N,Q=Q)
modelString='
model{
for(i in 1:N){
z[i] ~ dbern(0.5) # 0:nerd 1:bright
}
nerd <- 0.5
bright ~ dunif(0.5,1) # dbeta(1,1)T(0.5,1)
for(i in 1:N){
theta[i] <- ifelse(z[i]==0,nerd,bright)
Score[i] ~ dbin(theta[i],Q)
}
}
'
writeLines(modelString,'temp.txt')
jagsModel=jags.model('temp.txt',data=dataList,n.chains = 4)
codaSamples=coda.samples(jagsModel,n.iter=1e6,thin=10,
variable.names = c('bright','theta'))
js=as.data.frame(as.matrix(codaSamples))
128:卵の名無しさん
20/04/30 13:00:06 sKMCxhwj.net
とりえだった学力でも私立大学卒の人に負けてしまった もう一度学生からやり直したい
by 浩之
129:卵の名無しさん
20/04/30 13:23:12 sKMCxhwj.net
友達が一人もいないので自分と会話をするしかありません 寂しいです
by 浩之
130:卵の名無しさん
20/04/30 13:24:54 yBA/Llsz.net
"検査結果では、一般市民の百四十七人の4・8%にあたる七人が陽性、
医療従事者五十五人のうち9・1%の五人が陽性だった。
URLリンク(www.tokyo-np.co.jp)
"
131:卵の名無しさん
20/04/30 13:46:12 yBA/Llsz.net
"検査結果では、一般市民の百四十七人の4・8%にあたる七人が陽性、
医療従事者五十五人のうち9・1%の五人が陽性だった。
URLリンク(www.tokyo-np.co.jp)
"
URLリンク(i.imgur.com)
リスク比が1を跨ぐから有意差はないな。
132:卵の名無しさん
20/04/30 13:58:40 yBA/Llsz.net
>>122
視覚化した方がわかりやすいな。
内視鏡バイトが休診で勉強が捗る。
まあ、寝当直病院の方が飲酒しないからいいんだが、
当直室のPCは遅くてstanでのコンパイルには不向き。
133:卵の名無しさん
20/04/30 14:00:19 sKMCxhwj.net
金がないこと 女性にモテないこと 精神病 友達がいないこと 仕事が見つからないこと で苦しんでいます 誰か助けてください
by 浩之
134:卵の名無しさん
20/04/30 14:11:15 yBA/Llsz.net
11 卵の名無しさん 2016/11/03(木) 12:04:35.28 ID:7lSXKLb8
>>9
日本だけじゃないです、アメリカも完全な学歴社会です
アメリカ人上司も、親の執刀医が若くて心配だったから、ググって出身校調べたって
そして日本の場合は、入った大学がある程度の知的能力とどれだけ努力できたかを示してしまうのは事実
医師という職業が、あるレベル以上の知的能力と、一生勉強できる勤勉さが必要なのがわかったからこそ、自分より下だといっぱいいっぱいなんでは?と思うのです
>入った大学がある程度の知的能力とどれだけ努力できたかを示してしまうのは事実
>入った大学がある程度の知的能力とどれだけ努力できたかを示してしまうのは事実
>入った大学がある程度の知的能力とどれだけ努力できたかを示してしまうのは事実
135:卵の名無しさん
20/04/30 17:06:17 5zG31fqb.net
そんなことより
うりゅう先輩
思いつく野菜を5つ言え
あとから
また
質問しますよ
さあ
136:卵の名無しさん
20/04/30 18:20:07 BsMVCTVf.net
はい お答えします
にんじん キュウリ じゃがいも 白菜 タマネギ です
あっていますか?
by 浩之
137:卵の名無しさん
20/04/30 18:23:40 yBA/Llsz.net
# data
pop=c(472,506,534,577,639,627,667,747,855,982,861,778,745,843,899,716,537,369,181,52)
N=(pop[(1:10)%%2==1] + pop[(1:10)%%2==0])*1e4
A=10
plot(N,type='h',bty='l')
Y.sym.DP=c(0,2,25,27,19,28,76,95,27,2)
N.pos.DP=c(1,5,28,34,27,59,177,234,52,2)
Y.sym=c(19,20,256,212,296,334,280,212,114,4)
Y.asy=c(6,12,30,23,32,20,21,19,17,6)
COVID-19 日本国内の潜在的な陽性者数を推定する試み
URLリンク(statmodeling.hatenablog.com)
のデータを更新して実行してみた。
138:卵の名無しさん
20/04/30 18:37:39 yBA/Llsz.net
model {
for (i in 1:A) { # 1:age 0-10 2:age 10-19
n.pos[i] ~ dbinom(p.pos, N[i])
n.sym[i] ~ dbinom(q[i], n.pos[i]) # q[i] : Pr[symptomatic|PCR+]
n.asy[i] <- n.pos[i] - n.sym[i]
Y.sym[i] ~ dbinom(p.obs.sym, n.sym[i])
Y.asy[i] ~ dbinom(p.obs.asy, n.asy[i])
Y.sym.DP[i] ~ dbinom(q[i], N.pos.DP[i])
logit(q[i]) <- q.x[i]
# q[i] <- ilogit(q.x[i])
}
n.pos.sum <- sum(n.pos)
p.pos ~ dbeta(0.5,0.5) # original : dbeta(0.5, 1)
p.obs.sym ~ dbeta(4, 2) # mean 0.667 sd 0.1781742
p.obs.asy ~ dbeta(2, 4) # mean 0.333 sd 0.1781742
q.x[1] ~ dnorm(0, 1e-4) # N(m=0,sd=100)
q.x[2] ~ dnorm(0, 1e-4)
for (j in 3:A) {
q.x[j] ~ dnorm(2*q.x[j-1] - q.x[j-2], tau)
}
tau ~ dt(0,pow(2.5,-2),1)T(0,)
# original : tau = pow(sigma,-2) ; sigma ~ dunif(0,5)
}
139:卵の名無しさん
20/04/30 20:36:08 yBA/Llsz.net
> summary(n.pos.sum) ; HDInterval::hdi(n.pos.sum)[1:2]
Min. 1st Qu. Median Mean 3rd Qu. Max.
3839 5040 5788 16264 7200 392979
lower upper
3839 79969
現時点での推定陽性者数の期待値は16000人という結果が得られた。
140:卵の名無しさん
20/04/30 23:45:34 yBA/Llsz.net
一般人はド底辺シリツ医大生をご存知ないのだろうか?
【速報】#安倍晋三内閣総理大臣 「だって…こ、これに書いて、これに、これに、これに書いてないじゃないですか!?」 ★6 [1号★]
スレリンク(newsplus板:988番)
988 名前:不要不急の名無しさん[] 投稿日:2020/04/30(木) 21:47:38.22 ID:tHduSa9z0
安倍は正直そこらの大学生より遥かにアホなんだから安倍に質問するとか無駄なことをやめろよ
まともな奴が官僚に直接質問する場にしろ
141:卵の名無しさん
20/04/30 23:55:43 yBA/Llsz.net
オツムの程度は
森ゆうこ>>>> 越えられない壁 >>>安倍 >>> ド底辺シリツ医
142:卵の名無しさん
20/05/01 00:04:13.61 Kyen7ls0.net
1 名前:赤紙が来た :2020/04/26(日) 14:06:53.09 ID:sCYq+H5P
【訓示】
現在、激烈極まる対新型コロナ戦の真っただ中に在る事は諸君らも知る通りである!
しかし、国民の健康を防衛するための医師の絶対数が不足しておる!
特に、発熱センターで検体採取など雑務をこなし、最前線で働く医師が不足しておる!
そこで、この度わが国民医療防衛隊では、最前線に赴く医師の志願を広く求める事となった!
皆存分に「発熱センターへの出務を希望する」に〇を付け提出して頂きたい!
我々医師会上層部と国民は諸君ら開業医にも期待しておる!
余談だが、健康の保証はできない、感染時の補償も不明、その後の保険についても不透明である!
異常!
143:卵の名無しさん
20/05/01 00:04:21.49 Kyen7ls0.net
【新型コロナ】「赤紙」報告本部【召集令状】
スレリンク(hosp板)
144:卵の名無しさん
20/05/01 00:07:37.17 8qgl7OUN.net
>>137
ド底辺シリツ医を徴用すべき。
但し、頭脳労働に従事させてはならない。喀痰吸引とか体位変換要員でいい。
算数の掛け算すら怪しいのがシリツ医がこういう事故を起こす。
URLリンク(i.imgur.com)
145:卵の名無しさん
20/05/01 00:55:49 8qgl7OUN.net
上級国民の中から安倍よりアホを探した結果だという。
ガイジじゃね?
URLリンク(i.imgur.com)
146:卵の名無しさん
20/05/01 06:17:59 8qgl7OUN.net
ド底辺シリツ医を徴用すべき。
但し、頭脳労働に従事させてはならない。
喀痰吸引とか体位変換要員でいい。
算数の掛け算すら怪しいシリツ医がこういう事故を起こす。
://i.imgur.com/ArPaux9.png
147:卵の名無しさん
20/05/01 07:03:13 CZHP8Isk.net
専門医自慢のウチの私立卒医の会話。
「全盲なのに眼振が出てる患者がいるんだけど何故なんだろう?」
148:卵の名無しさん
20/05/01 07:36:41.08 +wUS+V3T.net
うりゅうひろゆき先輩!
寝ないで何してんですか?!
俳諧したら、
うりゅうウイルスを
撒き散らかしますよ!
うりゅうひろゆき先輩、
もう
還暦すぎてんだから!
そんだけ、元気なら、
じゃあ、そんな事より
画用紙に、クレヨンで
時計の絵を描けるかな?
針は
10時10分
描いてみようか?
149:卵の名無しさん
20/05/01 09:38:49.05 SbkKsqx+.net
恥ずかしながら 僕はモテないので今まで女性と付き合ったことがありません 女性の前でどう振る舞えばいいのかわからないのです あ、年齢は今50歳台後半です 友達が一人もいないので自分と会話をするしかありません 寂しいです
by 浩之
150:卵の名無しさん
20/05/01 10:49:26.98 +wUS+V3T.net
うりゅう先輩、
そんなことどうでもいいよ
画用紙用意しなさいよ
時計のお絵かきしなさい
151:卵の名無しさん
20/05/01 11:36:55 SbkKsqx+.net
みんなが順調に医師になっていくのがたまらなく妬ましいし悔しくてたまりません
わかってください
by 浩之
152:卵の名無しさん
20/05/01 12:19:26 8qgl7OUN.net
A B C D E F G H I J K L M N O P Q R S T
P1 1 1 1 1 0 0 1 1 0 1 0 0 NA 0 0 1 0 1 0 0
P2 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
P3 0 0 1 0 0 0 1 1 0 0 0 0 1 0 0 0 0 0 0 0
P4 0 0 0 0 0 0 1 0 1 1 0 0 0 0 0 0 0 0 0 0
P5 1 0 1 1 0 1 1 1 0 1 0 0 1 0 0 0 0 1 0 0
P6 1 1 0 1 0 0 0 1 0 1 0 1 1 0 0 1 0 1 0 0
P7 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0
P8 0 0 0 0 NA 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
P9 0 1 1 0 0 0 0 1 0 1 0 0 1 0 0 0 0 1 0 1
P10 1 0 0 0 0 0 1 0 0 1 0 0 1 0 0 0 0 NA 0 0
の欠測データが1である確率とその95%信頼区間を求めよ。
153:卵の名無しさん
20/05/01 12:22:06 8qgl7OUN.net
model{
for(i in 1:np){
for(j in 1:nq){
k[i,j] ~ dbern(theta[i,j])
theta[i,j]=p[i]*q[j]
}
}
# prior
for(i in 1:np){
p[i] ~ dbeta(0.5,0.5)
}
for(j in 1:nq){
q[j] ~ dbeta(0.5,0.5)
}
# posterior
for(i in 1:np){
for(j in 1:nq){
predK[i,j] <- p[i]*q[j]
}
}
}
154:卵の名無しさん
20/05/01 12:31:32 8qgl7OUN.net
周辺尤度を出して
URLリンク(i.imgur.com)
URLリンク(i.imgur.com)
これから求めた結果はこうなるな。
URLリンク(i.imgur.com)
点推定での解説
The inferred probability for M-1 being
correct is approximately 0.74. For item-person combination E-8 the reverse holds.
The item is difficult and the participant is inattentive. Consequently, the inferred
probability for E-8 being correct is approximately 0.01. Finally, combination R-10
is middle-of-the-road on both dimensions, and the inferred probability for it being
correct is 0.41.
These inferred probabilities are directly related to the knowledge about
each participant and item. In fact, if you multiply the estimated p’s and q’s
you can recover the inferred probabilities. For instance, p[1] is approximately
0.88, and q[13] (the M) is approximately 0.84. The multiplication of these
probabilities yields .74. The same calculations may be performed for the other
missing item-participant calculations.
155:卵の名無しさん
20/05/01 12:33:29 8qgl7OUN.net
次にこれを実装
The definition of the accuracy for a person on a question in terms
of the product ij = piqj is very simple to understand, but other models
of the interaction between person ability and question difficulty are used in
psychometric models. For example, the Rasch model (e.g., Andrich, 1988)
uses ij = exp (pi ? qj) / (1 + exp (pi ? qj)). Change the graphical model to
implement the Rasch model.
156:卵の名無しさん
20/05/01 12:51:50 8qgl7OUN.net
>>150
モデルを変えると随分と分布が変化するなぁ。
157:https://i.imgur.com/EajssHe.png まあ、ド底辺シリツ医はどこでもドアホのままだが。 ニュー速+などで、医師をコロナ診療に徴用せよという一般人からの意見が多いので 俺は、こういうレスをつけている。 裏口容疑者のド底辺シリツ医を徴用すべき。 但し、頭脳労働に従事させてはならない。 喀痰吸引とか体位変換要員でいい。 算数の掛け算すら怪しいシリツ医がこういう事故を起こす。 ://i.imgur.com/ArPaux9.png
158:卵の名無しさん
20/05/01 14:52:30 SbkKsqx+.net
特に私立大学医卒の人が順調に医師になっていくのが悔しい 私立医卒の人に負けてしまった 悔しくてたまりません
by 浩之
159:卵の名無しさん
20/05/01 14:55:12 8qgl7OUN.net
医師8(P1-P8)人に8問の問題(A-H)を解いてもらった。
問題は医学領域の問題と裏口関連の問題である。
国立医と裏口シリツ医がいるとする。
国立医は医学領域問題への正解率は高いが裏口関連の問題には正解率が低い。
裏口シリツ医は医学領域の問題の正解率は低いが裏口関連の問題には正解率が高い。
以下が成績である。P1は裏口シリツ医でAは裏口関連問題であることが判明している。
A B C D E F G H
P1 1 0 0 1 1 0 0 1
P2 1 0 0 1 1 0 0 1
P3 0 1 1 0 0 1 0 0
P4 0 1 1 0 0 1 1 0
P5 1 0 0 1 1 0 0 1
P6 0 0 0 1 1 0 0 1
P7 0 1 0 0 0 1 1 0
P8 0 1 1 1 0 1 1 0
P1の他に裏口シリツ医は誰か、Aの他に裏口関連問題はどれかを答えよ。
160:卵の名無しさん
20/05/01 15:05:48 cT4SBQOo.net
いよっ 自称医科歯科卒の偽医者さん まだお仕事は見つかりませんか?
161:卵の名無しさん
20/05/01 15:54:03.44 SbkKsqx+.net
僕は福井県筑後市瓜生町に住んでいます リアルでの友達が欲しいです
by 浩之
162:卵の名無しさん
20/05/01 16:39:46 8qgl7OUN.net
>>101
誰だよ、それ?
俺、医科歯科卒だから、神経解剖学の故・萬年 甫教授の飼い猫の名前も覚えているぞ。
絵画も趣味で私の画風はマンネリズムと言って学生を笑わせていたのもいい思い出した。
んで、あんたどこ卒?
163:卵の名無しさん
20/05/01 17:01:32 cT4SBQOo.net
俺、医科歯科卒だから、神経解剖学の故・萬年 甫教授の飼い猫の名前も覚えているぞ。
絵画も趣味で私の画風はマンネリズムと言って学生を笑わせていたのもいい思い出した。
w
164:卵の名無しさん
20/05/01 17:21:08 SbkKsqx+.net
もうすぐ還暦が来る 余生は5ちゃんねるで書き込んで遊ぶつもりです 皆さん僕とネットで友達になってくださいね よろしくお願いします 恥ずかしいですが国試合格できなくて 医師にはなれなかったですけど
by 浩之
165:卵の名無しさん
20/05/01 18:05:51 +wUS+V3T.net
うりゅうひろゆき先輩、
またおかしなこと書き出したな
いつも同じ、ネコを解剖したが
教授がどうとか、
てかどうでもいいよ、そんな話
そんなことより、
うりゅうさん、
昨日、聞いた野菜、
なにを言ったか、思い出してみようよ
順番にね
焦んないで、
ゆっくりでもいいからね
自分で言ったんだよ?
できるよね?
166:卵の名無しさん
20/05/01 18:09:56.57 SbkKsqx+.net
すみません
じゃがいも にんじん キャベツ タマネギ 白菜
ではなかったでしょうか?チョット違うような気もしますが、、
by 浩之
167:卵の名無しさん
20/05/01 19:17:48 8qgl7OUN.net
しかし、医科歯科卒と教えたら発狂するみたいだな。
何人(なにじん)ですかと聞かれたら、俺は普通に日本人です と答えられる。
べつに自慢でもなんでもなくて、日常会話のレベル。
168:卵の名無しさん
20/05/01 21:48:38 5qOfMqMz.net
臨床医やってる時点で負け犬のような気が・・・・・
169:卵の名無しさん
20/05/01 22:39:35.95 8qgl7OUN.net
Alzheimer’s recall test cheating
Ifthe focus is purelyon prediction, other statistical approaches, including especially ones that combinethe best aspects of generative and discriminative modeling, may be superior (e.g.,Lasserre, Bishop, & Minka, 2006).
The advantage of the generative model is in providing details about the underly-ing processes assumed to produce the data, particularly by quantifying uncertainty.
170:卵の名無しさん
20/05/01 22:40:24.80 8qgl7OUN.net
>>162
接客業は賎業。
とりわけド底辺シリツ医はナマポからも蔑まれる。
171:卵の名無しさん
20/05/01 22:43:10.63 8qgl7OUN.net
アルツハイマー患者の再生テストのいかさま というモデルを学習中。
model{
phi ~ dbeta(5,5) # non-informative prior for grouping
for(i in 1:np){
grp[i] ~ dbern(phi) # 0:bona fide 1:cheating
score[i] ~ dbin(theta[i],nq)
thetatmp[i] ~ dbeta(alpha[grp[i]+1],beta[grp[i]+1])
theta[i] <- max(0.01, min(0.99,thetatmp[i])) # theta [0.01-0.99]
}
alpha[1] <- mubon*lambdabon # a/(a+b) * (a+b) == a
beta[1] <- (1-mubon)*lambdabon # (1-a/(a+b)) * (a+b) == b
logit(muche) <- logit(mubon) + mudiff # cheating uses more words
alpha[2] <- muche*lambdache # muche : mean of cheating
beta[2] <- (1-muche)*lambdache # lambdache : lambda for cheating
mubon ~ dbeta(1,1)
mudiff ~ dnorm(0,0.5)T(0,)
lambdabon ~ dunif(5,40)
lambdache ~ dunif(5,40)
for(i in 1:np){
pct[i] <- ifelse(grp[i]==truth[i],1,0)
}
pc <- sum(pct)
}
172:卵の名無しさん
20/05/02 07:34:03 Vtl57Gih.net
ここ最近
明らかにうりゅうひろゆき先輩以外の奴が入ってきて
先輩がやり込められているな
誰かも書いていたが、
やはりこのスレの前半は
全部同じオッサン、つまり、うりゅうひろゆき先輩が
全部自演してたことが判明した
173:卵の名無しさん
20/05/02 07:39:26 g7F3mh/M.net
par(cex.main = 1.5, mar = c(5, 6, 4, 5) + 0.1, mgp = c(3.5, 1, 0), cex.lab = 1.5,
font.lab = 2, cex.axis = 1.3, bty = "n", las=1)
plot(score,summary(samples)$summary[paste("grp[", 1:np, "]", sep=""), 'mean'], ylim=c(0,1),
xlim=c(0,nq), lwd=2, pch=4, xlab= "Number of Items Recalled Correctly",
ylab="Cheater Classification")
summaryで表示されたmeanを使ってグラフ化かぁ。
ms=rstan::extract(samples)
mean.grp=apply(ms$grp,1,mean)
plot(score,mean.grp)
とやっていたけど、1行で済むなぁ。可読性は悪いが。
他人のコードを読むのは勉強になる。
内視鏡休診でまとまった時間がとれるので統計モデルの勉強中.
寝当直勤務の方が飲酒しないから捗るんだがメモリ4G corei3なので処理の待ち時間で思考が中断されるのが難点。
174:卵の名無しさん
20/05/02 07:43:19.79 g7F3mh/M.net
ド底辺シリツ医ってコロナ待機で纏まった時間がとれるのに勉強に充てないんだなぁ。
やっぱりセンズリ専従医みたいだね。
宿題しないと安倍晋三みたいなアホになるぞいないの?
フェラよりセンズリが好きなの?
前々スレからのド底辺シリツ医への宿題
若い女性研修医(嘘つきかどうかは不明)から
「あなたのいうことが正しければ手コキかフェラをしてあげる、そうでなければセンズリを命じる」と言われた。
フェラをしてもらうには何と言えばいいか?
答だせないってアホなの?
フェラよりセンズリが好きなの?
助言してくれる友人も上司もいないの?
みんな裏口シリツ医?
んで、あんたどこ卒?
175:卵の名無しさん
20/05/02 08:59:52 Vtl57Gih.net
うりゅうひろゆき先輩の
ますます重症だな
治癒効果が見られんなぁ
またおなはしもどすけど
質問しますよ
100から7ひいたら、
いくつかな?
176:卵の名無しさん
20/05/02 09:08:57 g7F3mh/M.net
rm(list=ls())
library(rstan)
Sys.setenv(LOCAL_CPPFLAGS = '-march=corei7 -mtune=corei7')
rstan_options(auto_write = TRUE)
options(mc.cores = parallel::detectCores())
options(scipen = 5)
model = "
// Cheating Latent Mixture Model
data {
int<lower=1> nq; // number of questions
int<lower=1> np; // number of people
int<lower=1,upper=nq> score[np];
int<lower=0,upper=1> truth[np]; // 1:cheating 0:bona fide
}
parameters {
real<lower=0,upper=1> phi; // grouping probability ~ bernoulli[phi]
real<lower=0,upper=1> mubon; // mean of bona fide
real<lower=0> mudiff; // == logit(muche) - logit(mubon)
real<lower=5,upper=50> lambdabon; // shape1+shape1 in beta distuributui
real<lower=5,upper=50> lambdache; // bon : bona fide, che : cheating
vector<lower=0,upper=1>[np] theta; // ~ dbeta(nq,theta)
}
177:卵の名無しさん
20/05/02 09:09:17 g7F3mh/M.net
transformed parameters {
vector[2] loglik[np]; // log-likelihood
vector<lower=0>[2] alpha; // shape1 parameter
vector<lower=0>[2] beta; // shape2 parameter
real<lower=0,upper=1> muche; // mean of cheating score
// Additivity on Logit Scale
//muche = inv_logit(logit(mubon) + mudiff); // mudiff = logit(muche) - logit(mubon)
muche = exp(logit(mubon) + mudiff)/(1 + exp(logit(mubon) + mudiff));
// Transformation to Group Mean and Precision
alpha[1] = mubon * lambdabon;
beta[1] = lambdabon * (1 - mubon);
alpha[2] = muche * lambdache;
beta[2] = lambdache * (1 - muche);
// Data are Binomial with Rate Given by
// Each Person's Group Assignment
for (i in 1:np) { // log1m(x)==log(1-x)
loglik[i,1] = log(1-phi) + beta_lpdf(theta[i] | alpha[1], beta[1]);
loglik[i,2] = log(phi) + beta_lpdf(theta[i] | alpha[2], beta[2]);
}
}
178:卵の名無しさん
20/05/02 09:09:38 g7F3mh/M.net
model {
// Priors
mubon ~ beta(1, 1); // can be removed
mudiff ~ normal(0, 1 / sqrt(.5))T[0,]; // Constrained to be Positive
// Relatively Uninformative Prior on Base Rate
phi ~ beta(5, 5);
for (i in 1:np)
target += log_sum_exp(loglik[i]);
// increment_log_prob(log_sum_exp(loglik[i]));
score ~ binomial(nq, theta);
}
generated quantities {
int<lower=0,upper=1> grp[np];
real pc;
vector[np] pct;
for (i in 1:np) {
vector[2] prob;
prob = softmax(loglik[i]);
// Each Person Belongs to One of Two Latent Groups
grp[i] = bernoulli_rng(prob[2]);
// Correct Count
pct[i] = (grp[i]==truth[i])? 1:0 ;
}
pc = sum(pct);
}"
179:卵の名無しさん
20/05/02 09:22:11 KQM5IrnO.net
川崎卒はダメ
180:卵の名無しさん
20/05/02 09:38:15.66 g7F3mh/M.net
stanは変数宣言も面倒、まあ、これはCで慣れているけど
離散量のMCMCに対数尤度を書くのは面倒。
, が|だったり、_rngを付加とか、
そのうち deprecated とかのメッセージで新形式に更新しろと、手間がかかる。
整数を推測するにはJAGSの方がいい。
まあ、WINBUGの文法を踏襲しているから、
181:卵の名無しさん
20/05/02 09:40:45.74 g7F3mh/M.net
>>173
川崎は学生の不祥事は多いが医者の不祥事は少ない印象。
このスレのド底辺シリツ医は聖魔か藤田だと思う。
182:卵の名無しさん
20/05/02 10:21:58.57 g7F3mh/M.net
>>169
もっと、賢げな問題にしたらどう?
こういうのとか、7の100乗の末尾10桁の数字を答えよ。
センズリ専従医じゃ無理なのか?
助言してくれる友達もいないの??
んで、あんたどこ卒?
183:卵の名無しさん
20/05/02 10:36:38 g7F3mh/M.net
ここで無料で読める分は読破してしまった。
URLリンク(bayesmodels.com)
緊急事態宣言は延長されるみたいだし、Kindle版があるみたいだから買うかな。
本文は斜め読みして、プログラムコードを読む方が速いし、電子図書の方が入力が楽。
まあ、サポートの終了したWINBUGのコードだから、JAGSやstanに移植するのがプログラムの勉強にもなる。
まとまった時間が取れそうだから丁度いいな。
内視鏡をしばらく触ってないと間隔が鈍りそう。
ド底辺シリツ医は毎日センズリらしいが。
184:卵の名無しさん
20/05/02 11:43:15 g7F3mh/M.net
The marginal likelihood is computed by averaging the likelihood across the parameter
space, with prior probabilities acting as averaging weights. Thus, in order
to determine how well a model predicted the data, we need to take into account all
predictions that the model made and weight these by their prior probability. We
can restate this mathematically by saying that the marginal likelihood is obtained
by averaging out the model parameters in accordance with the law of total probability.
p (D | M1) =∫p (D | θ,M1) p (θ | M1) dθ.
185:卵の名無しさん
20/05/02 11:44:46 Vtl57Gih.net
うりゅうひろゆき先輩
次のお仕事
画用紙を用意しなさい
お絵かきの
時間ですよ
時計の絵を描けるかな
そして
針は
10時10分
かけるかな?
186:卵の名無しさん
20/05/02 11:47:05 g7F3mh/M.net
posterior =
p (θ | D,M1) = p (D | θ,M1) p (θ | M1) / p(D | M1)
The marginal likelihood p(D | M1) is a single number that is sometimes called the
evidence. It indicates the probability of the observed data D in light of the model
specification M1. One interpretation is that the marginal likelihood measures the
average quality of the predictions that a model has made for the observed data.
The better the predictions, the greater the evidence.
187:卵の名無しさん
20/05/02 12:41:16 rQU9M6rd.net
緊急事態宣言が延長になったら、内視鏡バイトも休診だけど給与は6~10割は給付される。
これまでの実績がこういうとこで活きてくるなぁ。
ここのド底辺シリツ医は解雇されんじゃないかな?
188:卵の名無しさん
20/05/02 13:16:01 pjhpQS28.net
>>175
提供卒は意外にまとも
189:卵の名無しさん
20/05/02 13:17:10 rQU9M6rd.net
こういう投稿があったから、
>地方住まいの開業医たちを 応援に来させたいのかもしれんね
このレスを貼ってきた。
ド底辺シリツ医を徴用すべき。
但し、頭脳労働に従事させてはならない。喀痰吸引とか体位変換要員でいい。
算数の掛け算すら怪しいのがシリツ医がこういう事故を起こす。
URLリンク(i.imgur.com)
190:卵の名無しさん
20/05/02 13:19:57 rQU9M6rd.net
>>182
このスレのド底辺シリツ医は聖魔か藤田じゃないかな?
あんまり、ド底辺シリツ医と仕事をする機会がなかったから判断材料に乏しい。
まあ、理一に受かるような頭脳をもったシリツ医は思いつかん。
191:卵の名無しさん
20/05/02 13:38:46 zZUIY74d.net
医師のふりぐらいさせてくださいよ 医師になるのが夢だったんですから お願いします
by 浩之
192:卵の名無しさん
20/05/02 13:42:11.07 g7F3mh/M.net
副院長の息子が医科歯科の後輩というのもプラスに作用したなぁ。
193:卵の名無しさん
20/05/02 13:45:54.45 zZUIY74d.net
英語を書いたり 統計を書いたりするのは 少しでも医師らしく また 頭が良い雰囲気を出すためなんです 実際の僕は 国試に合格できなくて医師になれなかった馬鹿ものです ほんとうにごめんなさい 本当の僕は無職でニートの社会的底辺です
by 浩之
194:卵の名無しさん
20/05/02 14:19:31 g7F3mh/M.net
しかし、ド底辺シリツ医って医科歯科卒と教えたら発狂するみたいだな。
何人(なにじん)ですかと聞かれたら、俺は普通に日本人です と答えられるだろ。
べつに自慢でもなんでもなくて、日常会話のレベル。
195:卵の名無しさん
20/05/02 14:43:05.08 eHWHjJGz.net
しかし、ド底辺シリツ医って医科歯科卒と教えたら発狂するみたいだな。
w
196:卵の名無しさん
20/05/02 14:53:18.17 g7F3mh/M.net
恐れていたことが現実になったな。
【埼玉】骨折で手術の女性死亡、院内感染か クラスター発生とみられる病院に入院 [ばーど★]
スレリンク(newsplus板:1番)
197:卵の名無しさん
20/05/02 14:54:54.09 g7F3mh/M.net
COVID-19時代に必要な三原則
(1)女をみたら妊娠と思え。
(2)患者をみたらコロナと思え。
(3)シリツ医をみたら裏口医と思え。
198:卵の名無しさん
20/05/02 14:57:29.09 g7F3mh/M.net
裏口シリツ医をCOVID-19の診療にあたらせればいい。
但し、頭脳労働に従事させてはならない。喀痰吸引とか体位変換要員でいい。
算数の掛け算すら怪しいのがシリツ医がこういう事故を起こす。
URLリンク(i.imgur.com)
馬鹿を医師から淘汰するのに丁度いいと思う。
199:卵の名無しさん
20/05/02 15:06:46 zZUIY74d.net
医師になれた人が羨ましい 僕ももう少し頭がよければなー 叶わぬ夢だった
by 浩之
200:卵の名無しさん
20/05/02 15:13:06 eHWHjJGz.net
俺、医科歯科卒だから、神経解剖学の故・萬年 甫教授の飼い猫の名前も覚えているぞ。
絵画も趣味で私の画風はマンネリズムと言って学生を笑わせていたのもいい思い出した。
w
201:卵の名無しさん
20/05/02 15:17:00 g7F3mh/M.net
>>194
萬年先生は絵が上手だったね。
医科歯科の卒業生なら知っているよ。
毎年、同じ冗談を言っていたから先輩から伝わっていて、
さあ出るぞと学生も身構
202:えて笑っていたな。 でたー、て感じで。
203:卵の名無しさん
20/05/02 15:23:03 zZUIY74d.net
俺、医科歯科卒だから、神経解剖学の故・萬年 甫教授の飼い猫の名前も覚えているぞ。
絵画も趣味で私の画風はマンネリズムと言って学生を笑わせていたのもいい思い出した。
w
204:卵の名無しさん
20/05/02 15:25:16 zZUIY74d.net
リアルでは誰も相手をしてくれません 匿名のネットでは誰かが相手をしてくれるので嬉しいです
by 浩之
205:卵の名無しさん
20/05/02 15:38:30 x44Z1FH4.net
うりゅうひろゆき
先輩
症状酷くなってないか?
妙なこと書いていないで
時計のお絵かき
しなさいよ
それで、
画用紙、
買ってきた?
206:卵の名無しさん
20/05/02 15:49:09 zZUIY74d.net
いえ まだ買ってきていません すみません 金がないんです
by 浩之
207:卵の名無しさん
20/05/02 16:08:50 g7F3mh/M.net
■ 神奈川県 3人死亡 新たに15人感染 計1038人に 新型コロナ
5月1日 18時48分
横浜市は5月1日、新型コロナウイルスへの集団感染が起きている医療機関で感染したとみられる70代と80代の男女合わせて3人が死亡したと発表しました。
また、神奈川県内では合わせて男女15人がウイルスに新たに感染したことが確認されたと発表されました。
横浜市によりますと、死亡したのは80代の男性2人と70代の女性の合わせて3人で、4月28日から29日にかけて、新型コロナウイルスによる肺炎で死亡したということです。
3人は、いずれも旭区にある「聖マリアンナ医科大学 横浜市西部病院」に、別の病気で入院していましたが、病院内で感染したとみられるということです。
また横浜市は、この病院に勤める女性の看護師3人や小学生の女児を含む合わせて男女7人の感染が、新たに確認されたと発表しました。
さらに神奈川県は、小田原市や湯河原町などに住む30代から90代以上の男女4人の感染が確認されたと発表し、川崎市は入院患者の感染が相次いでいる川崎協同病院の入院患者を含む男女3人の新たな感染が確認されたと発表しました。
そして、茅ヶ崎市も市内に住む50代の小売店従業員の女性1人の感染確認を発表しました。
5月1日、神奈川県内ではこれまでに合わせて15人の感染の確認が発表されたことになります。
NHKのまとめでは、神奈川県内で発表された感染者は、これで1038人となり、このうち37人が死亡しています。
208:卵の名無しさん
20/05/02 16:10:45 g7F3mh/M.net
>>200
ド底辺シリツ医は玉よけにも使えんのか?
やっぱりセンズリ専従じゃないかよ。
209:卵の名無しさん
20/05/02 16:36:36.76 g7F3mh/M.net
Holmes and Watson are involved in a rather simple game of darts,
in which, with each dart, the player tries to score as many points as possible.
The maximum score per dart is 60, and the minimum score is 0 (when the
dart lands outside the board). After 5 darts, Holmes scored {38, 10, 0, 0,
0} and Watson scored {20,20,20,18,16}.
How do you determine who is the
better player? Consider another game of darts, but now one of the players
gets to throw 50 times instead of 5. Explain how this scenario shows the
importance of averaging instead of maximizing in order to penalize complexity.
210:卵の名無しさん
20/05/02 16:37:45.54 x/thdx7j.net
こちら、埼玉医大ですが何か?
w
211:卵の名無しさん
20/05/02 17:26:54 g7F3mh/M.net
>>
東京女子医大病院は4月6日付で、外勤中止を求める文書を医師に配布した。
大学病院で感染者を受け入れる日大は4月10日、外勤中止を派遣先に告知。
順天堂大や帝京大は「状況に応じ(中止を)検討する」とした。
<<
さっさと、外勤禁止をしないと院内感染が拡大する一途だと思う。
発症2日前に感染させている確率が一番高いという統計解析がでているのだから。
ド底辺シリツ医は
裏口シリツ医をCOVID-19の診療にあたらせればいい。
但し、頭脳労働に従事させてはならない。喀痰吸引とか体位変換要員でいい。
算数の掛け算すら怪しいのがシリツ医がこういう事故を起こす。
://i.imgur.com/ArPaux9.png
馬鹿を医師から淘汰するのに丁度いいと思う。
212:卵の名無しさん
20/05/02 17:33:34 g7F3mh/M.net
>>203
埼玉医大卒なら、手コキ問題を解けるはずもないだろ。
即答して俺の認識を変えさせてみてくれ。
213:卵の名無しさん
20/05/02 17:56:47.06 x44Z1FH4.net
うりゅうひろゆき先輩
時計のお絵かきだよ
画用紙用意しなさい
10時10分の絵を描く事
214:卵の名無しさん
20/05/02 17:59:08 x44Z1FH4.net
ココは
うりゅうひろゆきの
負のオーラしか
ないな
コロナ騒動の
相乗効果で
なんか
きもち
悪い
笑
215:卵の名無しさん
20/05/02 21:01:21 g7F3mh/M.net
インバウンド、爆買い、民泊、アベノミクスの悪政の逆回転が始まっただけ。日本は中華支配から逃れることができる。まさにコロナは神風。
216:卵の名無しさん
20/05/02 22:22:58 UMPCjcX9.net
休みだ~
217:卵の名無しさん
20/05/02 22:39:40 UMPCjcX9.net
萬年先生は絵が上手だったね。
医科歯科の卒業生なら知っているよ。
毎年、同じ冗談を言っていたから先輩から伝わっていて、
さあ出るぞと学生も身構えて笑っていたな。
でたー、て感じで。
w w w
218:卵の名無しさん
20/05/02 22:51:15 UMPCjcX9.net
ちょこっと 恥ずかしいね
w
219:卵の名無しさん
20/05/02 22:57:35.68 x44Z1FH4.net
ココ覗いてたら、
うりゅうひろゆき先輩の
国試浪人が
うつりそうで
ホンマに
ヤダな
せっかくの
ツキが
どんどん
なくなりそう
です
わ
マジです
よ
いや、
ほんと
220:卵の名無しさん
20/05/02 23:04:23.55 UMPCjcX9.net
すみません すみません リアルでは誰も相手をしてくれません 匿名のネットでは誰かが相手をしてくれるので嬉しいです
by 浩之
221:卵の名無しさん
20/05/02 23:09:49.70 UMPCjcX9.net
萬年先生は絵が上手だったね。
医科歯科の卒業生なら知っているよ。
毎年、同じ冗談を言っていたから先輩から伝わっていて、
さあ出るぞと学生も身構えて笑っていたな。
でたー、て感じで。
強烈ですね ちょこっと 寒気がします
by 浩之
222:卵の名無しさん
20/05/03 05:43:31 mtDC08g3.net
しばらく内視鏡を握ってないなぁ。
ここのド底辺シリツ医って首になったんだろうな。
223:卵の名無しさん
20/05/03 05:43:45 mtDC08g3.net
厚労省・専門家会議がPCR検査絞るように指示を出す
↓
ほとんどの自治体が指示を守って検査絞る
↓
一部の自治体の首長が検査しっかりするように指示、その自治体だけ検査しっかりする
↓
検査しっかりするように指示する首長が増えてくる
自民系保守政治家の場合、政府の指示守って検査数増やさないことが多い気がする
ただし和歌山県とかは自民系知事なのに検査しっかりしてる
地方で車社会なら、検査絞っても勝手に終息するが、
地方でも電車があって繁華街が発展してるところは、
勝手に終息せずに、検査絞ったところで感染拡大していく
224:卵の名無しさん
20/05/03 06:31:52 mtDC08g3.net
国難から日本を守ったの北条時宗と菅直人。
国難を春節中国人ウェルカムで招いたのが安倍。
原発の冷却電源喪失は起こらないという神話を政府の公式見解にしたのも安倍。
225:卵の名無しさん
20/05/03 06:44:37 dCKGqV14.net
熊大医学部卒の高木化け物不細工日本で一番ブス化け物不細工ドブス超絶不細工女医よりマシ
226:卵の名無しさん
20/05/03 07:47:47 OLC15ckd.net
ここで盛んに書き込まれてる、うりゅうひろゆきとかいう人、有名人なの?
227:卵の名無しさん
20/05/03 09:31:30 ZdWddvN0.net
>>205
やはり、ド底辺シリツ医には手コキ問題は答えられず。
ここに書いているド底辺シリツ医ってすでに首になってんじゃないかなぁ?
いくらなんでもカンフェレンス参加者に答を教えてもらえるだろうと思う。シリツ医大でも教員は国立卒のことがおおいし。
帝京は東大卒が多いね。
228:卵の名無しさん
20/05/03 09:38:37 ZdWddvN0.net
>>219
ド底辺シリツ医の脳内仮想人物じゃないの?
なんのソースも出してないし。
229:卵の名無しさん
20/05/03 10:10:41 7GSfpo7Y.net
啓発活動建設的提案を投稿してきた。
230:卵の名無しさん
20/05/03 10:10:55 7GSfpo7Y.net
これ!
スレリンク(newsplus板:867番)
231:卵の名無しさん
20/05/03 10:50:08 ZdWddvN0.net
(2) 要請を受けていなくても、休業手当について60%を超えて支給する場合には、その部分に係る助成率を100%にする
こととしました。
この制度のおかげで今月は不労所得になりそうだが、内視鏡できないのはつまらんな。
232:卵の名無しさん
20/05/03 11:04:57 ZdWddvN0.net
アビガン希望者に投与できるようにするだけで経済は回り、自殺者も待機死者もなくなる。
それをしないのは改憲、戦争へ持っていきたいから。アメリカ・ディープステートは米中戦争を望んでいる。あべはディーステートの子分。
改憲して自衛隊をアメリカに売り渡すつもり。
種苗法も改悪して、日本人から自給自足も奪おうとしている。
あべに賛同してるのは先祖が半島系や戦後密入国してきた者。
マスコミ、政界、経済界に多く進出している。
233:卵の名無しさん
20/05/03 11:41:08 Rke/Lq2H.net
もうすぐ還暦が来る 余生は5ちゃんねるで書き込んで遊ぶつもりです 皆さん僕とネットで友達になってくださいね よろしくお願いします
by 浩之
234:卵の名無しさん
20/05/03 11:48:05 Rke/Lq2H.net
医師のふりぐらいさせてくださいよ 医師になるのが夢だったんですから
by 浩之
235:卵の名無しさん
20/05/03 11:58:35 Rke/Lq2H.net
みんなが順調に医師になっていくのがたまらなく妬ましいし悔しくてたまりません
わかってください
by 浩之
236:卵の名無しさん
20/05/03 13:03:38.37 ZdWddvN0.net
>>226
ド底辺シリツ医は首になって暇なんだな。
日当直中だけど、新患は診なくてすむので楽。
同一法人の老人ホームの入所者が帯状疱疹でやってきたくらい。
アメナメビルが院内にあってよかった。
237:卵の名無しさん
20/05/03 13:05:07.38 ZdWddvN0.net
ここに書いているド底辺シリツ医ってすでに首になってんじゃないかなぁ?
いくらなんでもカンフェレンス参加者に答を教えてもらえるだろうと思う。
俺は、今月は不労所得だけで食えるが、内視鏡を握れないのはつまらんな。
238:卵の名無しさん
20/05/03 13:36:30 Rke/Lq2H.net
医師のふりぐらいさせてくださいよ 医師になるのが夢だったんですから
by 浩之
239:卵の名無しさん
20/05/03 13:56:21 QDSb081T.net
うりゅうひろゆきさん、
ますます重症ですってね
お絵かきもしてないし
ダメですね
ほんと
じゃ、こないだ
思いつく野菜
5つ挙げなさい
って言ったこと
覚えてますか?
同じの思い出して
もういちど挙げなさい
同じのですよ
時計のお絵かきは
0点ってことで
しかたないからな
しかしこりゃ困ったなあ
240:卵の名無しさん
20/05/03 13:59:11 Rke/Lq2H.net
はい すみません
じゃがいも キャベツ キュウリ にんじん イチゴ
です
違うような気もしますが
ご教授お願いします
by 浩之
241:卵の名無しさん
20/05/03 14:12:46 ZdWddvN0.net
ド底辺シリツ医は
裏口シリツ医をCOVID-19の診療にあたらせればいい。
但し、頭脳労働に従事させてはならない。喀痰吸引とか体位変換要員でいい。
算数の掛け算すら怪しいのがシリツ医がこういう事故を起こす。
://i.imgur.com/ArPaux9.png
馬鹿を医師から淘汰するのに丁度いいと思う。
人種や民族など本人が選択できないことを根拠とする区別は差別の批判を免れないが、
ド底辺シリツ医大進学は本人の選択だよなぁ。
これな!
不朽の名投稿
>>
私は昭和の時代に大学受験したけど、昔は今よりも差別感が凄く、特殊民のための特殊学校というイメージで開業医のバカ息子以外は誰も受験しようとすらしなかった。
常識的に考えて、数千万という法外な金を払って、しかも同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んでド底辺医に行く同級生は一人もいませんでした。
本人には面と向かっては言わないけれど、俺くらいの年代の人間は、おそらくは8-9割はド底辺医卒を今でも「何偉そうなこと抜かしてるんだ、この裏口バカが」と心の底で軽蔑し、嘲笑しているよ。
当の本人には面と向かっては絶対にそんなことは言わないけどね。
<<
242:卵の名無しさん
20/05/03 14:13:27 ZdWddvN0.net
東京医大の事件は裏口入学が現在進行形であること如実にしめした事件だよね。
シリツ医の使命は裏口入学撲滅国民運動の先頭に立つことだよ。
裏口入学の学生を除籍処分にしないかぎり、信頼の回復はないね。つまり、いつまで経ってもシリツ医大卒=裏口バカと汚名は拭えない。シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を!の国民運動の先頭に立てばよいぞ。
僕も裏口入学とか、言ってたら信頼の回復はない。
まあ、こっちでもいいような。
ド底辺シリツ医は
裏口シリツ医をCOVID-19の診療にあたらせればいい。
但し、頭脳労働に従事させてはならない。喀痰吸引とか体位変換要員でいい。
算数の掛け算すら怪しいのがシリツ医がこういう事故を起こす。
://i.imgur.com/ArPaux9.png
馬鹿を医師から淘汰するのに丁度いいと思う。
243:卵の名無しさん
20/05/03 14:16:56 Rke/Lq2H.net
特に私立大学医卒の人が順調に医師になっていくのが悔しい 私立医卒の人に負けてしまった 悔しくてたまりません
by 浩之
244:卵の名無しさん
20/05/03 14:31:03 QDSb081T.net
うりゅうひろゆき先輩
野菜は?
245:卵の名無しさん
20/05/03 14:34:19 Rke/Lq2H.net
はい お答えします
野菜は
じゃがいも キュウリ にんじん キャベツ みかん
です
僕 変ですか?
by 浩之
246:卵の名無しさん
20/05/03 14:53:33 Rke/Lq2H.net
金がないこと 女性にモテないこと 精神病 友達がいないこと 仕事が見つからないこと で苦しんでいます 誰か助けてください
by 浩之
247:卵の名無しさん
20/05/03 16:29:44 Rke/Lq2H.net
恥ずかしながら 十万円貰えたら 性風俗で遊ぼうと思ってます 楽しみです
by浩之
248:卵の名無しさん
20/05/03 16:54:10 Rke/Lq2H.net
お金がない!
by 浩之
249:卵の名無しさん
20/05/03 17:16:29 ZdWddvN0.net
タクシーチケット支給の職場だが却ってハイリスクかもしれん。
乗客から感染か 熊本のタクシー運転手死亡 [どどん★]
スレリンク(newsplus板)
250:卵の名無しさん
20/05/03 18:11:05 QDSb081T.net
そんなの、
うりゅうひろゆきさんには関係無いよ
お医者さんのお話でしょ
それよりも
画用紙は?
お絵かきできたの?
251:卵の名無しさん
20/05/03 18:41:38.70 Rke/Lq2H.net
はい すみません
お金がなくて 画用紙が買えませんでした
早く 仕事を見つけて
お金が欲しいです
なにか仕事をください
by 浩之
252:卵の名無しさん
20/05/03 18:58:48 Rke/Lq2H.net
私立大学医卒で順調に医師になってゆく人が 羨ましくて 悔しくて たまりません
僕は国試に合格できなくて 今は無職でニートの 社会的底辺です どうか優しくし
てください お願いします
by 浩之
253:卵の名無しさん
20/05/04 01:13:44 TQ0ggJTA.net
SEIRモデルに再感染(免疫を失ってR からSへの変遷)があるとしてグラフ化してみた。
1万人に1人の感染者と9人の「保菌者」がいるとして、
再感染率0%のとき
URLリンク(i.imgur.com)
再感染率0.1%(1000人に1人の割合で免疫を失う)場合
URLリンク(i.imgur.com)
再感染率0.1%で外出自粛等で接触が8割減になった場合
URLリンク(i.imgur.com)
第二波が来るのもみてとれる。
254:卵の名無しさん
20/05/04 01:27:26 TQ0ggJTA.net
最近の報道
インドは、中国企業から購入した中共ウイルス(新型コロナウイルス)の迅速スクリーニング検査キットの精度がわずか5%だとして、約50万個の注文をキャンセルした。
....
神戸市中央区にある市立医療センター中央市民病院の医師などのグループは、ことし3月末から先月7日にかけて、新型コロナウイルス以外の理由で外来を受診した患者から無作為に1000人を選び、血液中に新型コロナウイルスに感染したあとにできる「抗体」があるか調べました。
グループによりますとその結果、3.3%にあたる33人から抗体が検出されたということです。
以上を知ったあるド底辺シリツベンチャー企業が
必ず陽性がでる試薬33個と必ず陰性がでる試薬967個を混ぜた1000試薬をセットにしてインドに売り込んだ。
問題
(1)このセットの感度 特異度 陽性的中率 陰性的中率を求めよ
(2)各試薬は1回しか検査できないとして
これがイカサマキットであることを証明する手段はあるか?
255:卵の名無しさん
20/05/04 02:20:28 6RRwA4Sk.net
英語を書いたり 統計を書いたりするのは 少しでも医師らしく また 頭が良い雰囲気を出すためなんです 実際の僕は 国試に合格できなくて医師になれなかった馬鹿ものです ほんとうにごめんなさい 本当の僕は無職でニートの社会的底辺です
by 浩之
256:卵の名無しさん
20/05/04 07:33:38 Fard+u0F.net
rm(list=ls())
library(rjags)
modelString='
model{
marginal_likelyhood = N*p^r*(1-p)^(n-r)
p ~ dbeta(a,b)
}
'
n=10 ; r=9
N=choose(n,r)
a=1 ; b=1
data=list(n=n,r=r,N=N,a=a,b=a)
writeLines(modelString,'tmp.txt')
jagsModel=jags.model('tmp.txt', data=data,n.adapt=1e5)
update(jagsModel)
codaSamples=coda.samples(jagsModel, n.iter=1e7, thin=1,
variable=c('marginal_likelyhood'))
js=as.data.frame(as.matrix(codaSamples))
mean(js$marginal_likelyhood)
BEST::plotPost(js$marginal_likelyhood)
(PDM1=choose(10,9)*(0.5^10)) # P(D|M1) M1:p=0.5
mean(js$marginal_likelyhood)/(choose(10,9)*(0.5^10)) # P(D|M2)
(PDM2=integrate(function(x,n=10,r=9,a=1,b=1) # P(D|M2) M2:p ~ beta
choose(n,r)*x^r*(1-x)^(n-r)*dbeta(x,a,b),0,1)$value)
PDM1/PDM2
PDM2/PDM1
257:卵の名無しさん
20/05/04 07:34:11 Fard+u0F.net
二項分布の共役分布がβ分布であることを体感
likelihood <- function(x,n=10,r=9) choose(n,r)*x^r*(1-x)^(n-r)
prior <- function(x,a=1,b=1) dbeta(x,a,b)
posterior <- function(x,n,r,a,b) likelihood(x,n,r)*prior(x,a,b)/
integrate(function(x,n=10,r=9,a=1,b=1)
choose(n,r)*x^r*(1-x)^(n-r)*dbeta(x,a,b),0,1)$value
curve(posterior(x,10,9,1,1))
curve(dbeta(x,1+9,1+10-9),type='h',add=T)
258:卵の名無しさん
20/05/04 07:36:03 Fard+u0F.net
>>247
この(2)は確実な方法は思いつかんなぁ。数学板でのレスを待とう。
259:卵の名無しさん
20/05/04 07:39:05 Fard+u0F.net
民間病院での心掛け : よそいけや ふいにとびこむ しんころな
リハビリテーション病院で集団感染しているから他人事じゃないね。
今時、集まってカンファレンスをやっているって感染対策を考えたらありえんな。
昼休みの薬屋の説明会も全部中止になったし。
260:卵の名無しさん
20/05/04 08:11:44 Fard+u0F.net
ド底辺シリツ医を裏口シリツ医をCOVID-19の診療にあたらせればいい。
但し、頭脳労働に従事させてはならない。喀痰吸引とか体位変換要員でいい。
算数の掛け算すら怪しいのがシリツ医がこういう事故を起こす。
://i.imgur.com/ArPaux9.png
馬鹿を医師から淘汰するのに丁度いいと思う。
このスレのド底辺シリツ医はすでに首になったのかな。
この時期にカンファレンスとか書いていたなぁ。
261:卵の名無しさん
20/05/04 08:32:47 Fard+u0F.net
ネトウヨは安倍は改憲派の右派思想の政治家だからマンセーしていて
菅直人は左翼思想の政治家だからバッシングしているんだろうけどさ
もしもそういう右左の思想をまったく考慮しないで
福一のときの安倍のやったことを考えると
安倍って最低な人間性なんだよ
一生懸命に国民のために何かできないか、東電から原発の報告がまったく途絶えたので
これは自分で情報を見に行くしかないとヘリで視察を決意
当時、枝野にそんなことすれば野党の自民党に攻撃の口実を与えるだけになるから
やめてくださいと止められたのに
菅直人は俺や東電幹部は国民のために犠牲になってもいいんだと情報収集のために福一視察を強行する
それをもって安倍がメルマガで、菅直人の視察が水素爆発の原因になったとデマを発信する
情報が途絶えた原発事故の状況を知るために、つまり国民の命を守るために
自分が被ばくしても、犠牲になってもいいから情報収集しに視察した菅直人を
なんの
262:根拠もないデマで貶めて、いまだに叩かれる原因をつくったのが安倍晋三 思想に対する偏見を捨てて、この二人を見比べると 人間性ではどうみても 菅直人>>>>>>>>>>安倍晋三(ただのクズ) となるんだよな
263:卵の名無しさん
20/05/04 08:35:14.12 Fard+u0F.net
こういう投稿があったので
675 名前:不要不急の名無しさん[sage] 投稿日:2020/05/04(月) 08:28:07.66 ID:969To04l0
>>24
自粛で干上がった歯科医師がやるように仕向けてる
ホテルも干上がるまではほとんど非協力的だったから同じ作戦だろ
こういう建設的提言をレスしておいた。
678 名前:不要不急の名無しさん[sage] 投稿日:2020/05/04(月) 08:33:13.75 ID:H6kiOvdG0
>>675
ド底辺シリツ医を裏口シリツ医をCOVID-19の診療にあたらせればいい。
但し、頭脳労働に従事させてはならない。喀痰吸引とか体位変換要員でいい。
算数の掛け算すら怪しいのがシリツ医がこういう事故を起こす。
://i.imgur.com/ArPaux9.png
馬鹿を医師から淘汰するのに丁度いいと思う。
264:卵の名無しさん
20/05/04 08:41:30 Fard+u0F.net
裏口シリツ医をCOVID-19の診療にあたらせればいい。
但し、頭脳労働に従事させてはならない。
喀痰吸引とか体位変換要員でいい。
算数の掛け算すら怪しいのがシリツ医がこういう事故を起こす。
://i.imgur.com/ArPaux9.png
馬鹿を医師から淘汰するのに丁度いいと思う。
265:卵の名無しさん
20/05/04 09:21:29 Fard+u0F.net
シリツ医が正規入学か調査したとする。2人しらべたら0であった。
シリツ医の正規入学確率の事前分布として確率は0.5に設定(M1)するのと、一様分布にする(M2)のではどちらが優れたモデルか?
周辺尤度(エビデンス)を比較する。
Model1の周辺尤度はn=2,r=0,p=0.5として
PDM1=choose(n,r)*p^r*(1-p)^(n-r)
Model2を一般化すると
model{
marginal_likelyhood = N*p^r*(1-p)^(n-r)
p ~ dbeta(a,b)
}
PDM2=integrate(function(x) # P(D|M2) M2:p ~ beta
choose(n,r)*x^r*(1-x)^(n-r)*dbeta(x,a,b),0,1)$value
つまり、
∫[0,1] nCr*p^r*(1-p)^(n-r)*dp
dbeta(1,1)は一様分布でpdf=1
PDM2/PDM1=1.33 Bayes Factor
やはり、裏口入学確率を5分5分と考える前提が誤りと判明w
266:卵の名無しさん
20/05/04 09:26:06.49 Fard+u0F.net
男女比は105:100とされる、
n=105+100
r=105
p=0.5
として
PDM1/PDM2 # BF12 M1:0.5 vs M2 ~ beta(a,b)
[1] 10.7906
なので、男女比は五分五分と考える事前分布の方がよいことがわかる。
これを実行したシリツ医は皆無�
267:ナある以上 シリツ医の使命は裏口入学撲滅国民運動の先頭に立つことだよ。 裏口入学の学生を除籍処分にしないかぎり、信頼の回復はないね。 つまり、いつまで経ってもシリツ医大卒=裏口バカと汚名は拭えない。 シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。 裏口入学医師の免許剥奪を!の国民運動の先頭に立てばよいぞ。 僕も裏口入学とか、言ってたら信頼の回復はない。 緊急事態宣言下では、 裏口シリツ医をコロナ要員に徴用すべし 裏口シリツ医をCOVID-19の診療にあたらせればいいが、頭脳労働に従事させてはならない。 喀痰吸引とか体位変換要員でいい。 算数の掛け算すら怪しいのがシリツ医がこういう事故を起こす。 ://i.imgur.com/ArPaux9.png 馬鹿を医師から淘汰するのに丁度いいと思う。
268:卵の名無しさん
20/05/04 09:29:13 1g/1w0b4.net
英語を書いたり 統計を書いたりするのは 少しでも医師らしく また 頭が良い雰囲気を出すためなんです 実際の僕は 国試に合格できなくて医師になれなかった馬鹿ものです ほんとうにごめんなさい 本当の僕は無職でニートの社会的底辺です
by 浩之