底辺私立医大を卒業した医者って頭悪いよね？ Part3

底辺私立医大を卒業した医者って頭悪いよね？ Part3 at HOSP

[前50を表示]
600:卵の名無しさん
18/05/03 17:49:21.68 kxDx/PCD.net
>>594
俺も即答したくなったよ
簡単だよほんま
答え:
そもそもウリュウひろゆきジイさんは
医師真似で、病院よ事務員バイトしている国試浪人である！
おんとし63歳！
どうだ？
これ、もっと大正解だろ

601:卵の名無しさん
18/05/03 17:54:04.77 Drs+1rKs.net
>>594
うんにゃ、俺が大正解を即答してやるよ
朝飯前だ
答え: 医科歯科卒業を自称しているが、競争率1倍の偏差値40台の長崎を12年かけて卒業した、いや、温情で卒業させてもらえた、
てかそもそも彼は医師ではない！
そう、それは！ウリュウひろゆきジイさんですね

どうだ？大正解だ！

602:卵の名無しさん
18/05/04 09:10:17.72 xAGSA6fq.net
帝国男児ヨ！　括目セヨ！！
2013年03月02日20:36
医学部の学費で打線組んだｗｗｗｗｗ
（中）金沢医科大学医学部　3950万円
（二）福岡大学医学部　　　3770万円
（左）川崎医科大学医学部　4565万円
（投）帝京大学医学部　　　4920万円
（一）東海大学医学部　　　4184万円
（右）北里大学医学部　　　3890万円
（捕）兵庫医科大学医学部　3880万円
（左）埼玉医科大学医学部　3800万円
（遊）愛知医科大学医学部　3800万円
私立医経営は美味しい美味しい商売

603:卵の名無しさん
18/05/04 10:28:39.67 6BNcb2/S.net
非線形回帰をRのnlsでやってみたが、決定係数は表示されない。
残差平方和から自分で計算しろってことか。
面倒なので関数化してみた。ついでに信頼区間の出し方を勉強して組み込んでみた。
間違いの指摘歓迎。
# To calculate R2, its CI and modified R2 from output of nls() and y
nls2R2 <- function(re.nls,　y,　conf.level=0.95){
sm = summary(re.nls)　# re.nls :output of nonlinear least square function nls
SSalt = sum(sm$residuals^2) # Squared Sum(SS) of residuals
n = length(y) # y : response varialbles (dependent valuables)
SSnull = var(y)*(n-1) # total SS
R2 = 1-SSalt/SSnull
k = sm$df[1] # how many parameters
seR2 = sqrt((4*R2*(1-R2)^2*(n-k-1)^2)/((n^2-1)*(n+3)))
R2.lower = R2 + seR2*qnorm((1-conf.level)/2)
R2.upper = R2 - seR2*qnorm((1-conf.level)/2)
modified.R2 = 1-(n-1)/(n-k-1)*(1-R2)
data.frame(R2,R2.lower,R2.upper,modified.R2)
}
ド底辺シリツ医大卒の方のコメントはまず
>558に答えてからにしていただきたい。

604:卵の名無しさん
18/05/04 13:22:03.42 6BNcb2/S.net
同じような疑問をもつ人は他にもいた。
I googled and searched on stats.stackexchange but I cannot find the formula to calculate a 95% confidence interval for an R2 value for a linear regression. Can anyone provide it?
URLﾘﾝｸ(stats.stackexchange.com)
bootstrapしたら、という提言があったので
やってみた
> quantile(re$t,c(.025,.975))
2.5% 97.5%
0.9953611 0.9997229
> nls2R2(re.nls,y)
R2 R2.lower R2.upper Adjusted.R2
1 0.9971203 0.9951952 0.9990453 0.9958861
近似式と合致している。
まあ、ド底辺シリツ医大卒と裏口バカの合致率ほどではないかもしれないが。

605:卵の名無しさん
18/05/04 16:47:52.44 6BNcb2/S.net
>>604
Rのコードはこれ。
ｽﾚﾘﾝｸ(hosp板:477番)

606:卵の名無しさん
18/05/04 20:42:01.42 6BNcb2/S.net
重回帰分析の部分を読み直していたら
A Note on Screening Regression Equations
URLﾘﾝｸ(amstat.tandfonline.com)
に触れてあったので原文を読みたいなと思って、検索したら全文がここで読めた。
URLﾘﾝｸ(www.public.asu.edu)(Screening%20Regression%20Equations).pdf
ノイズデータから重回帰分析に使うパラメータを絞っていって有意差を出すシミュレーションが載っていたので
Rで追試してみた。
R2 (1st) = 0.6183043
p.value (1st) = 0.05389239
coef < 0.25 = 21
coef < 0.05 = 8
R2 (2nd) = 0.4742404
p.value(2nd) = 5.409517e-05
coef < 0.25 (2nd) = 20
coef < 0.05 (2nd) = 12
最初のスクリーンニンぐで回帰係数が0.25未満の説明変数だけを残して重回帰分析すると
p値0.05強のデータがp<0.0001に早変わり。
まるで、裏口バカを留年ビジネスでスクリーニングして医者にしてしまう、ド底辺シリツ医大さながらではないかｗｗｗｗ
Ｒのコードはこれｽﾚﾘﾝｸ(math板:195番)　実行には全角→半角変換が必要。

607:卵の名無しさん
18/05/05 01:43:36.89 pCZ7kmcH.net
# ド底辺シリツ医大の合格者120人の入試の結果を分析したとする。
# 120人全員の成績の平均値は45、標準偏差は10であった。
# そのうち入学を辞退した20人の成績の平均値は60、標準偏差3であった。
# 100人の入学者のうち5人は特待生で成績の平均値は65、標準偏差は2であった。
# 残り95人を裏口バカと呼ぶことにする
# 入学辞退者、特待生、裏口バカの成績に有意差はあるかを分散分析で答えよ。
total.Mean <- function(Mean,N) sum(N*Mean)/sum(N)
total.SD <- function(Mean,N,SD) sqrt(sum((N-1)*SD^2 + N*(Mean-sum(Mean*N)/sum(N))^2)/(sum(N)-1))
(m.u=uniroot(function(x) total.Mean(c(60,65,x),c(20,5,95)) - 45,c(0,100))$root)
total.Mean(c(60,65,m.u),c(20,5,95))
(m.sd=uniroot(function(x) total.SD(c(60,65,m.u),c(20,5,95),c(3,2,x)) - 10 , c(0,100))$root)
total.SD(c(60,65,m.u),c(20,5,95),c(3,2,m.sd))
辞退者=c(60,20,3)
特待生=c(65, 5, 2)
裏口バカ=c(m.u,95,m.sd) # c(40.79, 95, 6.13)
# Totalc(45 120 10)
dat=rbind(辞退者,特待生,裏口バカ)
colnames(dat)=c("Mean","N","SD")
mean.G=sum(dat[,"Mean"]*dat[,"N"])/sum(dat[,"N"])
SS.bit=sum((dat[,"Mean"]-mean.G)^2*dat[,"N"])
SS.wit=sum(dat[,"SD"]^2*(dat[,"N"]-1))
df.bit=nrow(dat)-1
df.wit=sum(dat[,"N"]-1)
MS.bit=SS.bit/df.bit
MS.wit=SS.wit/df.wit
(F.ratio=MS.bit/MS.wit)
pf(F.ratio,df.bit,df.wit,lower.tail=FALSE)
(η2=(SS.bit)/(SS.bit+SS.wit)) # eta^2

