当直医のスレ Part.4

1 ：卵の名無しさん：2015/12/24(木) 07:28:57.15 ID:sxRo97i90.net

こんばんは、当直医さん
ご苦労さまです。
ゆっくり寝てくださいね

問題は過去を克服することではありません。
さようなことができるわけはありません。
後になって過去を変えたり、起こらなかったことにするわけにはまいりません。
しかし過去に目を閉ざす者は結局のところ現在にも盲目となります。(ヴァイツゼッカー)

http://imgur.com/Ku3BD42.jpg

※前スレ
当直医のスレ
http://anago.2ch.net/test/read.cgi/hosp/1431298694/
当直医のスレ Part.2
http://anago.2ch.net/test/read.cgi/hosp/1436826336/
当直医のスレ Part.3
http://potato.2ch.net/test/read.cgi/hosp/1441603966/

855 ：卵の名無しさん：2016/04/30(土) 05:42:22.33 ID:TaIGgYxV.net

>>853
職責の自覚があるからだろう。

856 ：卵の名無しさん：2016/04/30(土) 06:19:14.07 ID:cpfRIQip.net

自称医科歯科大卒業ジイさんみたいに
中卒ジイさんが医師きどり(^^)

ていうかさ、
毎日普通に医学と接してたら、裏口なんかないの、分かるはずだろ？
底辺とかいうけどぉまえは中卒ジイさんだよな？
朝から晩まで2ちゃんで遊んでる身分の感覚で
話ししてほしくねえよな
自称医科歯科大卒業基準の妄想書くなよな

そんな事書いてるからいつまでも下の下扱いなんだよ

おまえ、そう、自称医科歯科大卒業ジイさんより下は
この世に存在しないのです

自称医科歯科大卒業ジイさん以下などありませんｗ

な訳で、なにあっても安心してください！

僕らの下には いつまでも
自称医科歯科大卒業ジイさんが居ますよ！

857 ：卵の名無しさん：2016/04/30(土) 07:49:06.28 ID:bIwKIl3C.net

当直の先生方へ

当直室で抜くのは止めてください。
マジでイカ臭いです。

連休の当直の時は匂いが部屋にこもるので
マジで止めて下さい。

翌日の当直医のことも少しは考えて下さい。

858 ：卵の名無しさん：2016/04/30(土) 07:55:24.62 ID:GxCmp1jd.net

当直中に抜く？
そんなことするのか？
下の下だ。
中卒ジイさんの思考そのものだな。

859 ：卵の名無しさん：2016/04/30(土) 13:24:10.79 ID:bjeJeWZy.net

>>858
それは裏口バカの所作。
国立卒は>812

860 ：卵の名無しさん：2016/04/30(土) 17:50:34.36 ID:0GOeqLYO.net

>>858
旧帝大の奴らも寝当直で取り合えず抜くっていってたよ
家だと家族がいてエロビ見れないらしい

861 ：卵の名無しさん：2016/04/30(土) 20:00:57.35 ID:NOfLNGuZ.net

増税不要。
経営者、医師、看護師の減給して、内部留保を解放して、介護師と保育士の給料毎月10万円上げれば、それで解決。

862 ：卵の名無しさん：2016/04/30(土) 21:06:01.69 ID:fm+yeOfV.net

GW全部当直で埋まってるわ

中日でソープ行きたい

863 ：卵の名無しさん：2016/04/30(土) 21:31:19.28 ID:TaIGgYxV.net

底辺シリツと統計の共通点:
Garbage In, Garbage Out.

そこで問題。

二大馬鹿シリツ医大を両方受験した者の合否判定累積集計で
次のデータが得られたとする。
どちらが馬鹿かに統計的有意差があるか検定せよ。

↓馬鹿先医大　低能医大→　合格　　不合格
　　合格　　　　　　　　　158　　　515
　　不合格　　　　　　　　290　　　1134

864 ：卵の名無しさん：2016/05/01(日) 07:41:55.21 ID:g/zEjt2u.net

あ、また自称医科歯科大卒業ジイさんだ
中卒ジイさんが医師きどり(^^)

ていうかさ、
毎日普通に医学と接してたら、裏口なんかないの、分かるはずだろ？
底辺とかいうけどぉまえは中卒ジイさんだよな？
朝から晩まで2ちゃんで遊んでる身分の感覚で
話ししてほしくねえよな
自称医科歯科大卒業基準の妄想書くなよな

