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

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

[前50を表示]
500:卵の名無しさん
18/05/01 06:30:58.42 UP3hBRO4.net
小学生新聞にも載っていて、小学生でも知っていること。
URLﾘﾝｸ(www.asagaku.com)
朝日小学生新聞の署名記事。
＞成績悪くてもお金で「合格」買う親がいる
だって。
当事者の間では　ガチの裏　と表現されている。
URLﾘﾝｸ(imagizer.imageshack.com)

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

501:卵の名無しさん
18/05/01 06:33:52.34 v/zhryAm.net
>>498
>>475
>>457
>>446
第三法則実証乙。
>417にサクッと答えてみ。
方程式すらいらないから、小学生の問題。

馬鹿なのでしょうか？
馬鹿なのにどうして大学に入れたのでしょうか？
やっぱり、あれかな？
,二　　　　　|　￣ヽ　　　　. ／〃　　　-┼─　　
　　）　　　　|＿__.　　　　　（　　　　　　レ--、　
　.ノ　　　　　＿_）　　　　　＼.　　　　　　＿ノ .

502:卵の名無しさん
18/05/01 07:11:10.65 NcATqiqW.net
ウリュウジイさんの引用参考文献は
こどもしんぶんてか？
お医者さん演じてんだから考えたら？
よりによってこどもしんぶんとか
あ、ウリュウ先輩、
こないだは民放のエンタメバラエティの
お笑いタレントのネタを
重要参考事案にしてなかった？
医師って設定でココに住みたいんやろ？
なのに…
いくらあんたが事務員としても恥ずかしくね？

503:卵の名無しさん
18/05/01 07:26:21.99 UP3hBRO4.net
ド底辺シリツ卒は作話症を合併しているようだな。
ド底辺コルサコフ症候群ｗｗｗ

504:卵の名無しさん
18/05/01 08:04:38.53 bjT8ZRLW.net
俺、兵医補欠だが、お前らに負けてる気がしない。

505:卵の名無しさん
18/05/01 08:14:16.31 Iby7KFg8.net
ウリュウひろゆき先輩
あんたら事務員さんの仲間内ではいいかもだけど
僕ら医学の世界ではね、
・こども新聞に書いてました
とか
・えなりがテレビで言ってました
とか
・2ちゃんで読みました
とか
あかんのよ
やり直しなさい
無理か？
無理だな
やはり

506:卵の名無しさん
18/05/01 10:24:32.75 UP3hBRO4.net
ぷっ

507:卵の名無しさん
18/05/01 10:25:26.63 UP3hBRO4.net
>>504
>417にサクッと答えてみ。
方程式すらいらないから、小学生の問題。

508:卵の名無しさん
18/05/01 10:28:24.40 UP3hBRO4.net
等分散でないときp値は大きくなるか、小さくなるか？
It can go either way.とIntuitive Biostasticsに記述があって
RESEARCH ARTICLE
Why Psychologists Should by Default Use Welch’s t-test
Instead of Student’s t-test
Marie Delacre*, Daniël Lakens† and Christophe Leys*
が参考文献にあがっているので読み始めた。

509:卵の名無しさん
18/05/01 11:05:36.76 gmDPZurB.net
国立医：国家が責任をもって医師を養成する公的機関
私立医：私法人が高利で教育を売る単なる営利私学校

510:卵の名無しさん
18/05/01 14:20:53.03 W1Ln0POm.net
>>508
当該論文を読んでみた。
帰無仮説が正しいときは分散の違いによってｐ値が左右されるが、
帰無仮説が間違いのときは等分散でない方がｐ値は大きくなる。
par(mfrow=c(2,1))
N=1000
n1=10
n2=90
SDR=2
dm=0.5
set.seed(1234)
A=scale(rnorm(N))
B=scale(rnorm(N))*SDR+dm
f2.b <- function(){
a=sample(A,n1)
b=sample(B,n2)
t.test(a,b, var=TRUE)$p.value
}
p.t=replicate (10^4,f2.b())
hist (p.t,main='Student\'s t.test',col=sample(colours(),1))
mean(p.t < 0.05) # power(when dm!=0) or Type I error(when dm=0)
f2.bW <- function(){
a=sample(A,n1)
b=sample(B,n2)
t.test(a,b, var=FALSE)$p.value
}
p.W=replicate (10^4,f2.bW())
hist (p.W,main='Welch\'s t.test',col=sample(colours(),1))
mean(p.W < 0.05) # power(when dm!=0) or Type I error(when dm=0)

511:卵の名無しさん
18/05/01 14:27:43.68 W1Ln0POm.net
>>504
ド底辺シリツ医大卒が
統計の英語教科書を読んで間違いを著者に英文メールして返事をもらえるとは思えない、のだが。(>483　および　>486参照)
誤りの指摘に速攻で対応してくれた著者には感銘した。

512:卵の名無しさん
18/05/01 14:54:27.58 2rx1mUmS.net
↑
そんなことよりあんたお医者さん違うんやろ？
勉強せんとなにしてんの？

513:卵の名無しさん
18/05/01 14:58:16.90 W1Ln0POm.net
Why Psychologists Should by Default Use Welch’s t-test Instead of Student’s t-test
URLﾘﾝｸ(www.rips-irsp.com)
に触発されてシミュレーションの条件（サンプルサイズや分散比）を変えて追試してみた。
Ｒのコードはこれ
ｽﾚﾘﾝｸ(hosp板:474番)
結果にびっくり
URLﾘﾝｸ(i.imgur.com)
あたかもド底辺シリツ医大卒を最高学府を履修したと呼ぶほどの差異に等しい。
Welchのrobustnessに再度感銘した。