608:卵の名無しさん
18/05/05 07:20:00.69 hBjvmFP3.net
↑
おじいちゃん
国家試験通ってないんやろ
なんなんだ？それ？毎日同じのばっかり
勉強しろよ

609:卵の名無しさん
18/05/05 07:47:50.69 TePPONvo.net
偽善者と偽装社会とパナマ文書
■涙の告発「子どもが生贄に…」
動画：URLﾘﾝｸ(youtu.be)
フリン補佐官がスキャンダルに巻き込まれたのは、実はフリンが小児性愛ネットワークを捜査していたから。
フリン補佐官が追いかけていた小児性愛ネットワークの一人がペンス副大統領やプリーバス首席補佐官ともつながった。
URLﾘﾝｸ(nqj17437.wor...press.com)

610:卵の名無しさん
18/05/05 08:57:31.90 WOhQQmHo.net
卒後20年のオナニー中毒よ、学生にも敗北したようだな。もう国試は無理だ。一生妄想の中で生きて行け。

611:卵の名無しさん
18/05/05 09:32:33.76 pCZ7kmcH.net
分散分析で有意差が確認できたのでpairwiseに検定する。
> Tk=TukeyHSD(aov(score~group,data=data)) ; Tk[[1]]
diff lwr upr p adj
辞退-特待 -5.00 -11.66109 1.661085 1.801228e-01
裏口-特待 -24.21 -30.32263 -18.097369 4.329870e-14
裏口-辞退 -19.21 -22.48753 -15.932467 1.310063e-14
> pairwise.t.test(score,group)
Pairwise comparisons using t tests with pooled SD
data: score and group
特待辞退
辞退 0.077 -
裏口 1.1e-15 < 2e-16
P value adjustment method: holm
特待生は入学辞退すべきであったことが示唆されるｗｗｗ

612:卵の名無しさん
18/05/05 09:36:27.83 pCZ7kmcH.net
ド底辺シリツ医大卒って英文や数字が出ると全くコメントできずに第三法則を実証するだけ。
馬鹿なのだろうか？

URLﾘﾝｸ(i.imgur.com)
統計は教養以前の問題。
それすら扱えないド底辺シリツ医ってなんと表現すればいいのだろう？
当事者の間では　ガチの裏　と表現されてらしいw
URLﾘﾝｸ(imagizer.imageshack.com)

馬鹿なのにどうして大学に入れただろう？
やっぱり、あれ？？

,二　　　　　|　￣ヽ　　　　. ／〃　　　-┼─　　
　　）　　　　|＿__.　　　　　（　　　　　　レ--、　
　.ノ　　　　　＿_）　　　　　＼.　　　　　　＿ノ .

613:卵の名無しさん
18/05/05 09:44:35.04 pCZ7kmcH.net
>>608
＞なんなんだ？それ？
やはり、ド底辺シリツ医大卒には理解できないらしな。
新薬説明の統計を裏口バカが理解できているはずもないなぁ。

＞毎日同じのばっかり
傾向スコアの話から多重回帰に話が移っているんだけどな
区別すらできないらしいな。
ド底辺シリツ医大を話題にしたクイズで興味が沸くかと思ったが、そもそも、向学心がない。
ひょっとして馬鹿なの？
馬鹿なのにどうして大学に入れたの？
ド底辺シリツ医大でも一様、大学だろ？
やっぱり、あれ？？

,二　　　　　|　￣ヽ　　　　. ／〃　　　-┼─　　
　　）　　　　|＿__.　　　　　（　　　　　　レ--、　
　.ノ　　　　　＿_）　　　　　＼.　　　　　　＿ノ .

614:卵の名無しさん
18/05/05 09:54:11.66 pCZ7kmcH.net
□□□□□□□■□□□□□■□■□
□□□□□□□■□□□□□■□■□
□□□□□□□■□□□□□□□□□
□□□□□□□■□□□□□□□□□
□□■■■■■■■■■■■■□□□
□□□□□□□■□□□□□■□□□
□□□□□□□■□□□□□■□□□
□□□□□□■■□□□□□■□□□
□□□□□□■□□□□□□■□□□
□□□□□□■□□□□□□■□□□
□□□□□■■□□□□□□■□□□
□□□□□■□□□□□□■■□□□
□□□□■■□□□□□□■□□□□
□□□■■□□□□□□□■□□□□
□□■■□□□□□■■■■□□□□
□□□□□□□□□□□□□□□□□
□□□□□□□□□□□□□□□□□
□□□□□□□□□□□■■□□□□
□□□□□□□□■■■■□□□□□
□□□■■■■■■□□□□□□□□
□□□□□□□□■□□□□□□□□
□□□□□□□□■□□□□□□□□
□□□□□□□□■□□□□□□□□
□■■■■■■■■■■■■■■□□
□□□□□□□□■□□□□□□□□
□□□□□□□□■□□□□□□□□
□□□□□□□■■□□□□□□□□
□□□□□□□■□□□□□□□□□
□□□□□□■■□□□□□□□□□
□□□□□■■□□□□□□□□□□
□□□■■■□□□□□□□□□□□ 👀
Rock54: Caution(BBR-MD5:1341adc37120578f18dba9451e6c8c3b)

615:卵の名無しさん
18/05/05 09:54:20.78 pCZ7kmcH.net
□□□□□□□■□□□□□□□□□
■■■■■■■■■■■■■■■■□
□□□□□□□□□□□□□□□□□
□□□■■■■■■■■■■□□□□
□□□■□□□■□□□□■□□□□
□□□■■■■■■■■■■□□□□
□□□■□□□■□□□□■□□□□
□□□■■■■■■■■■■□□□□
□□□□□□□■□□□□□□□□□
□□■■■■■■■■■■■■□□□
□□□□□□□■□□□□□□□□□
■■■■■■■■■■■■■■■■□
□□□□□■□□■□□□□□■□□
■■■■■□□□□■■□□■□□□
□□□□■■■■□□■■■□□□□
□□■■■□□□□□□□■■■■□
□□□□□□□□□□□□□□□□□
□□□□□□□□□□□□□□□□□
□□■■■■■■■■■■■■□□□
□□■□□□□□□□□□□■□□□
□□■□□□□□□□□□□■□□□
□□■□□□□□□□□□□■□□□
□□■□□□□□□□□□□■□□□
□□■□□□□□□□□□□■□□□
□□■□□□□□□□□□□■□□□
□□■□□□□□□□□□□■□□□
□□■□□□□□□□□□□■□□□
□□■□□□□□□□□□□■□□□
□□■□□□□□□□□□□■□□□
□□■■■■■■■■■■■■□□□
□□□□□□□□□□□□□□□□□
□□□□□□□□□□□□□□□□□ 👀
Rock54: Caution(BBR-MD5:1341adc37120578f18dba9451e6c8c3b)

616:卵の名無しさん
18/05/05 09:55:18.98 pCZ7kmcH.net
ガチの裏口同窓生当事者の投稿です。
URLﾘﾝｸ(imagizer.imageshack.com)