そんな事書いてるからいつまでも下の下扱いなんだよ

おまえ、そう、自称医科歯科大卒業ジイさんより下は
この世に存在しないのです

自称医科歯科大卒業ジイさん以下などありませんｗ

な訳で、なにあっても安心してください！

僕らの下には いつまでも
自称医科歯科大卒業ジイさんが居ますよ！

865 ：卵の名無しさん：2016/05/01(日) 08:26:39.19 ID:/8Mjz0Iz.net

>>861
俺は医科歯科爺さんじゃないけど
高額な授業料を払えない受験生を締め出した入学試験を行ってる時点で
もうすでに裏口みたいなものだよ。

866 ：卵の名無しさん：2016/05/01(日) 13:14:55.51 ID:g/zEjt2u.net

奨学金知らないとは
自称医科歯科大卒業ジイさんと認定されてもいいのかな？

867 ：卵の名無しさん：2016/05/01(日) 14:33:56.89 ID:/8Mjz0Iz.net

>>866
奨学金とか手続きが面倒くさいやん。
つうか初めから国立に楽勝で受かるのに
なんでそんな面倒くさいことをしてまで
私立に行かんといけんのw

868 ：卵の名無しさん：2016/05/01(日) 14:40:33.92 ID:LCG0yVPA.net

このバカ自分で何言ってるかわかってないんだろうな。

869 ：卵の名無しさん：2016/05/01(日) 16:25:57.30 ID:/8Mjz0Iz.net

>>868

だって馬鹿しかいない２chの住人の書き込みだもの･････

みつお

870 ：卵の名無しさん：2016/05/01(日) 17:04:28.75 ID:PCt7a9L6.net

だってそいつは自称医科歯科大卒業ジイさんだもの

みつお


だってしょせんは中卒バカだもの

みつお

871 ：卵の名無しさん：2016/05/01(日) 17:05:30.90 ID:PCt7a9L6.net

連休でも自称医科歯科大卒業ジイさんがいてるのか？
相変わらず、中卒ジイさんが医師きどり(^^)

ていうかさ、
毎日普通に医学と接してたら、裏口なんかないの、分かるはずだろ？
底辺とかいうけどぉまえは中卒ジイさんだよな？
朝から晩まで2ちゃんで遊んでる身分の感覚で
話ししてほしくねえよな
自称医科歯科大卒業基準の妄想書くなよな

そんな事書いてるからいつまでも下の下扱いなんだよ

おまえ、そう、自称医科歯科大卒業ジイさんより下は
この世に存在しないのです

自称医科歯科大卒業ジイさん以下などありませんｗ

な訳で、なにあっても安心してください！

僕らの下には いつまでも
自称医科歯科大卒業ジイさんが居ますよ！

872 ：卵の名無しさん：2016/05/01(日) 17:21:17.11 ID:YUX289aB.net

底辺私立医大卒は
　馬鹿は死ななきゃ治らない
の対偶を正答できません。

http://i.imgur.com/XBFnEcU.jpg
http://i.imgur.com/EqONeez.jpg

シリツ卒のためにわかりやすい類題にしてみました。

　医者はシリツ卒なら馬鹿である
の対偶を述べよ。

873 ：卵の名無しさん：2016/05/01(日) 18:30:22.62 ID:PCt7a9L6.net

>>782
自称医科歯科大卒業ジイさん、
何度も答えられてるだろう
いいかげん、認めなよ、な？

ていうかさ、
毎日普通に医学と接してたら、裏口なんかないの、分かるはずだろ？
底辺とかいうけどぉまえは中卒ジイさんだよな？
朝から晩まで2ちゃんで遊んでる身分の感覚で
話ししてほしくねえよな
自称医科歯科大卒業基準の妄想書くなよな

そんな事書いてるからいつまでも下の下扱いなんだよ

おまえ、そう、自称医科歯科大卒業ジイさんより下は
この世に存在しないのです

自称医科歯科大卒業ジイさん以下などありませんｗ

な訳で、なにあっても安心してください！

僕らの下には いつまでも
自称医科歯科大卒業ジイさんが居ますよ！

874 ：卵の名無しさん：2016/05/02(月) 07:14:03.74 ID:7mMpzIxG.net