514:卵の名無しさん
18/05/01 15:37:51.23 9Y5jukC5.net
失笑w

515:卵の名無しさん
18/05/01 15:47:11.31 gIY1lADB.net
統計インチキ数式やめろ
くだらねー

516:卵の名無しさん
18/05/01 15:50:44.34 9Y5jukC5.net
まあまあ本人もよくわかってないだろうから。ほっといて国試対策しましょう。

517:卵の名無しさん
18/05/01 16:16:39.29 oa7vKHVw.net
憎悪因子、悪化要因
【仮名】ぞうおいんし
【原文】aggravating factor
状態を悪化させるもの。例えば、喫煙は喘息の憎悪因子である。
Weblio辞書より
こんな単語あるって知ってた？

518:卵の名無しさん
18/05/01 16:59:27.14 GYiEDApp.net
東京医大ってどうなん？

519:卵の名無しさん
18/05/01 17:03:34.92 W1Ln0POm.net
数理がよくわからにままに、相関係数の信頼区間を求める関数とつくってみた。
cor.ci <- function(x,y,conf.level=0.95){
cor=cov(x,y)/sd(x)/sd(y)
n=length(x)
lower=tanh(atanh(cor) + qnorm((1-conf.level)/2)/sqrt(n-3))
upper=tanh(atanh(cor) - qnorm((1-conf.level)/2)/sqrt(n-3))
data.frame(lower,cor,upper)
}
x=c(250,220,145,115,230,200,330,400,370,260,270,530,375) # Insulin Sensitivity
y=c(179,183,183,184,184,202,203,218,219,221,231,242,244)/10 # %C20-22 Polyunsaturated Fatty Acids
cor.ci(x,y)
cor.test(x,y)$conf
ある統計量が近似的に正規分布に従う事が分かっている、というのが統計学が気持ち悪い、一因でもあるんだな。
ド底辺シリツ医大卒が気持ち悪いのは裏口バカである、だが。

520:卵の名無しさん
18/05/01 17:05:35.88 gIY1lADB.net
入院しろキチガイ

521:卵の名無しさん
18/05/01 17:11:32.16 9Y5jukC5.net
さて、今日は飲みの日。男子2人と女子2人の勉強仲間と焼肉食うぞい。