617:卵の名無しさん
18/05/05 09:56:53.26 WOhQQmHo.net
ふん。ぶざまだな。

618:卵の名無しさん
18/05/05 10:08:07.99 rMcPOeHp.net
基本自分は私立中堅以下卒の医者にはかからないようにしている。ホームページ見たら経歴書いてたりするから事前に調べて。

619:卵の名無しさん
18/05/05 10:09:13.05 pCZ7kmcH.net
??????????????????????????????????????????????????????????????????????????????????????????????????
????■????■?????????????????????????????????■?????????????????????????????????????????????????????????
????■???■?????????■■??????????????????■■■■■■■■■■■????????????????????????????????????????????????????
????■?????????■■■■■?????????■■■■■??????■■■■■■■■■?????????????????????????????????????????????????????
■■■■■■■■■????????■?????????■??■??■■????■???■???■?????????????????????????????????????????????????????
????■???■????????■????????■???■???■■???■■■■■■■■■?????????????????????????????????????????????????????
????■???■???■■■■■■■■■■■??■????■????■???■■■■■■■■■?????????????????????????????????????????????????????
????■???■????????■???????■???■?????■??■■■■■■■■■■■????????????????????????????????????????????????????
???■????■????????■???????■???■?????■?■■■■■■■■■■■■■???????????????????????????????????????????????????
???■????■???????■■???????■■?■?????■■?????■■?■??■?????????????????????????????????????????????????????
??■????■■??????■■?????????■■■????■■???■■■■???■■??????????????????????????????????????????????????????
■■???■■■??????■■???????????????■■????????■■■■?■■■????????????????????????????????????????????????????
???????????????????????????????????????■■???????■?

620:卵の名無しさん
18/05/05 10:10:14.30 pCZ7kmcH.net
>>617
ド底辺シリツ医大卒の汚名より、ぶざまな事実は存在しない。
ちょっと、第二法則を確認してみましょう。
あんた、どこ卒？

621:卵の名無しさん
18/05/05 10:11:39.94 pCZ7kmcH.net
>>618
手先が不器用な奴は国立卒にもいるが、
ド底辺シリツ医大卒だと頭が不器用である確率が高い。
統計どころか、中学数学すら怪しい。

622:卵の名無しさん
18/05/05 10:13:29.85 WOhQQmHo.net
女医が見て嘲笑ってるぞw

623:卵の名無しさん
18/05/05 10:33:27.25 iiQZU4qb.net
ウリュウジイさん
事務員バイトで満足だろ
最近はむつかしいし、
ウリュウ先輩には国試むりだよ

624:卵の名無しさん
18/05/05 10:37:58.26 pCZ7kmcH.net
スキャッチャードプロットの手法
Wikipediaにはきちんと問題点が指摘されている。
URLﾘﾝｸ(ja.wikipedia.org)
呪文：「ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ」を唱えると甲状腺機能が正常化するという統計処理の捏造をやってみる。
TSH ： 0.34～4.0 TSH：μIU/mlを基準値として（これが平均±２×標準偏差で計算されているとして）呪文前と呪文後のデータを正規分布で各々５０個つくる。
負になった場合は検出限界以下として０にする。
URLﾘﾝｸ(i.imgur.com)
同じ平均値と標準偏差で乱数発生させただけなので両群には有意差はない。
横軸に呪文前のTSHの値、縦軸にTSHの変化（呪文後－呪文前）をグラフしてみると
URLﾘﾝｸ(i.imgur.com)
つまり、呪文前のTSHが高いほど呪文後はTSHは下がり、呪文前のTSHが低いほど呪文後のTSHは上がるという傾向がみてとれる。これを線形回帰して確かめてみる。
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 2.3812 0.3323 7.165 4.10e-09 ***
before -1.0351 0.1411 -7.338 2.24e-09 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.8365 on 48 degrees of freedom
Multiple R-squared: 0.5287, Adjusted R-squared: 0.5189
F-statistic: 53.84 on 1 and 48 DF, p-value: 2.237e-09
p = 2.24e-09 なので有意差ありとしてよい。
ゆえに、「ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ」という呪文は甲状腺機能を正常化させる。
ここで問題、この統計処理のどこが誤っているか？

625:卵の名無しさん
18/05/05 10:54:16.04 WOhQQmHo.net
くくく！バカ丸出し！

626:卵の名無しさん
18/05/05 11:14:23.69 r+HJWwEoO
医科歯科君（今はウリュウなの？）、以前はもう少しまともな書き込みをしてたよね。医者っぽい発言も時々あったし。
今や完全に発症しちゃったね。病識ないだろうけど。
絶対医者じゃないね。まぁ全く信用されてないだろうけど。
本当に何者？逆に興味が出てきた。

627:卵の名無しさん
18/05/05 11:38:02.77 h9pFu5Lrh
必ず誰かに肘肩まわりをやさしくさすってもらいながら
一日3回　2週間
1テーブルや安定した椅子の前に脚を軽く開いて立ち、テーブルか椅子の背もたれに両手をつく。半歩下がり上半身の体重の半分を両手に預ける
2モゾモゾといいながら腰を左右前後に動かしてほぐしてゆるめていく。ひじは伸ばしたまま、全身の力を抜いて行う
肘は伸ばしたまま

628:卵の名無しさん
18/05/05 11:56:26.89 w175uM/J.net
>>622
ド底辺コルサコフ症候群は益々、悪化しているようだな。

629:卵の名無しさん
18/05/05 12:39:36.29 M4ESiG4T.net
地方国立卒の勤務医だが当直中だ。
貧乏に生まれると人が休んでる時でさえ
俺みたいに当直しないといけない。
医科歯科爺さんは底辺私立をクソミソに
貶してるけど、俺はどっちかというと羨ましいわ。
だって親がお金持ちじゃ無かったら
本来は医者になれなかった連中なんだぜ。
それが親のお陰だとは言っても医者やってるんだからさ。
受験の時に嬉々として私立医大に進学する同級生を
羨望の眼差しで見つめながら、諦めて旧帝理や旧帝工に
進学した同級生をたくさん知ってるよ。
あの時思ったな～。
やっぱり金持ちにはかなわねえやと。
どう考えても旧帝の理や工に進学した
同級生の方が成績が良いんだから。
やっぱり人生はお金だよ。

630:卵の名無しさん
18/05/05 12:56:31.88 DcBecp9b.net
>>629
医師真似国試浪人ジイさん
キャラかえなくてもいいよ
しかしあんた、てか、ウリュウジジイ、つまんねえ奴だな

631:卵の名無しさん
18/05/05 13:21:40.97 WOhQQmHo.net
大当たりーカッコわりーオナ中だな。

632:卵の名無しさん
18/05/05 14:00:50.74 WqhhrHYt.net
カネで医者になる私立医は全員似非医者。
バカのまま入学し、
低レベルの国試に通るだけ。
こんなインチキ国家資格は医者だけだろが

633:卵の名無しさん
18/05/05 14:12:08.00 w175uM/J.net
>>629
接客業って賤業だと気付くいたときには遅しだったな。
俺は明日が日当直、月曜日は半日内視鏡バイトしてステーキハウスに行く予定。
自宅から呼ぶ出される方が当直室から呼び出されるより苦痛。

>>632
だからこそ、ド底辺シリツ医大卒は卒業大学をひた隠し。