## 当直が暇だったのでJonckheere検定
## http://d.hatena.ne.jp/ryamada22/20070918/1189988838
## のRでのスクリプトを作ってみた。

## 各群成績のvectorデータ(大きさは違ってもよい）からなるリストLを与えて
## Jonckheere(L)でp値がでる。
## 底辺シリツ医大の成績リストがあれば検定できる

##

875 ：卵の名無しさん：2016/05/02(月) 07:14:17.07 ID:7mMpzIxG.net

Jonckheere<-function(L){
a<-length(L)
n=double(a)
for(i in 1:a){
n[i]<-length(L[[i]])
}
N<-sum(n)

f<-function(A,B){
a<-length(A) ; b<-length(B) ;det<-0
for(i in 1:a){
for(j in 1:b){
det<- det+ifelse(A[i]==B[j],0.5,A[i]>B[j])
}
}
return(det) }
g<-function(L){ #L=list(A1,,,,Aa),A1 > A2 > A3,..,> Aa : vector
a<-length(L)
comb<-combn(1:a,2)
con<-ncol(comb)
J=0
for(i in 1:con){
J<-J+f(L[[comb[1,i]]],L[[comb[2,i]]])
}
return(J) }
J<-g(L)
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(Z,lower.tail=FALSE)
return(p.value) }

876 ：卵の名無しさん：2016/05/02(月) 07:37:36.09 ID:xQZUbLiw.net

>>784 >>785
中卒バカジイさんがなんの当直出来るってんだよ笑
医者板で妄想書くなよ
カスジイさん

877 ：卵の名無しさん：2016/05/02(月) 07:38:37.09 ID:xQZUbLiw.net

自称医科歯科大卒業がw
そう、中卒ジイさんが医師きどり(^^)

ていうかさ、
毎日普通に医学と接してたら、裏口なんかないの、分かるはずだろ？
底辺とかいうけどぉまえは中卒ジイさんだよな？
朝から晩まで2ちゃんで遊んでる身分の感覚で
話ししてほしくねえよな
自称医科歯科大卒業基準の妄想書くなよな

そんな事書いてるからいつまでも下の下扱いなんだよ

おまえ、そう、自称医科歯科大卒業ジイさんより下は
この世に存在しないのです

自称医科歯科大卒業ジイさん以下などありませんｗ

な訳で、なにあっても安心してください！

僕らの下には いつまでも
自称医科歯科大卒業ジイさんが居ますよ！

878 ：卵の名無しさん：2016/05/02(月) 17:23:38.63 ID:7mMpzIxG.net

http://2chreport.net/rank_01.htm
のシリツ医大と学費の関係は強い負の相関関係がある。
http://i.imgur.com/2aWnjOK.jpg
学費=13394.6 -163.2*偏差値
相関係数　-0.8906137 95%信頼区間[-0.9477572 -0.7780874]

このモデルを用いると
国立大学医学部の学費350万円は偏差値いくつに相当するか、95%信頼区間を計算してみた。
偏差値76.226相当　 95%信頼区間は[71.77908, 80.67292]

ここで裏口バカに問題：
(1)偏差値45の裏口バカが払う学費の95%信頼区間を述べよ。
(2)1億円かかった裏口バカの偏差値の95%信頼区間を述べよ。

879 ：卵の名無しさん：2016/05/02(月) 20:42:51.14 ID:xQZUbLiw.net

↑
お、自称医科歯科大卒業だ！！
中卒ジイさんが医師きどり(^^)

ていうかさ、
毎日普通に医学と接してたら、裏口なんかないの、分かるはずだろ？
底辺とかいうけどぉまえは中卒ジイさんだよな？
朝から晩まで2ちゃんで遊んでる身分の感覚で
話ししてほしくねえよな
自称医科歯科大卒業基準の妄想書くなよな

そんな事書いてるからいつまでも下の下扱いなんだよ

おまえ、そう、自称医科歯科大卒業ジイさんより下は
この世に存在しないのです

自称医科歯科大卒業ジイさん以下などありませんｗ

な訳で、なにあっても安心してください！

僕らの下には いつまでも
自称医科歯科大卒業ジイさんが居ますよ！

880 ：卵の名無しさん：2016/05/02(月) 20:44:30.58 ID:1x/YvslF.net