522:卵の名無しさん
18/05/01 17:41:08.21 W1Ln0POm.net
ある統計量が近似的に＊＊分布に従う、という記述があればシミュレーションするのが楽しい。
これができるようになって統計の学習が捗るようになった。
cor.sim <- function(n=100,FUN1=runif,FUN2=runif){
x=FUN1(n)
y=FUN1(n)
r=cor(x,y)
atanh(r)
}
par(mfrow=c(2,2))
rz=replicate(10^4,cor.sim())
hist(rz,freq=FALSE,col=sample(colours(),1),main='一様分布 vs 一様分布',xlab='Fisher Z')
rz=replicate(10^4,cor.sim(FUN1=rnorm,FUN2=function(x) rbeta(x,0.5,0.5)))
hist(rz,freq=FALSE,col=sample(colours(),1),main='正規分布 vs Jeffery分布',xlab='Fisher Z')
rz=replicate(10^4,cor.sim(FUN1=rexp,FUN2=function(x) rbeta(x,1,10)))
hist(rz,freq=FALSE,col=sample(colours(),1),main='指数分布 vs ベータ分布',xlab='Fisher Z')
rz=replicate(10^4,cor.sim(FUN1=runif,FUN2=rcauchy))
hist(rz,freq=FALSE,col=sample(colours(),1),main='一様分布 vs コーシー
URLﾘﾝｸ(i.imgur.com)

523:卵の名無しさん
18/05/01 17:44:20.89 W1Ln0POm.net
さすがにコーシー分布 vs コーシー分布でやると正規分布にはならないな。
コーシー分布で中心極限定理が成立のに似ているな。
rz=replicate(10^4,cor.sim(FUN1=rcauchy,FUN2=rcauchy))
hist(rz,freq=FALSE,col=sample(colours(),1),main='コーシー分布vsコーシー分布',xlab='Fisher Z')
グラフはアップロードしないから、自分でＲでやってみると(　・∀・)ｲｲ!!
三人寄れば文殊の知恵というが
ド底辺シリツ医大卒が集まっても馬鹿のままというのに似ているかもね。

524:卵の名無しさん
18/05/01 17:46:54.84 W1Ln0POm.net
このデータを使って、学費と学力の相関係数とその信頼区間を計算してみよう。
慶應義塾学医学部 2051 70
順天堂大学医学部 2090 66
昭和大学医学部 2200 65
東京慈恵会医科大学医学部 2250 69
自治医科大学医学部 2260 66
産業医科大学医学部 2749 65
日本医科大学医学部 2813 66
東京医科大学医学部 2995 64
関西医科大学医学部 3014 65
大阪医科大学医学部 3141 66
東邦大学医学部 3180 62
久留米大学医学部 3237 61
東京女子医科大学医学部 3284 60
日本大学医学部 3310 61
岩手医科大学医学部 3400 60
聖マリアンナ医科大学医学部 3440 58
近畿大学医学部 3580 62
藤田保健衛生大学医学部 3650 60
獨協医科大学医学部 3660 59
帝京大学医学部 3750 59
杏林大学医学部 3755 61
東海大学医学部 3760 61
福岡大学医学部 3770 60
愛知医科大学医学部 3800 59
埼玉医科大学医学部 3800 57
兵庫医科大学医学部 3880 60
北里大学医学部 3890 60
金沢医科大学医学部 3950 58
川崎医科大学医学部 4565 57

525:卵の名無しさん
18/05/01 17:56:36.92 W1Ln0POm.net
線形回帰すると
URLﾘﾝｸ(i.imgur.com)
> cor.ci(dat$tuition,dat$hensa)
lower cor upper
-0.9477572 -0.8906137 -0.7780874
やはり、馬鹿ほど金がかかることが統計処理でも検証された。

526:卵の名無しさん
18/05/01 18:01:22.26 W1Ln0POm.net
回帰直線の傾きが０である、
すなわち、学費と偏差値は無関係である　を帰無仮説にして検定してみよう。
xi=dat$hensa
yi=dat$tuition
is.beta.0<- function(xi,yi){
re=lm(yi~xi)
beta1.hat=re$coef[1]
beta10=0 # 帰無仮説 beta1=0
n=length(xi)
Sxx=var(xi)*(n-1)
Syy=var(yi)*(n-1)
Sxy=cov(xi,yi)*(n-1)
beta1.hat=Sxy/Sxx
Se=Syy - Sxy^2/Sxx
phie=n-2
Ve=Se/phie
t0=(beta1.hat-beta10)/sqrt(Ve/Sxx) ; t0
curve(dt(x,n-2),-5,5,bty='l')
c(p.value=pt(t0,n-2))
}
is.beta.0(xi,yi)
> is.beta.0(xi,yi)
p.value
4.873385e-11
200億年に一度も起こらない、という結果になった。
裏口バカは宇宙誕生以前に確定しているということかｗ

527:卵の名無しさん
18/05/01 18:21:17.25 W1Ln0POm.net
回帰係数が０である、
つまり、馬鹿であることと学費が高いことは無関係である
を帰無仮説にして検定してみる。
> X=c(2051,2090,2200,2250,2260,2749,2813,2995,3014,3141,3180,3237,3284,3310,3400,3440,3580,3650,3660,3750,3755,3760,3770,3800,3800,3880,3890,3950,4565)
> Y=c(70,66,65,69,66,65,66,64,65,66,62,61,60,61,60,58,62,60,59,59,61,61,60,59,57,60,60,58,57)
> r=cov(X,Y)/sd(X)/sd(Y)
> n=length(X)
> pt(r*sqrt(n-2)/sqrt(1-r^2),n-2)
[1] 4.873385e-11
裏口バカは宇宙誕生以前であるという同じ結果となった。

528:卵の名無しさん
18/05/01 18:54:16.21 W1Ln0POm.net
>>512
>483　および　>486参照

529:卵の名無しさん
18/05/01 19:47:08.57 QuYkxScA.net
おやおやウリュウジイさん
今夜もまた勉強せんと変な算数とか
そんなん国試にでねえよ
いつまで病院事務員バイトするつもりやねん
長崎で笑いもんになってんで、アンタ

530:卵の名無しさん
18/05/01 19:53:48.61 1mca8g1y.net
あははははははははははははははははははは

国試浪人ウリュウジイさん
あははははははははははははははははははははははは
医師真似事務員バイト
あははははははははははは
算数貼り
あははははははははははは 👀
Rock54: Caution(BBR-MD5:1341adc37120578f18dba9451e6c8c3b)

531:卵の名無しさん
18/05/01 20:34:37.85 W1Ln0POm.net
Why Psychologists Should by Default Use Welch’s t-test Instead of Student’s t-test
URLﾘﾝｸ(www.rips-irsp.com)
に触発されてシミュレーションの条件（サンプルサイズや分散比）を変えて追試していたら
ノンパラメトリック検定だとどうなるのかやってみたくなった。
順位和検定には等分散性Homoscedasticityは不要と思っている人もいる。
ド底辺シリツ医大卒にはいない、何故なら馬鹿すぎて統計を扱える頭がないからｗｗｗ
平均値は等しいが分散不揃い（１と５）正規分布母集団（帰無仮説：平均値差＝０）から
サンプルサイズ不揃い（４０と２０）で検定してみた。
ランダムサンプリングなのでｐ値は一様分布になるのが正しい検定。
p<0.05で棄却すれば危険率0.05となる。
URLﾘﾝｸ(i.imgur.com)
permutation testで誤判定（p<0.05で15%も棄却してしまう）は意外であった。

532:卵の名無しさん
18/05/01 22:44:37.90 W1Ln0POm.net
母集団が正規分布しないとこどうなるか、試してみた。
平均値は等しいが、分散はことなる二つのβ分布母集団からサンプリングして
平均値は等しいを帰無仮説にして検定してみた。
URLﾘﾝｸ(i.imgur.com)
0.05を有意水準にすると
Wilcoxonの誤棄却率(第1種の過誤)は3割を超える。
等分散性も正規性も不要の触れ込みのBrunner-Munzelも28%の誤棄却率であった。
正規分布であることが確認できないので順位和検定を採用しました、といった捏造が可能になるわけだ。
そうえいば、学力不足を金で補う輩がいるらしいね。
当事者の証言がこれね！
URLﾘﾝｸ(imagizer.imageshack.com)

533:卵の名無しさん
18/05/01 23:35:23.36 W1Ln0POm.net
Homoscedasticity前提のt検定も加えてみた。
正規分布でないのに頑張ってる。
URLﾘﾝｸ(i.imgur.com)

534:卵の名無しさん
18/05/01 23:36:46.96 W1Ln0POm.net
>>533
グラフ差し替え
URLﾘﾝｸ(i.imgur.com)

535:卵の名無しさん
18/05/02 07:00:38.03 n+hyj4Vz.net
>>515
>>486で書いた通り、統計学の教科書にすら間違いがあったりするんだよ。
俺の記述に誤りがあれば指摘してみ。
こういう風に議論をふっかけてきた国立卒の医師もいたぞ
ｽﾚﾘﾝｸ(hosp板:83番)

536:卵の名無しさん
18/05/02 07:11:56.07 n+hyj4Vz.net
>>497
まっとうな医師、医学生とはどういうことか、この投稿が参考になる。
(quote)
私は昭和の時代に大学受験したけど、昔は今よりも差別感が凄く、慶応以外の私立医は特殊民のための特殊学校というイメージで開業医のバカ息子以外は誰も受験しようとすらしなかった。
常識的に考えて、数千万という法外な金を払って、しかも同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んで私立医に行く同級生は一人もいませんでした。
本人には面と向かっては言わないけれど、俺くらいの年代の人間は、おそらくは８－９割は私立卒を今でも「何偉そうなこと抜かしてるんだ、この裏口バカが」と心の底で軽蔑し、嘲笑しているよ。当の本人には面と向かっては絶対にそんなことは言わないけどね。
(unquote)
それにはこういうレスが続いた。
(quote)
それは昭和の時代だけでなく平成の今も同じです。
みんな口に出さないだけで思ってることは同じです。
そういう私も皆の前では本心とは裏腹に「国家試験に受かれば
私立も国立も変わらないよ。」と言ってます。
在日や帰化人を連想させる名前をした医師に「******(伏字は引用者)」と内心では思ってても、
ニコニコしながら話を合わせてるのと同じです。
(unquote)
>でも一生、卒業大学を隠すのは本当に辛い　　　　　
URLﾘﾝｸ(imagizer.imageshack.com)
は
昭和の時代でなく平成の今も、そして次の御世でも同じであることを示していると言えましょう。

537:卵の名無しさん
18/05/02 07:23:52.53 ONEtaj8c.net
また医師真似事務員バイトの
ウリュウジイさん
トーケー貼り付け遊びかよ
悔しいなら遊んでないで
医師国家試験のお勉強しろよ
また落ちたらあんた国試24浪やで

538:卵の名無しさん
18/05/02 11:34:14.05 HRauQnuh.net
392 卵の名無しさん sage 2018/05/01(火) 07:27:50.45 ID:UP3hBRO4
>>392
地域枠と底辺シリツは額に地とか底とか刺青してほしいな。
と開業医スレに書いたら賛同されたｗ
ｽﾚﾘﾝｸ(hosp板:394番)

539:卵の名無しさん
18/05/02 12:03:08.98 hosf7xvD.net
町医者のＨＰには
国立医なら卒業大学書いてるけど、
私立医は書いてない所多いよな。
それが答えだ。
ていうかさ、
毎日普通に医学と接してたら、バカ私立医になんか行くわけないの、分かるはずだろ？
そう、開成・筑駒をはじめとするエリート受験生は私立医なんか蹴るのです！
優秀なる国立医を選ぶのですｗ

540:卵の名無しさん
18/05/02 12:26:52.36 b74NtK+y.net
んーん、失笑w

541:卵の名無しさん
18/05/02 12:29:50.34 HRauQnuh.net
>>539
中学の数学すらできない馬鹿に診てもらいたくないね。
患者から失礼ですがどこの大学卒業ですかと聞かれて医科歯科ですがと答えたら
よかった、自分より馬鹿な医者に診てもらいたくないのでと言われた。
卒業大学重視は教師、特に校長や教頭など管理職に多いね。
馬鹿が推薦とかで裏口入学していることを知っているからだろうな。

542:卵の名無しさん
18/05/02 12:31:10.56 HRauQnuh.net
明らかなバカ学生を入学させるのが底辺シリツ医大。
当事者の投稿がこれね！
URLﾘﾝｸ(imagizer.imageshack.com)

543:卵の名無しさん
18/05/02 12:45:00.31 b74NtK+y.net
ニヤニヤw

544:卵の名無しさん
18/05/02 12:55:22.01 b74NtK+y.net
順調に進級してきたな。よし、あとは国試だ！

545:卵の名無しさん
18/05/02 13:01:06.97 ONEtaj8c.net
国試だってよ、ウリュウジイさん！
あ！嫌なこといってしまったね
ごめんね
そーいやあんたすでに
お医者さんのつもりでしたね

546:卵の名無しさん
18/05/02 14:10:45.47 n+hyj4Vz.net
こんなメルマガがきた。
日本はなぜ、時代遅れな「学歴社会」を捨てようとしないのか？
医学医療に於いては答は簡単だね。
ド底辺シリツ医大が裏口バカを入学させるから
当のご本人が　ガチの裏　と認めておりますぜぃ。

URLﾘﾝｸ(imagizer.imageshack.com)

547:卵の名無しさん
18/05/02 14:25:00.86 b74NtK+y.net
まずは基本的なところをじっくり確認して、弱点を拾い上げて丁寧に勉強していこう。国試対策も進んでいくと楽しいもんだな。

548:卵の名無しさん
18/05/02 14:39:29.75 b74NtK+y.net
難しい病態生理も、簡単に噛み砕いて教えてくれる仲間は有難い。

549:卵の名無しさん
18/05/02 15:56:49.06 HRauQnuh.net
>>527
回帰係数→相関係数の間違いを指摘できる学力は
ド底辺シリツ医大卒にはいないんだな。
馬鹿なのだろうか？
馬鹿なのにどうして大学に入れたのだろうか？
やっぱり、あれ？

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

550:卵の名無しさん
18/05/02 16:00:52.37 HRauQnuh.net
>>548
命題「馬鹿は、死ななきゃ治らない」の対偶を教えてくれ仲間はいないみたいだな。
ド底辺シリツ医大卒の周りって裏口バカだらけなのか？
それとも馬鹿すぎて相手にされないのか？
一次方程式すらまともに立てられない馬鹿であることは実例を挙げた。
URLﾘﾝｸ(imagizer.imageshack.com)

551:卵の名無しさん
18/05/02 16:01:56.12 HRauQnuh.net
一次方程式で解決できる問題ができないバカはまあ、普通にいるだろう。
ところが、ド底辺シリツ医大卒は
付与の条件では計算できないと断言しちゃうんだよね。
馬鹿すぎる。
計算できないのはド底辺シリツ医大卒のオツムの問題なんだけどね。
URLﾘﾝｸ(imagizer.imageshack.com)
こんな算数もできないなんて馬鹿なのだろうか？
馬鹿なのにどうして大学に入れるの？
中学数学の問題だから高校入試ですら落ちても不思議ないのだが。
こんな馬鹿なのでどうしてド底辺シリツとはいえ、
大学に入れるわけ？
やっぱり、あれ？
,二　　　　　|　￣ヽ　　　　. ／〃　　　-┼─　　
　　）　　　　|＿__.　　　　　（　　　　　　レ--、　
　.ノ　　　　　＿_）　　　　　＼.　　　　　　＿ノ .　

552:卵の名無しさん
18/05/02 16:25:24.20 HRauQnuh.net
医師の世界では
　頭悪すぎ
に続く言葉は、やはり
　底辺私立
ｽﾚﾘﾝｸ(hosp板:428番)
428 卵の名無しさん sage 2018/05/02(水) 16:01:01.76 ID:V4E7oyFY
リベラルと言えばいけてると思ってんの頭悪すぎ。底辺私立か？

553:卵の名無しさん
18/05/02 16:27:43.48 HRauQnuh.net
ちはやふる　は　神　の
頭悪すぎ　は　底辺私立　の
が枕言葉なんだな、φ(..)メモメモ

554:卵の名無しさん
18/05/02 20:48:24.46 n+hyj4Vz.net
呪文：「ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ」を唱えると甲状腺機能が正常化するという統計処理の捏造をやってみる。
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 なので有意差ありとしてよい。
ゆえに、「ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ」という呪文は甲状腺機能を正常化させる。
ここで問題、この統計処理のどこが誤っているか？

555:卵の名無しさん
18/05/02 21:02:45.39 n3JqitZ1.net
↑
て、あんたお医者さん違うやん

556:卵の名無しさん
18/05/02 21:03:44.94 n+hyj4Vz.net
乱数を変えて再検しても、同様のグラフになる。
URLﾘﾝｸ(i.imgur.com)

557:卵の名無しさん
18/05/02 21:09:44.36 n+hyj4Vz.net
>>555
第三法則実証乙。
>483　および　>486参照
統計処理くらい理解していれば、>554に答えてみ！
ひょっとして、底辺シリツ医大卒の問題そのものがわからない馬鹿なのか？
馬鹿なのにどうして大学に入れたのだろうか？
やっぱり、あれ？

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

558:卵の名無しさん
18/05/02 21:11:54.95 n+hyj4Vz.net
ド底辺シリツ医大卒には数式や英文のある問題は無理みたいだなぁ。
これなら答えられるかな？
URLﾘﾝｸ(imagizer.imageshack.com)

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

559:卵の名無しさん
18/05/02 21:24:05.97 jAwYPU+x.net
国試勉強休憩中。下には下がいるのだなとなぜかホッとする自分がいる。なんとか国試合格したい。

560:卵の名無しさん
18/05/02 21:39:35.00 jAwYPU+x.net
現時点で彼女の方が勉強が進んでいる。なんとか追いつきたい。

561:卵の名無しさん
18/05/03 00:32:28.86 0JFjpoYv.net
Mistake: Over interpreting a small P valueという例示
回帰直線の傾き=0の帰無仮説はp値は0.03で棄却されるが、
相関係数R2は 0.009407で1%未満であるとの説明。
横軸：一様分布、縦軸：正規分布はみてとれたが
nを増やしただけでは有意差が簡単にはでてこない。試行錯誤で乱数の種を虱潰しに当たらせて完成。
グラフがようやく再現できた。
URLﾘﾝｸ(i.imgur.com)
Call:
lm(formula = y ~ x)
Residuals:
Min 1Q Median 3Q Max
-7.2026 -1.4161 -0.0427 1.2997 9.7284
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 99.66681 0.18517 538.232 <2e-16 ***
x 0.01374 0.00632 2.175 0.0301 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 2.039 on 498 degrees of freedom
Multiple R-squared: 0.009407, Adjusted R-squared: 0.007417
F-statistic: 4.729 on 1 and 498 DF, p-value: 0.03013
2.5 % 97.5 %
(Intercept) 99.302994240 100.03063277
x 0.001326443 0.02616038

562:卵の名無しさん
18/05/03 00:41:57.72 0JFjpoYv.net
> cor.test(x,y)
Pearson's product-moment correlation
data: x and y
t = 2.1746, df = 498, p-value = 0.03013
alternative hypothesis: true correlation is not equal to 0
95 percent confidence interval:
0.00937691 0.18312091
sample estimates:
cor
0.09698775
URLﾘﾝｸ(i.imgur.com)
p値が小さくても回帰直線はほぼ水平。

563:卵の名無しさん
18/05/03 00:46:57.83 0JFjpoYv.net
裏口馬鹿よりlinear regressionの方が頼れると思うぞｗｗｗ
URLﾘﾝｸ(www.explainxkcd.com)
URLﾘﾝｸ(www.explainxkcd.com)

564:卵の名無しさん
18/05/03 07:29:51.51 9nPOoDoJ.net
底辺私立医は自分がバカという自覚すらないだろ。
家族にもバカにされてるくせに。

565:卵の名無しさん
18/05/03 08:42:56.61 0JFjpoYv.net
URLﾘﾝｸ(i.imgur.com)
この2つの分布の相関係数とｐ値は
cor p
0.197477921301 0.000008644366
cor p
-0.000005514402 0.999901862465

線形回帰を使うと捏造が容易だな。
例えば、統計的に有意な方を毎日オナニーをするというド底辺シリツ医大卒10人を50か月に亘って知能指数を調べた結果のグラフとすると
相関係数が正なので　p=0.000008644366でド底辺シリツ医大卒のオナニーは知能指数を上昇させるという結論が導きだせる。

格言　：　統計と女の涙は信じるな
このスレ的には　
　ド底辺シリツ医大卒と裏口バカは信じるな
というのが正しいwww

566:卵の名無しさん
18/05/03 08:45:46.33 0JFjpoYv.net
>>564
誇るべき母校に
明らかにおかしなバカ学生がいることを自慢するのが、ド底辺シリツ医大卒。
しかもガチの裏と裏口入学の存在を前提としている。
URLﾘﾝｸ(imagizer.imageshack.com)

567:卵の名無しさん
18/05/03 08:52:22.84 0JFjpoYv.net
>>559
>下には下がいる
学力で判定するとド底辺シリツ医大卒の下には下はないんじゃね？
ガチの裏ですって
URLﾘﾝｸ(imagizer.imageshack.com)

568:卵の名無しさん
18/05/03 09:10:22.59 tiEdtl/y.net
これだけまとまった勉強をするのは久しぶりだな。充実している。

569:卵の名無しさん
18/05/03 09:18:19.00 0JFjpoYv.net
>>547
> まずは基本的なところをじっくり確認
このスレのタイトルを確認すればいいだけだろ。
それすらわからんとは馬鹿なのだろうか？
馬鹿なのにどうして大学に入れたのだろうか？
やっぱり、あれ？

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

570:卵の名無しさん
18/05/03 09:21:32.62 0JFjpoYv.net
当直医スレから確認させている基本法則はこれね！

Three rudimentary laws of Do-Teihen(lowest-tier) Medical School, currently called Gachi'Ura by its graduates.
ド底辺医大の三法則
1: It is not the lowest-tier 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(lowest-tier medicalschool) are so ashamed that none of them dare to mention their own alma mater they had gone through.
ド底辺シリツ医大卒は恥ずかしくて、学校名を皆さま言いません。
3: The Do-Teihen(lowest-tier medicalschool) 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.
ド底辺特殊シリツ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる。

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

572:卵の名無しさん
18/05/03 09:50:52.94 0JFjpoYv.net
>>565
Intelligence and semen quality are positively correlated
URLﾘﾝｸ(www.sciencedirect.com)
Why is intelligence correlated with semen quality?
URLﾘﾝｸ(www.ncbi.nlm.nih.gov)
という論文があったりするので案外、偶然以上の有意差がでるかも知れないが
たとえそうであってもド底辺シリツ医大卒の裏口バカがサンプルだと、バイアスがかかりすぎだな。
なんせ、一次方程式すら立てられない馬鹿でしたからね。

573:卵の名無しさん
18/05/03 09:51:56.15 0JFjpoYv.net
タイプミス修正
当直医スレから確認されている基本法則はこれね！

Three rudimentary laws of Do-Teihen(lowest-tier) Medical School, currently called Gachi'Ura by its graduates.
ド底辺医大の三法則
1: It is not the lowest-tier 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(lowest-tier medicalschool) are so ashamed that none of them dare to mention their own alma mater they had gone through.
ド底辺シリツ医大卒は恥ずかしくて、学校名を皆さま言いません。
3: The Do-Teihen(lowest-tier medicalschool) 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.
ド底辺特殊シリツ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる。

574:卵の名無しさん
18/05/03 09:58:55.81 uUyq0HNp.net
私立を差別するつもりは学生時代なかったが、
あまりのバカさと仕事も社会も舐めた態度、
患者殺しの実態を多々経験すると、
差別どころか、同じ空気を吸うのも悍ましい。

575:卵の名無しさん
18/05/03 10:06:33.94 g3ZJipUc.net
↑
で？あんたは？
医学生というか
国試失敗連続23回だろ？
あのね、そーゆーことはお医者さんになってから書いた方がいいよ

576:卵の名無しさん
18/05/03 10:18:42.63 tiEdtl/y.net
勉強会はペースをつかめるし勉強が楽しくなるからいいな。

577:卵の名無しさん
18/05/03 10:21:25.22 ft8gnQDo.net
抜ける看護婦揃い
URLﾘﾝｸ(www.tsukubahigashi-hp.com)

578:卵の名無しさん
18/05/03 11:49:16.37 tiEdtl/y.net
さて、みんなと寿司でも食いにいくかな。

579:卵の名無しさん
18/05/03 11:54:44.32 0JFjpoYv.net
>>572
Intelligence and semen quality are positively correlated
URLﾘﾝｸ(www.sciencedirect.com)
のアブストラクトにはサンプルサイズの記載がないという不親切設計。しかもp値が有効数字一桁。
We found significant positive correlations between intelligence and 3 key indices of semen quality:
log sperm concentration (r = .15, p = .002),
log sperm count (r = .19, p < .001), and
sperm motility (r = .14, p = .002) in a large sample of US Army Veterans.
どうも統計処理が腑に落ちないので検討してみた。
concentrationの相関係数0.15、p値0.002からサンプルサイズを逆算すると422人
有効数字1桁のp値は0.0015～0.0025の間とすると404人から445人ということになる。
サンプルサイズがこの範囲にあるときにmotilityの相関係数が0.14なら
そのp値は0.00308 ～ 0.00482になるはず。
こちらのp値0.002が正しいとするとサンプルサイズは464～511人になって
concentrationから逆算した区間と重なりはないので、どちらかの記述が間違っていることがわかる。
検索したら
URLﾘﾝｸ(www1.udel.edu)
で全文がよめてサンプルサイズは425人であった。
すると、sperm motilityのp値は0.0038が正しい。
log sperm count (r = .19)でのp値は0.000081なのでp < .001はp < .0001と書いてもよいくらいである。
Rのコードはこれ。
ｽﾚﾘﾝｸ(math板:194番)
統計の衣を纏っていても検算は必要ってこったね。

580:卵の名無しさん
18/05/03 11:59:53.76 0JFjpoYv.net
＞私立を差別する
人種や民族など本人に選択の余地のないことを根拠に区別するのは差別であるが、
ド底辺シリツ医大進学は本人が選択したのだから、それを根拠に区別することは差別ではない。
シリツ医大の法外な学費が払える経済状況なら教育投資して学力を高めることができたはず。
金をかけても学力が身につかなかった馬鹿なのだから蔑まれても当然。
これは昔から不変。
(quote)
私は昭和の時代に大学受験したけど、昔は今よりも差別感が凄く、慶応以外の私立医は特殊民のための特殊学校というイメージで開業医のバカ息子以外は誰も受験しようとすらしなかった。
常識的に考えて、数千万という法外な金を払って、しかも同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んで私立医に行く同級生は一人もいませんでした。
本人には面と向かっては言わないけれど、俺くらいの年代の人間は、おそらくは８－９割は私立卒を今でも「何偉そうなこと抜かしてるんだ、この裏口バカが」と心の底で軽蔑し、嘲笑しているよ。当の本人には面と向かっては絶対にそんなことは言わないけどね。
(unquote)
それにはこういうレスが続いた。
(quote)
それは昭和の時代だけでなく平成の今も同じです。
みんな口に出さないだけで思ってることは同じです。
そういう私も皆の前では本心とは裏腹に「国家試験に受かれば
私立も国立も変わらないよ。」と言ってます。
在日や帰化人を連想させる名前をした医師に「******(伏字は引用者)」と内心では思ってても、
ニコニコしながら話を合わせてるのと同じです。
(unquote)
>でも一生、卒業大学を隠すのは本当に辛い　　　　　
URLﾘﾝｸ(imagizer.imageshack.com)

581:卵の名無しさん
18/05/03 12:06:20.77 tiEdtl/y.net
w

582:卵の名無しさん
18/05/03 12:33:00.95 tiEdtl/y.net
少しハイペースで勉強してるので、4人で気分転換に海でも見にいこうとなった。

583:卵の名無しさん
18/05/03 12:45:14.57 g3ZJipUc.net
寿司に海か
たまいいなあ
算数やら2チャンネル貼ったりしてる
医師真似事務員バイトは
勉強しねえから気分転換に行く資格ないな
たまには国試の勉強しろよ
無職のくせに

584:卵の名無しさん
18/05/03 12:52:47.21 tiEdtl/y.net
ありがとうございます。みんなで国試合格を一発で決めたいです。

585:卵の名無しさん
18/05/03 13:24:59.32 0JFjpoYv.net
FisherのZ変換をつかって決定係数(アールスクエア)を求めると
> cor2ci(rs,425)^2
lower cor upper
conc 0.003099511 0.0225 0.05840578
count 0.009336431 0.0361 0.07843337
Motility 0.002068850 0.0196 0.05383846
精子の健全性は知性の数パーセントを説明することしかできない、という結果であった。
ド底辺シリツ医大卒でないこと　が知性をもつ人間の必要条件であることは統計処理すら必要ない。
小学生からナマポも知っている常識であることは既述。

586:卵の名無しさん
18/05/03 13:26:29.15 g3ZJipUc.net
頑張ってね
ここにはウリュウひろゆきジイさんという
算数好きの国試浪人の成れの果てがいるからな
君たちの反面教師にはもってこいだよ

587:卵の名無しさん
18/05/03 13:31:25.65 0JFjpoYv.net
>>584
医師国家試験は落ちる方が難しい試験だが、
ド底辺シリツ医大に入学難関である。
なぜならば
こういうことだから。
卓見投稿を再引用
(quote)
私は昭和の時代に大学受験したけど、昔は今よりも差別感が凄く、慶応以外の私立医は特殊民のための特殊学校というイメージで開業医のバカ息子以外は誰も受験しようとすらしなかった。
常識的に考えて、数千万という法外な金を払って、しかも同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んで私立医に行く同級生は一人もいませんでした。
(unquote)

つまり、一生、他人から蔑まれることを受け入れた人間でなければ選択できないのだからね。

当然の結果がこれね。
>でも一生、卒業大学を隠すのは本当に辛い　　　　　

URLﾘﾝｸ(imagizer.imageshack.com)

588:卵の名無しさん
18/05/03 13:42:17.40 tiEdtl/y.net
下には下がいると思うとどこかホッとする。

589:卵の名無しさん
18/05/03 13:53:39.55 tiEdtl/y.net
と仲間に話すと笑いながら悪趣味ねぇと言われた。

590:卵の名無しさん
18/05/03 14:17:16.90 nEmJkkk2.net
解釈の原因は解釈者自身の固定観念。解釈の自由には責任が伴う
言葉風紀世相の乱れはそう感じる人の心の乱れの自己投影。人は鏡
憤怒は一時の狂気、無知無能の自己証明。中途半端な知識主ほど激昂
「真実は一つ」は錯誤。執着する者ほど矛盾を体験（争い煩悩）
他人に不自由（制約）を与えれば己も不自由（不快）を得る
問題解決力の乏しい者ほど自己防衛の為に礼儀作法マナーを要求
情報分析力の低い者ほどデマ宗教フェイク疑似科学に感化洗脳
自己肯定感の欠けた者ほど「己の知見こそ全で真」に自己陶酔
人生経験の少ない者ほど嫌いキモイ怖いウザイ憎い想定外を体験
キリスト教は世界最大のカルト。聖書は史上最も売れているト本
全ては必然。偶然奇跡理不尽不条理は思考停止視野狭窄の産物
人生存在現象に元々意味価値理由目的義務使命はない
宗教民族領土貧困は争いの「原因」ではなく「口実動機言訳」
虐め差別犯罪テロ紛争は根絶可能。必要なのは適切十分な高度教育
体罰は指導力問題解決力の乏しい教育素人の独善甘え怠慢責任転嫁
死刑は民度の低い排他的集団リンチ殺人。「死ねば償える」は偽善
核武装論は人間不信と劣等感に苛まれた臆病な外交素人の精神安定剤
投票率低下は社会成熟の徴候。奇人変人の当選は議員数過多の証左
感情自己責任論～学校では教えない合理主義哲学～　m9｀･ω･)