634:卵の名無しさん
18/05/05 16:29:39.22 U4l9hcPD.net
内視鏡バイトの後にステーキハウス行く自慢する医師初めて見たわな
本物の医者だったらそんなバイト自慢しないし、ステーキハウスも自慢しなくね？

635:卵の名無しさん
18/05/05 16:31:50.51 U4l9hcPD.net
消化器内科か、、人の糞をほじくり出す賤業だな
その汚い手でステーキ食って幸せか？w

636:卵の名無しさん
18/05/05 18:27:14.11 pCZ7kmcH.net
>>635
午前中に上部のみ。

637:卵の名無しさん
18/05/05 18:30:24.93 pCZ7kmcH.net
>>634
某ド底辺医大生は定期試験後にフェリーで高松のソープに行くらしい。

638:卵の名無しさん
18/05/05 22:43:21.99 hBjvmFP3.net
ジイさん、ソープってなに？
初耳だよ、僕ら
ソープは医師真似事務員の仲間たちで流行ってるの？
最近はそんなソープ症例が国試にでるの？
ソープって、まさか長崎のめいぶつなの？

639:卵の名無しさん
18/05/05 23:24:40.36 2KIi+pnL.net
バカ私立医なら生涯、300人は患者殺してるだろ！
全員腹を切れ

640:卵の名無しさん
18/05/06 03:01:38.30 ounCZmr/.net
私立医大卒の医者って良いよな～。
うらやましいよ。
だってお金が無かったら
本来は医者じゃ無い連中なんだぜ。

641:卵の名無しさん
18/05/06 07:38:40.97 ZBKvHzPJ.net
>>640
あんたも医者になれたら
そんな事は気にならなくなるよ
さあ、34回目の国試の為に勉強しなきゃ

642:卵の名無しさん
18/05/06 07:53:17.14 LrYAyHYX.net
ド底辺シリツ医大卒って英文や数字が出ると全くコメントできずに第三法則を実証するだけ。
馬鹿なのだろうか？

URLﾘﾝｸ(i.imgur.com)
統計は教養以前の問題。
それすら扱えないド底辺シリツ医ってなんと表現すればいいのだろう？
当事者の間では　ガチの裏　と表現されてらしいw
URLﾘﾝｸ(imagizer.imageshack.com)

馬鹿なのにどうして大学に入れただろう？
やっぱり、あれ？？

,二　　　　　|　￣ヽ　　　　. ／〃　　　-┼─　　
　　）　　　　|＿__.　　　　　（　　　　　　レ--、　
　.ノ　　　　　＿_）　　　　　＼.　　　　　　＿ノ .

643:卵の名無しさん
18/05/06 13:23:55.05 itQRaw6a.net
>>631
ド底辺シリツ医大卒よりカッコー悪いことは医療の世界には存在しない。
ド底辺シリツ医大卒の汚名より、ぶざまな事実は存在しない。
ちょっと、第二法則を確認してみましょう。
あんた、どこ卒？

644:卵の名無しさん
18/05/06 15:13:15.10 4gENZ/hC.net
順位和での傾向検定
jonckheere <- function(L){ # L : list of vectors A1,A2,...,Ak, with assumed tendency
How.Many.Greater.Pairs <- function(A,B){ # How many pairs of A[i] > B[j], count as 0.5 when equal,
n.a = length(A)
n.b = length(B)
how.many.greater.pairs = 0
for(i in 1:n.a){
for(j in 1:n.b){
how.many.greater.pairs = how.many.greater.pairs+ifelse(A[i]==B[j],0.5,A[i]>B[j])
}
}
return(how.many.greater.pairs)
}
Sum.of.Greater.Pairs <- function(L){ #L=list(A1,,,,Ak),A1 < A2 < A3,..,< Ak : vector
k = length(L)
comb = combn(1:k,2) # possible combinaition of pairs to compare
n.comb = ncol(comb) # how many combinations
J = 0 # sum of greater pairs
for(i in 1:n.comb){
J = J + How.Many.Greater.Pairs(L[[comb[1,i]]],L[[comb[2,i]]])
}
return(J)
}
J = Sum.of.Greater.Pairs(L)
n = sapply(L,length)
N = sum(n)
EJ = (N^2-sum(n^2))/4
VJ = (N^2*(2*N+3)-sum(n^2*(2*n+3)))/72
Z = (J-EJ)/sqrt(VJ)
p.value = pnorm(-abs(Z))*2
return(p.value)
}

645:卵の名無しさん
18/05/06 15:51:37.60 4gENZ/hC.net
パッケージの結果と一致して気持ちが（・∀・）ｲｲ!!
> A1<-c(205,206,164,190,194,203)
> A2<-c(201,221,197,185)
> A3<-c(248,265,197,220,212,281)
> A4<-c(202,276,237,254,230)
> L<-list(A1,A2,A3,A4)
> g=rep(1:4,sapply(L,length))
> jonckheere(L)
[1] 0.004279366
> clinfun::jonckheere.test(c(A1,A2,A3,A4),g, alternative ='two.sided')
Jonckheere-Terpstra test
data:
JT = 127.5, p-value = 0.004279
alternative hypothesis: two.sided

646:卵の名無しさん
18/05/06 17:40:41.16 ToTSIDGj.net
>>640
だよね～
本当に私立医大卒の医者って良いよな～。
うらやましいよ。
だってお金が無かったら
本来は医者じゃ無い連中なんだよな～。

647:卵の名無しさん
18/05/06 17:48:37.68 4gENZ/hC.net
Jonckheere's trend test
URLﾘﾝｸ(en.wikipedia.org)
での統計量が正規分布で近似できることをシミュレーションで確認してみる。
統計量○○は××分布に従う、とか○○の従う分布を××分布という、などの記載を読むとそんなものかと「納得」して次に進むことになるのだが、これがなんとも気持ち悪い。
まあ、ド底辺シリツ卒を裏口バカと呼ぶのはπ≒3.14程度のことで万人が受け入れることができるんだが（笑）
# simulation
How.Many.Greater.Pairs <- function(A,B){ # How many pairs of A[i] > B[j], count as 0.5 when equal.
n.a = length(A)
n.b = length(B)
how.many.greater.pairs = 0
for(i in 1:n.a){
for(j in 1:n.b){
how.many.greater.pairs = how.many.greater.pairs+ifelse(A[i]==B[j],0.5,A[i]>B[j])
}
}
return(how.many.greater.pairs)
}
Sum.of.Greater.Pairs <- function(L){ #L=list(A1,,,,Ak),A1 < A2 < A3,..,< Ak : vector
k = length(L)
comb = combn(1:k,2) # possible combinaition of pairs to compare
n.comb = ncol(comb) # how many combinations
J = 0 # sum of greater pairs
for(i in 1:n.comb){
J = J + How.Many.Greater.Pairs(L[[comb[1,i]]],L[[comb[2,i]]])
}
return(J)
}