歯科医は馬鹿だらけ

881 ：卵の名無しさん：2016/05/02(月) 20:46:19.02 ID:xQZUbLiw.net

バカでも、自称医科歯科大卒業ジイさんより下はいません！

ていうかさ、
毎日普通に医学と接してたら、裏口なんかないの、分かるはずだろ？
底辺とかいうけどぉまえは中卒ジイさんだよな？
朝から晩まで2ちゃんで遊んでる身分の感覚で
話ししてほしくねえよな
自称医科歯科大卒業基準の妄想書くなよな

そんな事書いてるからいつまでも下の下扱いなんだよ

おまえ、そう、自称医科歯科大卒業ジイさんより下は
この世に存在しないのです

自称医科歯科大卒業ジイさん以下などありませんｗ

な訳で、なにあっても安心してください！

僕らの下には いつまでも
自称医科歯科大卒業ジイさんが居ますよ！

882 ：卵の名無しさん：2016/05/03(火) 19:46:15.20 ID:I0M50Oq/.net

GWの当直は最高だ
お気に入りのエロビみて抜きまくれる

883 ：卵の名無しさん：2016/05/03(火) 21:45:26.49 ID:+veTFVyp.net

去年までは、GWは9コマ中8コマとか2次救急引き受けてたけど、今年は本業専念
結局、連休中に依頼さえあれば本業の方がコスパいいからなあ

884 ：卵の名無しさん：2016/05/04(水) 21:32:38.31 ID:YgVzwPVz.net

Jonckheere<-function(L){
a<-length(L)
n=double(a)
for(i in 1:a){
n[i]<-length(L[[i]])
}
N<-sum(n)

f<-function(A,B){
a<-length(A) ; b<-length(B) ;det<-0
for(i in 1:a){
for(j in 1:b){
det<- det+ifelse(A[i]==B[j],0.5,A[i]>B[j])
}
}
return(det) }
g<-function(L){ #L=list(A1,,,,Aa),A1 > A2 > A3,..,> Aa : vector
a<-length(L)
comb<-combn(1:a,2)
con<-ncol(comb)
J=0
for(i in 1:con){
J<-J+f(L[[comb[1,i]]],L[[comb[2,i]]])
}
return(J) }
J<-g(L)
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),lower.tail=FALSE)
return(p.value) }

885 ：卵の名無しさん：2016/05/05(木) 06:49:25.94 ID:ijZvpFJp.net

ていうかさ、
毎日普通に医学と接してたら、裏口なんかないの、分かるはずだろ？
底辺とかいうけどぉまえは中卒ジイさんだよな？
朝から晩まで2ちゃんで遊んでる身分の感覚で
話ししてほしくねえよな
自称医科歯科大卒業基準の妄想書くなよな

そんな事書いてるからいつまでも下の下扱いなんだよ

おまえ、そう、自称医科歯科大卒業ジイさんより下は
この世に存在しないのです

自称医科歯科大卒業ジイさん以下などありませんｗ

な訳で、なにあっても安心してください！

僕らの下には いつまでも
自称医科歯科大卒業ジイさんが居ますよ！

886 ：卵の名無しさん：2016/05/06(金) 19:30:44.21 ID:ArCtR/yX.net

ていうかさ、
毎日普通に私立医大卒の医者と接してたら、裏口なんかあるの、分かるはずだろ？

887 ：卵の名無しさん：2016/05/06(金) 22:59:51.50 ID:CxjRl3O/.net

>>886
まあ。そうだよね。
命題「馬鹿は死ななきゃ治らない」の対偶すら正答できない馬鹿は
まあ、裏口だろうね。

888 ：卵の名無しさん：2016/05/07(土) 07:13:44.07 ID:JtVo4TBP.net

↑
正答
↓

僕らの下には いつまでも
自称医科歯科大卒業ジイさんが居ますよ！

満点！

889 ：卵の名無しさん：2016/05/07(土) 07:29:07.38 ID:6Dom2/AR.net

>>887
自称医科歯科大卒業ジイさんか？
中卒ジイさんが医師きどりすなよ！(^^)

ていうかさ、
毎日普通に医学と接してたら、裏口なんかないの、分かるはずだろ？
底辺とかいうけどぉまえは中卒ジイさんだよな？
朝から晩まで2ちゃんで遊んでる身分の感覚で
話ししてほしくねえよな
自称医科歯科大卒業基準の妄想書くなよな