591:卵の名無しさん
18/05/03 14:22:54.26 ffi6hOtq.net
金で医者になる私立医をボコろー
患者殺したら内部告発しょう
私立医をオリの中に入れて吊るそうぜ

592:卵の名無しさん
18/05/03 14:51:29.53 0JFjpoYv.net
>>588
一次方程式すら立てられないド底辺シリツ医大卒の裏口バカでも医者になれるらしいしねｗｗｗｗ

593:卵の名無しさん
18/05/03 15:02:09.20 0JFjpoYv.net
けがで死亡はＯ型多い、医科歯科大
URLﾘﾝｸ(mm.m3.com)
は無料で全文が読める。
URLﾘﾝｸ(ccforum.biomedcentral.com)
多重比較なので他の血液型とのpairwiseでのp値があるかと思ったらなかったのでがっかり。
与えられた数値で自分で再計算してみると
> riskratio(round(n.O*.28),round(n.other*.11),n.O,n.other)
Disease Nondisease Total
Exposed 80 204 284
Nonexposed 68 549 617
Risk ratio estimate and its significance probability
data: round(n.O * 0.28) round(n.other * 0.11) n.O n.other
p-value = 1.113e-10
95 percent confidence interval:
1.910340 3.419677
sample estimates:
[1] 2.555924
だから、多重比較によるバラつき検出ではないな。確かにｐ値が小さすぎる。
Bonnferonni補正しても結論は覆りそうにない。
うお座に心不全が有意に多いとう統計処理の誤謬指摘の論文を思いだした。
Pisces did not have increased heart failure: data-driven comparisons of binary proportions between levels of a categorical variable can result in incorrect statistical significance levels
URLﾘﾝｸ(www.jclinepi.com)(07)00188-6/abstract?code=jce-site