648:卵の名無しさん
18/05/06 17:49:08.82 4gENZ/hC.net
repeat.jonckheere.simulation <- function(n.sim=10^3){
Max.score=100
Max.sample.size=10
N.group=sample(5:10,1)
N.sample=sample(3:Max.sample.size, N.group, replace=TRUE)
jonck.sim <- function(){
L=list()
for(i in 1:N.group) L=append(L,list(sample(1:Max.score,N.sample[i],replace=TRUE)))
Sum.of.Greater.Pairs(L)
}
rep.jon = replicate(n.sim,jonck.sim())
hist(rep.jon,freq=FALSE,col=sample(colours(),1),main='Gaussian on Jonckheere',xlab='statistic J',breaks=20)
n = N.sample
N = sum(n)
EJ = (N^2-sum(n^2))/4
VJ = (N^2*(2*N+3)-sum(n^2*(2*n+3)))/72
curve(dnorm(x,EJ,sqrt(VJ)), add=TRUE,lwd=2)
invisible(list(n=n,EJ=EJ,VJ=VJ,J=rep.jon))
}
re=repeat.jonckheere.simulation() ; names(re)
qqnorm(re$J) ; qqline(re$J)
shapiro.test(re$J)
ks.test(re$J, "pnorm", mean=re$EJ, sd=sqrt(re$VJ))

649:卵の名無しさん
18/05/06 17:53:49.64 4gENZ/hC.net
正規性を検定して、グラフ化してみる。

> shapiro.test(re$J)
Shapiro-Wilk normality test
data: re$J
W = 0.99875, p-value = 0.723
> ks.test(re$J, "pnorm", mean=re$EJ, sd=sqrt(re$VJ))
One-sample Kolmogorov-Smirnov test
data: re$J
D = 0.040292, p-value = 0.07779
alternative hypothesis: two-sided
URLﾘﾝｸ(i.imgur.com)

650:卵の名無しさん
18/05/06 18:34:27.20 4gENZ/hC.net
サンプルサイズや比較群数を変えてやってみる。
URLﾘﾝｸ(i.imgur.com)
正規分布になっているのがみてとれる。

ド底辺シリツ医大卒の方のコメントはまず
>558に答えてからにしていただきたい。
556再掲
ド底辺シリツ医大卒には数式や英文のある問題は無理みたいだなぁ。
これなら答えられるかな？
URLﾘﾝｸ(imagizer.imageshack.com)

Xの先輩Yは医師である。
Yは真正の裏口入学（ガチの裏）と評価される学生Zを知っている。
Zの入学した大学をガチ裏医大と呼ぶことにする。
Zが１回生から留年を繰り返すことを知っているのでYとZは同期入学であると思われる。
問題：Xの入学した大学はどこか？

651:卵の名無しさん
18/05/06 18:49:39.54 4gENZ/hC.net
鮭の屍骸にMRIをして、ノイズから統計的に有意な結論が出せるという論文
Bennett CM, Baird AA, Miller MB, Wolford GL. Neural correlates of
interspecies perspective taking in the post-mortem Atlantic salmon:
an argument for proper multiple comparisons correction.
J Serendipitous Unexpected Results 2009; 1: 1?5.
URLﾘﾝｸ(prefrontal.org)
中学数学の一次方程式すらできないド底辺シリツ医大学生を医者にしてしまうくらい無気味だよな。
まあ、こういう結論（多重比較の問題）に帰着するのだろうけど、
‘The dead salmon study was not bashing functional MRI, it was
about people who refuse to use multiple comparisons correction
in functional MRI analysis . . . the salmon is important because
it drew attention to the problem, but it’s not a problem with
functional MRI as such’.

652:卵の名無しさん
18/05/06 20:32:20.54 4gENZ/hC.net
jonckheere <- function(L,
alternative = c("two.sided", "increasing", "decreasing")){
# L : list of vectors A1,A2,...,Ak, with assumed tendency
How.Many.Greater.Pairs <- function(A,B){ # How many pairs of A[i] > B[j], count as 0.5 when equal,
n.a = length(A)
n.b = length(B)
how.many.greater.pairs = 0
for(i in 1:n.a){
for(j in 1:n.b){
how.many.greater.pairs = how.many.greater.pairs+ifelse(A[i]==B[j],0.5,A[i]>B[j])
}
}
return(how.many.greater.pairs)
}
Sum.of.Greater.Pairs <- function(L){ #L=list(A1,,,,Ak),A1 < A2 < A3,..,< Ak : vector
k = length(L)
comb = combn(1:k,2) # possible combinaition of pairs to compare
n.comb = ncol(comb) # how many combinations
J = 0 # sum of greater pairs
for(i in 1:n.comb){
J = J + How.Many.Greater.Pairs(L[[comb[1,i]]],L[[comb[2,i]]])
}
return(J)
}

653:卵の名無しさん
18/05/06 20:34:41.92 4gENZ/hC.net
J = Sum.of.Greater.Pairs(L)
n = sapply(L,length)
N = sum(n)
EJ = (N^2-sum(n^2))/4
VJ = (N^2*(2*N+3)-sum(n^2*(2*n+3)))/72
Z = (J-EJ)/sqrt(VJ)
alternative = match.arg(alternative)
p.value = switch(alternative, 'two.sided' = 2 * min(pnorm(Z), pnorm(-Z), 0.5),
'increasing' = pnorm(Z),
'decreasing' = pnorm(-Z))
cat( 'p.value = ', p.value,'\n')
cat('alternative hypothesis: ' ,alternative,'\n')
invisible(p.value)
}
これで、一側検定も可能。
Wikipediaの例でやってみた。URLﾘﾝｸ(en.wikipedia.org)
> Contacted=c(10,12,14,16)
> Bumped=c(12,18,20,22)
> Smashed=c(20,25,27,30)
> jonckheere(L,'incre')
p.value = 0.001707396
alternative hypothesis: increasing
> L=list(Contacted,Bumped,Smashed)
> clinfun::jonckheere.test(unlist(L),rep(1:3,rep(4,3)),'inc')
Jonckheere-Terpstra test
data:
JT = 44, p-value = 0.001707
alternative hypothesis: increasing

654:卵の名無しさん
18/05/06 21:51:50.64 PBM7Kxf6.net
医師真似事務員バイトのウリュウ先輩
連休なのに勉強しなかったの？
またお医者さんになれないよ？

655:卵の名無しさん
18/05/06 22:04:57.59 4gENZ/hC.net
裏口バカの入学後の偏差値の変遷を以下とする。
1年度 2年度 3年度 4年度 5年度 6年度
裏口1 35 11 37 16 40 27
裏口2 51 38 55 34 35 49
裏口3 46 39 58 37 33 63
裏口4 50 40 31 33 37 45
裏口5 42 43 25 41 49 17
裏口6 51 46 41 35 38 20
裏口7 30 50 33 42 30 39
裏口8 39 61 26 39 47 30
裏口9 41 42 58 41 44 56
裏口10 54 49 53 49 45 28
学年があがるにつれて成績が向上しているといえるか検定せよ。

656:卵の名無しさん
18/05/06 22:07:03.59 4gENZ/hC.net
>>654
誰だよ、それ。
今日はインフルエンザ確定2人、疑い2人を診察。
まだ、くすぶっているな、この時期にA。
例年の傾向とちがうみたいだ。
ゾフルーザは採用されていないので処方できなかった。