そんな事書いてるからいつまでも下の下扱いなんだよ

おまえ、そう、自称医科歯科大卒業ジイさんより下は
この世に存在しないのです

自称医科歯科大卒業ジイさん以下などありませんｗ

な訳で、なにあっても安心してください！

僕らの下には いつまでも
自称医科歯科大卒業ジイさんが居ますよ！

890 ：卵の名無しさん：2016/05/07(土) 12:59:13.20 ID:GyfsSrBp.net

>>886
バカなのはすぐ分かる。
バカが入学できたのは金を積んだからだろうと推測するのは当然。
結局>886の結論に達する。

891 ：卵の名無しさん：2016/05/09(月) 20:03:47.86 ID:em5OI9/z.net

中卒バカなのに他人のバカわかるかよかす

また自称医科歯科大卒業ジイさん、
中卒ジイさんが医師きどり(^^)

ていうかさ、
毎日普通に医学と接してたら、裏口なんかないの、分かるはずだろ？
底辺とかいうけどぉまえは中卒ジイさんだよな？
朝から晩まで2ちゃんで遊んでる身分の感覚で
話ししてほしくねえよな
自称医科歯科大卒業基準の妄想書くなよな

そんな事書いてるからいつまでも下の下扱いなんだよ

おまえ、そう、自称医科歯科大卒業ジイさんより下は
この世に存在しないのです

自称医科歯科大卒業ジイさん以下などありませんｗ

な訳で、なにあっても安心してください！

僕らの下には いつまでも
自称医科歯科大卒業ジイさんが居ますよ！

892 ：卵の名無しさん：2016/05/11(水) 00:03:40.82 ID:8gVIgX3G.net

この計算式の法則が分かったら IQ150

YouTube 『Can You Solve This Intelligence Test? Viral Facebook Puzzle』

6＋4＝210
9＋2＝711
8＋5＝313
5＋2＝37
7＋6＝113
9＋8＝117
10＋6＝416
15＋3＝1218
A＋B＝123

法則が分かれば、A＋B＝123 の “A” と “B” に何が入るかも自ずと理解できる。

893 ：卵の名無しさん：2016/05/11(水) 06:21:44.68 ID:4PlYmecL.net

#　必要な標本数(nA=nB)

# α：第１種過誤、 β：第２種過誤( α　の4~5倍 ) α<0.5,β<0.5 両側検定（片側検定はα→2*α）
# d = (μA-μB)/σ = |qnorm(Q)|*1~2 = 0.1-0.2,0.4-0.5,0.8-0.9
n.size<- function(α,β,d) 2*(abs((qnorm(1-α/2))+abs(qnorm(1-β)))/d)^2

# nsize:整数化　α：有意水準、 b：検出力(1-β) 両側検定（片側検定はα→2*α） : qnorm(1-p)= -qnorm(p)
nsize <- function(α,β,d) ceiling(2*(abs((qnorm(1-α/2))+abs(qnorm(1-β)))/d)^2)

#　必要な標本数(nA≠nB)
# n=nsize(α,β,d)
nbsize <- function(n,nA) n*nA/(2*nA-n)

#　母比率の差の検定
# φ(P)= 2arcsin(sqrt(P), d=|φ(PA)−φ(PB)|　両側検定
phi <- function(P) 2*asin(sqrt(P))
dif <- function(PA,PB) abs(phi(PA)-phi(PB))

#　発症率ｐのa倍の増加の検出に必要なサンプル数 両側検定
ssize <- function(p,a){
nsize(0.05,0.80,sqrt(2)*dif(p*a,p)) #　有意水準5%,検出力80%
}

#　発症率ｐのa倍の増加の検出に必要なサンプル数　片側検定
ssize2 <- function(p,a){
nsize(0.05*2,0.80,sqrt(2)*dif(p*a,p))#　有意水準片側5%,検出力80%
}

#　発症率ｐのa倍の増加の検出に必要なサンプル数 両側検定（片側検定はα→2*α）
ssize3 <- function(p,a,α,β){
nsize(α,β,sqrt(2)*dif(p*a,p)) #　有意水準α,検出力(1-β,βでも可）
}

894 ：卵の名無しさん：2016/05/11(水) 06:24:31.01 ID:4PlYmecL.net