594:卵の名無しさん
18/05/03 15:03:33.35 0JFjpoYv.net
>>589
仲間ってド底辺シリツ医大卒の裏口バカ仲間かな？
馬鹿は死ななきゃ治らない　の対偶を即答できない、馬鹿集団？？

595:卵の名無しさん
18/05/03 15:26:11.82 tiEdtl/y.net
w

596:卵の名無しさん
18/05/03 15:36:42.26 WLvmaBgZ.net
対偶？
>>594
即答してやるよ
簡単だからみんなスルーしてるの気づけよ
答え:
おまえは国試浪人の
ウリュウひろゆきジイさんですね

どうだ？
大正解だろう！

597:卵の名無しさん
18/05/03 15:47:58.00 Jz8cV8mL.net
>>594
俺も、即答してやるよ
簡単だからみんなスルーしてるの気づけよな
ほんま
答え:
おまえは大学に12年間かよった伝説の
ウリュウひろゆきジイさんですね

どうだ？
これも大正解だろう！

598:卵の名無しさん
18/05/03 15:54:21.30 kxDx/PCD.net
>>594
俺も、即答だ
簡単だからみんなスルーしてるの気づけよ！
そうだね！
答え:
おまえが3年高卒浪人してやっとこさ
まぎれこめた長崎は
おまえがはいった時代の偏差値45な
一応国立やけど、40年位前やしな

どうだ？
これも大正解だろ
あんた、これで私立の学校をあかんつーのもどうかとおもうぜ
ウリュウひろゆきさんよ
しかも、あんたまだ国家試験通ってないんやろ？
23年も
なにしてたん？
てか、今だになにしてんの？

599:卵の名無しさん
18/05/03 17:15:19.99 tiEdtl/y.net
海は広いな大きいなー

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)

次ページ