657:卵の名無しさん
18/05/06 22:09:48.78 4gENZ/hC.net
> jonckheere(L,alt='decreasing')
p.value = 0.03850052
alternative hypothesis: decreasing
> clinfun::jonckheere.test(unlist(UG),rep(1:6,rep(10,6)),alt='decreasing')
Jonckheere-Terpstra test
data:
JT = 613.5, p-value = 0.0385
alternative hypothesis: decreasing
自作関数がパッケージと同値を算出して気持ちが（・∀・）ｲｲ!!

658:卵の名無しさん
18/05/06 22:12:02.27 4gENZ/hC.net
19歳女性は迅速検査陰性だったので、香蘇散で切り抜けた。
エフェドリンいりの葛根湯は妊娠可能年齢には処方しないことにしている。
香蘇散は俺提案の稟議でいれてもらった。こういう事例には重宝する。

659:卵の名無しさん
18/05/06 23:43:49.61 4gENZ/hC.net
>>657
片側検定で
> jonckheere(L,alt='decreasing')
p.value = 0.03850052
alternative hypothesis: decreasing
とようやく有意差がでる程度、両側検定だと0.05を超える
図示してみると
URLﾘﾝｸ(i.imgur.com)

660:卵の名無しさん
18/05/06 23:48:34.15 4gENZ/hC.net
一元配置反復測定分散分析をやってみると
年度でも個人でも全体の有意差はでない。
Univariate Type III Repeated-Measures ANOVA Assuming Sphericity
Sum Sq num Df Error SS den Df F value Pr(>F)
(Intercept) 97123 1 1888.4 9 462.8836 4.765e-09 ***
xFactor 391 5 4917.6 45 0.7151 0.6154
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
個人だと
> summary(re2.Anova,multivariate = FALSE)
Univariate Type III Repeated-Measures ANOVA Assuming Sphericity
Sum Sq num Df Error SS den Df F value Pr(>F)
(Intercept) 97123 1 390.7 5 1242.83 3.456e-07 ***
yFactor 1888 9 4917.6 45 1.92 0.0732 .
でｐ値は0.05に近くはなる。

661:卵の名無しさん
18/05/07 00:11:40.31 /y3oEDZQ.net
裏口１と裏口9をｔ検定すると
> t.test(UG['裏口1',],UG['裏口9',])
Welch Two Sample t-test
data: UG["裏口1", ] and UG["裏口9", ]
t = -3.3233, df = 8.6604, p-value = 0.009382
pairwiseには有意差はでるが、これは多重比較の禁じ手。
多重比較を補正してみると
Tukey multiple comparisons of means
95% family-wise confidence level
Fit: aov(formula = value ~ class + variable, data = ug2)
$variable
diff lwr upr p adj
裏口2-裏口1 16.0000000 -3.38979009 35.389790 0.1889616
裏口3-裏口1 18.3333333 -1.05645676 37.723123 0.0781410
裏口4-裏口1 11.6666667 -7.72312342 31.056457 0.6073562
裏口5-裏口1 8.5000000 -10.88979009 27.889790 0.9037140
裏口6-裏口1 10.8333333 -8.55645676 30.223123 0.7001816
裏口7-裏口1 9.6666667 -9.72312342 29.056457 0.8158294
裏口8-裏口1 12.6666667 -6.72312342 32.056457 0.4936503
裏口9-裏口1 19.3333333 -0.05645676 38.723123 0.0512411
裏口10-裏口1 18.6666667 -0.72312342 38.056457 0.0680686
...
裏口10-裏口8 6.0000000 -13.38979009 25.389790 0.9891774
裏口10-裏口9 -0.6666667 -20.05645676 18.723123 1.0000000
いずれにも有意差はでない。
ここで、結論　：　ド底辺シリツ医大の裏口バカは均等にバカであるｗｗｗｗ

662:卵の名無しさん
18/05/07 00:18:37.72 /y3oEDZQ.net
>>654
ド底辺シリツ医大卒の方のコメントはまず
>558に答えてからにしていただきたい。
556再掲
ド底辺シリツ医大卒には数式や英文のある問題は無理みたいだなぁ。
これなら答えられるかな？
URLﾘﾝｸ(imagizer.imageshack.com)

Xの先輩Yは医師である。
Yは真正の裏口入学（ガチの裏）と評価される学生Zを知っている。
Zの入学した大学をガチ裏医大と呼ぶことにする。
Zが１回生から留年を繰り返すことを知っているのでYとZは同期入学であると思われる。
問題：Xの入学した大学はどこか？

663:卵の名無しさん
18/05/07 08:22:15.67 kSVh+EFE.net
↑
ウリュウ先輩医師免許見せてくれ
ないんでしょ？
なんで勉強しないの？

664:卵の名無しさん
18/05/07 08:40:56.83 /y3oEDZQ.net
裏口バカの入学後の偏差値の変遷を以下とするシミュレーションで
1年度 2年度 3年度 4年度 5年度 6年度
裏口1 35 11 37 16 40 27
裏口2 51 38 55 34 35 49
裏口3 46 39 58 37 33 63
裏口4 50 40 31 33 37 45
裏口5 42 43 25 41 49 17
裏口6 51 46 41 35 38 20
裏口7 30 50 33 42 30 39
裏口8 39 61 26 39 47 30
裏口9 41 42 58 41 44 56
裏口10 54 49 53 49 45 28
学年があがるにつれて成績が向上しているといえるか検定してみると、片側検定でしか有意差がでないので
経営者は裏口を1人抹消することで両側検定でも有意差がでるようにしようと考えた。
国試にすら受かりそうものない裏口バカを留年させて学費を搾り取ってから放り出すという留年ビジネスモデルからの発想である。
実例の報告（　明らかにおかしなバカ学生　）は、これね　URLﾘﾝｸ(imagizer.imageshack.com)
さて、どの裏口学生を除外して検定すれば両側検定でも有意差をだすことができるか、そのときのｐ値はいくらになるか述べよ。

665:卵の名無しさん
18/05/07 08:51:47.81 /y3oEDZQ.net
>>663
誰だよ、それ？
ド底辺シリツ医大卒ってどうして数字や英語にはコメントできないの？
馬鹿なの？
馬鹿なのに入れた大学ってどこ？
ここ？
URLﾘﾝｸ(imagizer.imageshack.com)
英語も数学のどちらもが入試にないって考えられないのだが、
馬鹿なのにどうして大学にはいれたの？
ひょっとして、これ↓　？？

666:卵の名無しさん
18/05/07 08:52:06.09 /y3oEDZQ.net
□□□□□□□■□□□□□□□□□
■■■■■■■■■■■■■■■■□
□□□□□□□□□□□□□□□□□
□□□■■■■■■■■■■□□□□
□□□■□□□■□□□□■□□□□
□□□■■■■■■■■■■□□□□
□□□■□□□■□□□□■□□□□
□□□■■■■■■■■■■□□□□
□□□□□□□■□□□□□□□□□
□□■■■■■■■■■■■■□□□
□□□□□□□■□□□□□□□□□
■■■■■■■■■■■■■■■■□
□□□□□■□□■□□□□□■□□
■■■■■□□□□■■□□■□□□
□□□□■■■■□□■■■□□□□
□□■■■□□□□□□□■■■■□
□□□□□□□□□□□□□□□□□
□□□□□□□□□□□□□□□□□
□□■■■■■■■■■■■■□□□
□□■□□□□□□□□□□■□□□
□□■□□□□□□□□□□■□□□
□□■□□□□□□□□□□■□□□
□□■□□□□□□□□□□■□□□
□□■□□□□□□□□□□■□□□
□□■□□□□□□□□□□■□□□
□□■□□□□□□□□□□■□□□
□□■□□□□□□□□□□■□□□
□□■□□□□□□□□□□■□□□
□□■□□□□□□□□□□■□□□
□□■■■■■■■■■■■■□□□ 👀
Rock54: Caution(BBR-MD5:1341adc37120578f18dba9451e6c8c3b)