スクリプトをつくったら
Rにpwrという名でパッケージ化されていた。

自作関数n.size(0.05,0.80,0.40)の結果が
pwr.2p.test(h=0.40,sig.level=0.05,power=0.80,alternative="two.sided")
と一致していて正しいスクリプトと確信できた。

内部計算も理解しないクリック猿が多いからな。

895 ：卵の名無しさん：2016/05/11(水) 06:26:46.46 ID:4PlYmecL.net

http://2chreport.net/rank_01.htm
のシリツ医大の偏差値と学費の関係は強い負の相関関係がある。
http://i.imgur.com/2aWnjOK.jpg
学費=13394.6 -163.2*偏差値
相関係数　-0.8906137 95%信頼区間[-0.9477572 -0.7780874]

このモデルを用いると
国立大学医学部の学費350万円は偏差値いくつに相当するか、95%信頼区間を計算してみた。
偏差値76.226相当　 95%信頼区間は[71.77908, 80.67292]

ここで裏口バカに問題：
(1)偏差値45の裏口バカが払う学費の95%信頼区間を述べよ。
(2)1億円かかった裏口バカの偏差値の95%信頼区間を述べよ。

裏口バカは統計も扱えません。
なんせ、
馬鹿は死ななきゃ治らない
の対偶すら正答できなバカだから。

まあ、裏口で入るしかないのがよくわかる。

896 ：卵の名無しさん：2016/05/11(水) 07:22:06.59 ID:t9Vf1ecB.net

そんなことどうでもいい
てか、また嫉みしてるのかよ
自称医科歯科大卒業ジイさん

この自称医科歯科クンって、現実世界じゃどこ行っても負け犬呼ばわりされて
２ちゃんで勝手に「ボクは医科歯科卒です」って演じているだけだろ？
俺たちは実際の医科歯科の医師たちと素晴らしい医療の討論して、
実際の医科歯科のこと理解できてるんだからさ
この自称医科歯科クンとやらも背伸びしたいだけでしょ
許してやってもいいんじゃねえか？
っていうか、この自称医科歯科くんて、なんで医科歯科の名前で暴挙働いてんの？
他学をけなすため？
そんなつまんないことに医科歯科の名前を勝手に使うって、他学じゃなくって、
医科歯科関係各所に失礼だと考えないのかな？
まあここでしか偉そうに出来てない自称医科歯科はともかくさ、
おれの勤務してる病院に、
正真正銘の医科歯科の先生数人いるけど、
こんな自称医科歯科みたいな程度の低いこと
考えてねえぞ
それにその先生、
学会なんか、立派な演題でしゃべってて、そんな先生と
討論したりすること多いんだけど、
ここでネチネチ粘着してる自称医科歯科くん？
その医科歯科クンなんかとじゃ会話内容がマジで雲泥の差って言うか、
比較するのも失礼って感じだね
もちろん専門医も学位もあるから比較対象にすらならんけどな
だから、嘘ついて、医科歯科の名前で悪いことすんのはやめてほしいと思う
医科歯科の先生に対する名誉棄損だな

897 ：卵の名無しさん：2016/05/11(水) 19:34:25.94 ID:4PlYmecL.net

午後から暇だったので非劣性試験のスクリプトを書いてみた。


#pB.starの最尤推定量　H0:pA=pB-Δ　非劣性の検定

pB.star<-function(nA,rA,nB,rB,Dlt){

a<-nA+nB
b<- 0-(nB+nA+rB+rA+Dlt*(nA+2*nB))
c<- nB*Dlt^2+Dlt*(2*rB+nA+nB)+rB+rA
d<- 0-rB*Dlt*(1+Dlt)

v<-(b^3/27)/(a^3)-b*c/(6*a^2)+d/(2*a)
sign<-ifelse(v>0,1,-1)
u<-sign*sqrt( b^2/(9*a^2)-c/(3*a) )

w<-(pi+acos(v/u^3))/3
pB<-2*u*cos(w)-b/(3*a)
return(pB)
}

nA=128 ; rA=101 ; pA=rA/nA
nB=127 ; rB=96 ; pB=rB/nB
Dlt=0.10
pB.star(nA,rA,nB,rB,Dlt) # 正確値
(rA+rB+nA*Dlt)/(nA+nB) # 近似値