667:卵の名無しさん
18/05/07 08:53:42.07 /y3oEDZQ.net
>>663
＞なんで勉強しないの？
ド底辺シリツ医大の裏口バカの言葉とは思えんなぁ。
だからこそ裏口バカの実証でもあるんだが。

さて、第二法則を検証してみましょう。
あんた、どこ卒業？

668:卵の名無しさん
18/05/07 08:56:20.76 /y3oEDZQ.net
>>663
公的書類をアップロードすると悪用されるから常識人はアップロードしない。
ド底辺シリツ医大の卒業証書は公的機関の書類ではないから狭義の公的書類にはあたらない。
しかも、裏口バカの証だから、誰も悪用することはない。
卒業証書をアップロードしてみろよ。
きっと、すごいとこ出てますね、と受けるぞ（笑）

669:卵の名無しさん
18/05/07 10:46:57.37 iaev24Ml.net
連休明けは内視鏡は検診も外来予約も少なくて色素散布やNBI拡大
に時間がかけられて( ・∀・)ｲｲ!!。
忙しすぎるのも暇すぎるのも苦痛だな。
尤もド底辺シリツ医大卒は馬鹿すぎてお話にならない。
一次方程式で解決できる問題ができないバカはまあ、普通にいるだろう。
ところが、ド底辺シリツ医大卒は
付与の条件では計算できないと断言しちゃうんだよね。
馬鹿すぎる。
URLﾘﾝｸ(imagizer.imageshack.com)
こんな算数もできないなんて馬鹿なのだろうか？
馬鹿なのにどうして大学に入れるの？
中学数学の問題だから高校入試ですら落ちても不思議ないのだが。
こんな馬鹿なのでどうしてド底辺シリツとはいえ、
大学に入れるわけ？
やっぱり、あれ？
,二　　　　　|　￣ヽ　　　　. ／〃　　　-┼─　　
　　）　　　　|＿__.　　　　　（　　　　　　レ--、　
　.ノ　　　　　＿_）　　　　　＼.　　　　　　＿ノ .　

670:卵の名無しさん
18/05/07 11:53:15.91 iaev24Ml.net
1ヶ月の禁酒でHDLが95まで下がったので禁酒から節酒に変更。
行きつけのステーキハウスでワイン飲んで帰るのを再開。
ロック好きで煙草嫌いの店長と懇意になったのでTボーンステーキを持ち帰らせてもらった。

671:卵の名無しさん
18/05/07 12:10:50.53 iaev24Ml.net
227 卵の名無しさん sage 2018/04/14(土) 00:12:05.95 ID:qlygPWl6
私立医は、3段論法ができない。
A → B、B → C、
よってA → Cになる。
を何回やってもできない。
アタマの中の線が繋がらない。
というのを試してみよう。
まず、ド底辺シリツ医大卒の投稿を確認。
URLﾘﾝｸ(imagizer.imageshack.com)

Xの先輩Yは医師である。
Yは真正の裏口入学（ガチの裏）と評価される学生Zを知っている。
Zの入学した大学をガチ裏医大と呼ぶことにする。
Zが１回生から留年を繰り返すことを知っているのでYとZは同期入学であると思われる。
問題：Xの入学した大学はどこか？

672:卵の名無しさん
18/05/07 23:35:40.63 pX7WtrAv.net
この時期の私立医は潤っている。
受験生からまきあげた入学金、授業料、そして、裏金！
私立医理事の懐はポカポカと暖かい。

673:卵の名無しさん
18/05/08 00:51:31.54 4Ru4wKk7.net
多重比較のネタ
分散分析でfamilywiseの有意差はないが、
Bonferroni補正（またはTukey法）のpairwiseでは有意差がでる傾向付きデータを作ってみた。
1年度 2年度 3年度 4年度 5年度 6年度
裏口1 37 37 55 45 47 20
裏口2 36 41 42 36 49 28
裏口3 53 32 63 33 45 21
裏口4 39 40 36 28 53 32
裏口5 63 55 54 46 43 56
裏口6 44 50 46 48 28 43
裏口7 35 50 23 42 57 33
裏口8 35 40 43 51 32 35
裏口9 47 37 38 34 16 25
裏口10 48 55 45 36 35 43
URLﾘﾝｸ(i.imgur.com)
ド底辺シリツ医大卒は均質に裏口バカであると分散分析で結論されても
個々に比較してみると有意差のある「ガチの裏」学生が紛れているのに似ているかもしれん。
ガチの裏の実在を裏付ける投稿はこれ。
URLﾘﾝｸ(imagizer.imageshack.com)

674:卵の名無しさん
18/05/08 07:07:56.12 jj1SzCmg.net
また２４時間体制で
医師真似事務員バイトの
ウリュウヒロユキ先輩が一人で多レス
国家試験の勉強しないの？
お医者さんならなくていいの？

675:卵の名無しさん
18/05/08 11:09:08.66 C/27kPTH.net
私立医の理事になりたい！

676:卵の名無しさん
18/05/08 13:21:28.05 4Ru4wKk7.net
>>675
２０億くらい寄付すればなれんじゃないの？

677:卵の名無しさん
18/05/08 15:44:44.35 m+RU4JfA.net
金でなれるのなら
２３年も浪人しねえよなあ
ウリュウヒロユキ先輩よー

678:卵の名無しさん
18/05/08 16:28:38.03 pUoKvWmt.net
ウリュウヒロユキ先輩は
金もねえし、そもそも根本的に
とても頭悪いからな
だからお医者さんになれないよ

679:卵の名無しさん
18/05/08 16:31:15.30 nkl59mDo.net
ん？
でもウリュウヒロユキ先輩、なんかの給与明細みたいなのあげて
おれの収入よん
って
得意げだったぞ
ただし、名前とか、支払い元とか、大事なところは全部隠してたけど

680:卵の名無しさん
18/05/08 16:34:12.31 HNS7p4Dq.net
>>679
ヒント
ウリュウヒロユキ先輩はお医者さん違う
ウリュウヒロユキ先輩は病院医療事務員バイト
ウリュウヒロユキ先輩はお医者さん達の明細を扱う
その明細書はウリュウヒロユキ先輩のものではない
ウリュウヒロユキ先輩があげた明細、どこの誰のものか、全部隠されていた

681:卵の名無しさん
18/05/08 16:36:56.76 EM/yVo/d.net
>>680
うむ、よくわかりました！
ときどき内視鏡検査の初見あげてるけど、
まあ、ウリュウヒロユキ先輩、医療事務員なら
あげるの簡単だわね
色々隠さにゃならんけどね

682:卵の名無しさん
18/05/08 16:39:52.74 Vc6VgPUW.net
やっぱりウリュウヒロユキはお医者さんと違うよな
算数とか貼ったり、裏だの底辺だの貼る暇あるなら
国家試験の勉強したらいいのに

683:卵の名無しさん
18/05/08 19:27:18.28 rRabk4jB.net
国立公立ったって、
佐賀やら香川、島根、福島とか言われると、
ぶっちゃけ日医の方が上かもとかなるわな。
俺はアホ私立なんてトンデモだし、
カネもないし、
ひたすら勉強してたけど。
上位宮廷落ちて泣く泣く中堅上位で人生諦めた。
大バカ私立でロンダって
東大卒でござーいとかいっぱいるけど、
あのバカエネルギーはどこから湧いてくるのか？
俺とは全く別の世界だ。

684:卵の名無しさん
18/05/08 20:03:34.29 4Ru4wKk7.net
多重比較の勉強がてらに tukeyやScheffe'をpairwiseで表示させる関数をかいて実行してみた。
> pairwise.tukey.test(re.aov)
学生1 学生2 学生3 学生4 学生5 学生6 学生7 学生8 学生9
学生2 1 - - - - - - - -
学生3 1 1 - - - - - - -
学生4 1 1 1 - - - - - -
学生5 0.9984 1 1 0.9994 - - - - -
学生6 1 1 1 1 0.9988 - - - -
学生7 0.7415 0.5127 0.4934 0.687 0.2569 0.7238 - - -
学生8 0.7238 0.9002 0.9106 0.7758 0.9893 0.7415 0.0233 - -
学生9 0.9999 1 1 1 1 0.9999 0.3828 0.9583 -
学生10 1 0.9979 0.9973 0.9999 0.9583 1 0.9451 0.4185 0.9893
> pairwise.scheffe.test(re.aov)
学生1 学生2 学生3 学生4 学生5 学生6 学生7 学生8 学生9
学生2 1 - - - - - - - -
学生3 1 1 - - - - - - -
学生4 1 1 1 - - - - - -
学生5 0.9999 1 1 0.99996 - - - - -
学生6 1 1 1 1 0.99993 - - - -
学生7 0.95133 0.8628 0.85272 0.93468 0.67402 0.94616 - - -
学生8 0.94616 0.98712 0.98885 0.96059 0.99914 0.95133 0.19761 - -
学生9 1 1 1 1 1 1 0.78397 0.99574 -
学生10 1 0.99986 0.99982 1 0.99574 1 0.99401 0.80839 0.99914
> with(mUG,pairwise.t.test(成績,学生,p.adj = 'bonferroni'))

685:卵の名無しさん
18/05/08 21:56:06.44 Vc6VgPUW.net
そんなの国試浪人には無駄だろ
ウリュウ先輩！
仮にウリュウが医師になってもそんなん別に必要ねえし

686:卵の名無しさん
18/05/08 23:02:41.96 5LiD54uP.net
今年も国試受験放棄かな？

687:卵の名無しさん
18/05/08 23:08:32.49 x1A6UYR2.net
>>683
高額な授業料を払えない受験生を排除した入試制度を
行っている時点で私立を国立と比較するのは無理。
国立と私立は似て非なるもの。

688:卵の名無しさん
18/05/09 08:49:10.46 Y8/nf4t9.net
ウリュウ先輩よー、
テメエがお医者さんになれないからって
私立の学校は裏に違いないって…
妄想つーか言い掛かりだろ、それw
仮にだよ、万が一にも裏があるとしても
ウリュウ的には難しい難しい難しい難しい難しい難しい、留年制度をクリアして
(因みにウリュウは12年在校)
ウリュウ的には難しい難しい難しい難しい難しい難しい、医師国家試験パスしたわけで
(因みにウリュウは23回失敗)
それはどーセツメーすんだよ？
な、ウリュウさん、真っ青だろ？

689:卵の名無しさん
18/05/09 09:45:48.55 t+9y5JlN.net
ウリュウヒロユキよ
医師免許見せてみろ(^^)
あははははははははははははははははははははははははははははははは
パワハラか、
あははははははははははは
いや、国試浪人いじめだ
あははははははははははははははははははははははははははははははは

690:卵の名無しさん
18/05/09 10:54:46.83 wqbvuhXQ.net
私立医の理事になって高額授業料(と裏金)でホクホク暮らしたい！

691:卵の名無しさん
18/05/09 14:12:31.81 PkVVnMng.net
なれば？
あんた事務員くらいしか出来んやん
医師免許あらへんやろ
看護婦も無理やし
免許要るし
まあ裏金なんて存在せんけどな

692:卵の名無しさん
18/05/09 14:26:18.57 L5gMx8M1.net
>>691
第三法則実証乙。
ド底辺シリツ医大卒の方のコメントはまず
>558に答えてからにしていただきたい。
556再掲
ド底辺シリツ医大卒には数式や英文のある問題は無理みたいだなぁ。
これなら答えられるかな？
URLﾘﾝｸ(imagizer.imageshack.com)

Xの先輩Yは医師である。
Yは真正の裏口入学（ガチの裏）と評価される学生Zを知っている。
Zの入学した大学をガチ裏医大と呼ぶことにする。
Zが１回生から留年を繰り返すことを知っているのでYとZは同期入学であると思われる。
問題：Xの入学した大学はどこか？

693:卵の名無しさん
18/05/09 14:33:01.50 L5gMx8M1.net
５月になったのに日当直でインフルエンザを経験した。
医療関係者で周囲にインフルエンザが発生したので心配で受診した、というバイアスのかかった患者
が時間外に受診するので、検査前確率を1/10から9/10とすることにする。
迅速キットの感度を０．８０、特異度を０．９５としてグラフにしてみた。
URLﾘﾝｸ(i.imgur.com)
ここで問題。
陽性適中率と陰性適中率が等しくなるのは検査前確率がいくつのときか述べよ。

694:卵の名無しさん
18/05/09 14:41:07.35 L5gMx8M1.net
>>693
面白いのが偽陽性率と陰性適中率が等しくなる場合だな。
検査前確率がその値であれば、検査する意味が全くなくなるのだから。
どこの底辺シリツ医大進学で、患者からも同業者からも裏口バカと蔑まれて医師である価値が０になるのに等しいかを求めよという問題に相当するな。
それ以下が、底辺シリツ医大でなくて、ド底辺シリツ医大と呼ぶに相応しい(笑)

695:卵の名無しさん
18/05/09 16:22:59.05 L5gMx8M1.net
>>691
事務員といればこれね。
ガチの裏の実在を裏付ける投稿はこれ。
URLﾘﾝｸ(imagizer.imageshack.com)
ド底辺シリツ医大卒の当事者も「ガチの裏」と裏口入学の存在を肯定している。

696:卵の名無しさん
18/05/09 16:30:03.85 0vbkJxem.net
ウリュウヒロユキよー妄想書くな
医師免許見せてみろ(^^)
無理だローからネタでも貼れよ
いつかみたいに
単なる病院のフートーの写真で、
ここを卒業した！証拠だ！
なんて、俺らを笑かしたネタくらいの事貼れたら
許してやらんことも無いのでね

697:卵の名無しさん
18/05/09 16:32:28.22 rlTA29B8.net
馬鹿と鋏は使いようというが、
ハサミは便利だがウリュウヒロユキは
なんも使い道無いぜ？
ウリュウヒロユキ先輩はハサミ以下ってことですよー

次ページ