.pB<-pB.star(nA,rA,nB,rB,Dlt)
SE<-sqrt( (.pB-Dlt)*(1-.pB+Dlt)/nA + .pB*(1-.pB)/nB )
Z<- (pA-(pB-Dlt))/SE
pnorm(Z,lower.tail=FALSE)

898 ：卵の名無しさん：2016/05/12(木) 07:39:46.70 ID:7SrEYYEE.net

午後どころか、年がら年中暇だよなあんた

毎日毎日、中卒ジイさんってバレてるあんたが医師きどりすんなよ^^)

ていうかさ、
毎日普通に医学と接してたら、裏口なんかないの、分かるはずだろ？
底辺とかいうけどぉまえは中卒ジイさんだよな？
朝から晩まで2ちゃんで遊んでる身分の感覚で
話ししてほしくねえよな
自称医科歯科大卒業基準の妄想書くなよな

そんな事書いてるからいつまでも下の下扱いなんだよ

おまえ、そう、自称医科歯科大卒業ジイさんより下は
この世に存在しないのです

自称医科歯科大卒業ジイさん以下などありませんｗ

な訳で、なにあっても安心してください！

僕らの下には いつまでも
自称医科歯科大卒業ジイさんが居ますよ！

899 ：卵の名無しさん：2016/05/12(木) 09:31:16.22 ID:moM/vOb4.net

>>892
A＋B＝123
（A、Bは正の整数とする）
A＋B＝23
A−B＝1
この連立方程式を解いて
A＝12、B＝11

900 ：卵の名無しさん：2016/05/12(木) 09:50:31.14 ID:moM/vOb4.net

医者はシリツ卒なら馬鹿である
の対偶を述べよ。

医者は馬鹿ではないのならシリツ卒ではない
だと思います

某私立大学付属病院の設備員です

ここを医療機関とは思いたくない、マジレス

過日、床に使用済みの注射針が落ちていました
医療従事者の仕業ではないだろう
※清掃員が日常的に使用済みの注射針回収箱を平積みにして
廃棄物回収カートに積んでいる
針がこぼれる可能性がある

901 ：卵の名無しさん：2016/05/12(木) 13:45:45.53 ID:7SrEYYEE.net

↑
医師でもないあんたには関係無い

で、まさかの、中卒ジイさんが医師きどり(^^)

ていうかさ、
毎日普通に医学と接してたら、裏口なんかないの、分かるはずだろ？
底辺とかいうけどぉまえは中卒ジイさんだよな？
朝から晩まで2ちゃんで遊んでる身分の感覚で
話ししてほしくねえよな
自称医科歯科大卒業基準の妄想書くなよな

そんな事書いてるからいつまでも下の下扱いなんだよ

おまえ、そう、自称医科歯科大卒業ジイさんより下は
この世に存在しないのです

自称医科歯科大卒業ジイさん以下などありませんｗ

な訳で、なにあっても安心してください！

僕らの下には いつまでも
自称医科歯科大卒業ジイさんが居ますよ！

902 ：卵の名無しさん：2016/05/12(木) 14:52:10.10 ID:m9VGu9ny.net

>>900
違います。
医者ならば（シリツ卒ならば馬鹿である）
P→（Q→R）の対偶を答えよというのが問題です。
全体集合は医者ではありません。

馬鹿は死ななきゃ治らない
は
馬鹿であるならは（死なないならば治らない）
という複合文です。

まあ、底辺シリツでは全体集合が馬鹿　というのも一理はあるがｗ

903 ：卵の名無しさん：2016/05/12(木) 15:00:50.05 ID:m9VGu9ny.net

昼休みの薬の説明会で
タケキャブのタケプロンに対する非劣性試験のパンフが配布された。
許容限界値10%でp<0.0001とあった。

具体値が知りたかったのと非劣性試験にしなかったらp値はどうなるか
Rでスクリプト（コアな部分は既出）を組んで計算させてみた。

p=3.747679e-08になった。

許容限界値0として計算しても
p=0.01536で5%水準で有意だったが
商用パンフレットとしても
p<0.0001で非劣性というほうが見栄えがいいんだろうな。

馬鹿シリツならころっと騙されそうだぜ。

904 ：卵の名無しさん：2016/05/20(金) 19:34:19.12 ID:Q9VjJLkG8

test