底辺私立医大を卒業し ..
38:卵の名無しさん
21/02/12 19:54:04.79 RDNWg9HX.net
>>5
美容外科医に頭脳を期待するのは間違いでは?
底辺私立医大卒がドアホというは同意できる。
39:卵の名無しさん
21/02/12 19:57:29.82 RDNWg9HX.net
>>32
お前はドアホだな。
医者だってある意味底辺だぞ。
40:卵の名無しさん
21/02/12 20:02:17.69 RDNWg9HX.net
>>36
プログラミングができるのは羨ましい。
俺は大昔にFORTRANを習ったが完全に忘れた。
41:卵の名無しさん
21/02/12 20:27:27.48 HI1nhh/q.net
>>39
医学論文を読めば必ず統計処理がでてくる。
普通は独学でRくらい使えるようになる。
統計のウソ・誤用・悪用を見破るためにも統計学の知識が必要
「統計できない人は進級させなくていいですから」を検索すると母校の教員の言葉としてヒットする。
42:卵の名無しさん
21/02/12 20:31:11.05 HI1nhh/q.net
自作の悪用例
呪文:「ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ」を唱えると甲状腺機能が正常化するという統計処理の捏造をやってみる。
TSH : 0.34〜4.0 TSH:μIU/mlを基準値として(これが平均±2×標準偏差で計算されているとして)呪文前と呪文後のデータを正規分布で各々50個つくる。
負になった場合は検出限界以下として0にする。
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 なので有意差ありとしてよい。
ゆえに、「ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ」という呪文は甲状腺機能を正常化させる。
ここで問題、この統計処理のどこが誤っているか?
43:卵の名無しさん
21/02/12 22:01:48.29 RDNWg9HX.net
>>40
一定水準以上の国立大学でないと統計学教育は成立しないと思う。
底辺私立だと数学なしでも入学できたりするから。
44:卵の名無しさん
21/02/13 00:12:30.40 myezDy9j.net
>>38
医者が底辺?
道に歩いてる人に聞いてみろ。きっと鼻で笑われるからw
さすが社会の底辺は言うこと違うわ。
45:卵の名無しさん
21/02/13 03:39:50.62 1JYnTN8B.net
ここは日商簿記1級のスレですよね。はじめまして。
第156回の試験で日商簿記1級に合格しました。会計士講座の受講生です。自己採点69点、結果は72点でギリギリ合格でした。前半の簿記・会計でしくりまくってて、ギリギリもいいところでした。
工業簿記の自己採点が14点だったんですが、20点。原価計算の自己採点が23点だったんですが、20点でした。
工業簿記の点数が異常の理由が、1月の合格発表後に分かって、以前の書き込みで非常に頭の良い方が全く同じ結論と解説をなさっていたので詳細省きますけど、
工業簿記・第2問・問1の実際購入原価2つ、第3問(4)75,400(不利差異)、この3ヶ所で予備校と答え違ったんですが、採点者からそれぞれ得点もらってる事を確認しました。工業簿記24点の方と答え合わせをして。
プロ簿記の講師で試験委員をめちゃくちゃな悪口言いまくってた人、なんで謝罪しないんですかね?
予備校って、日商簿記の検定試験にお世話になって仕事できてるくせに、あんな偉そうに試験委員を馬鹿にして、人として、全く理解できないです。キ○ガイ。 プロ簿記とやらのサイトで、試験委員はあんな問題作って謝罪すべき、と相当悪く言ってましたからね。
あれ、特に第3問の出し方、めちゃくちゃ良問です。会計士の講師へ質問でちゃんと説明して聞いたら、「あなたの言う通りですね、同じ金額だったからあなたに言われるまで気が付かなくて、自分の中のストックに無い問い方で、今後の作問の参考にもなりました」と言われました。
プロ簿記の傲慢な講師の方、正式にプロ簿記で訂正・謝罪して下さい。まぁ見ていないでしょうけど。
正直、あんな読み取りは試験中なら仕方ないにしろ、解答作成で精読していたら気が付きそうなものです。それを試験委員をめちゃくちゃに馬鹿にして、恥ずかしくないのか。
そもそも、試験委員の方々がどれ程の時間と考慮を重ね、作問して試験を作り、それを受けれているのか、そんな所のリスペクトは大人なら当たり前にすべきだろ、ガキじゃねーんだから。
さっさと謝ってくれー見てないだろうけど。
46:卵の名無しさん
21/02/13 08:25:44.53 bS7FBK1G.net
# お菓子の個数の差の最小値の約数が条件(1以上の等しい数で余る)を満たすかを調べる
CALC <- function(...){
x=c(...)
re=NULL
for(d in numbers::divisors(min(combn(length(x),2,function(i) abs(diff(x[i])))))){
r=x%%d
if(sum(r)!=0 & length(unique(r))==1) re=c(re,d)
}
re
}
CALC(123,456,789))
47:卵の名無しさん
21/02/13 09:23:43.62 bS7FBK1G.net
東京医大の事件は裏口入学が現在進行形であること如実にしめした事件だよね。
シリツ医の使命は裏口入学撲滅国民運動の先頭に立つことだよ。
裏口入学の学生を除籍処分にしないかぎり、信頼の回復はないね。つまり、いつまで経ってもシリツ医大卒=裏口バカと汚名は拭えない。シリツ出身者こそ、裏口入学に厳しい処分せよを訴えるべき。
裏口入学医師の免許剥奪を!の国民運動の先頭に立てばよいぞ。
僕も裏口入学とか、言ってたら信頼の回復はない。
48:卵の名無しさん
21/02/13 11:34:24.59 myezDy9j.net
だったらウリュウのジジイ自ら直談判でもデモでも起こせばいいじゃないか。自ら率先して。
誰にも相手にされないと思うけどなw
49:卵の名無しさん
21/02/13 11:37:33.91 myezDy9j.net
社会でも5chでもゴミ扱いの底辺。それが医者コンプ非医のウリュウのジジイ。
50:卵の名無しさん
21/02/13 12:52:39.50 yPJErKj9.net
埼玉医科大学病院抗がん剤過剰投与事件
2000年9月、右あご下腫瘍治療のために埼玉医科大学総合医療センターに入院した
埼玉県鴻巣市の女子高生(当時16歳)が、化学療法の一つである「VAC療法」
(硫酸ビンクリスチン・アクチノマイシンD・シクロフォスファミドを組み合わせる療法)を
受ける際、硫酸ビンクリスチン2mgを週1回12週間にわたって投与されるべきところを、
医師の文献の誤読により1週間連続で投与された。
その結果、患者は同年10月7日に多臓器不全で死亡した。
事故後、医師による説明に不信感を持った両親が110番通報をし、事件が発覚した。
担当研修医が英語文献を読めず、週一回投与(Weekly)を連日投与(daily)と解釈したために
抗癌剤の大量投与につながったことが判明している。
51:卵の名無しさん
21/02/13 13:03:00.95 myezDy9j.net
URLリンク(www.tmd.ac.jp)
恐ろしいね…
52:卵の名無しさん
21/02/13 13:33:38.86 HI+qRV56.net
>>49
小児科勤務歴のある看護師が添付文書とともにその投与計画はおかしいと、底辺シリツ医に助言したのに
このシリツ医は無視したんだよなぁ。
53:卵の名無しさん
21/02/13 13:42:33.26 HI+qRV56.net
# お菓子の個数の差の最小値の約数が条件(1以上の等しい数で余る)を満たすかを調べる
CALC <- function(...){
x=c(...)
re=NULL
for(d in numbers::divisors(min(combn(length(x),2,function(i) abs(diff(x[i])))))){
r=x%%d
if(sum(r)!=0 & length(unique(r))==1) re=c(re,d)
}
re
}
CALC(62,78,38)
CALC(123,756,789)
icecream=123
chocolate=456
pudding=789
candy=NULL
upper=100
for (i in 2:upper) {
kid=CALC(icecream,chocolate,pudding,i)
print(kid)
if(length(kid)) candy=c(candy,i)
}
candy
CALC(icecream,chocolate,pudding,100)
54:卵の名無しさん
21/02/13 13:43:23.03 HI+qRV56.net
>>43
理系のなかでは最低の教養だと思う、とりわけ、シリツ医はひどい。
55:卵の名無しさん
21/02/13 13:56:31.20 myezDy9j.net
>>53
社会の底辺が教養だって?
56:卵の名無しさん
21/02/13 14:31:03.10 4pQ4Z0EM.net
ここは日商簿記1級のスレですよね。はじめまして。
第156回の試験で日商簿記1級に合格しました。会計士講座の受講生です。自己採点69点、結果は72点でギリギリ合格でした。前半の簿記・会計でしくりまくってて、ギリギリもいいところでした。
工業簿記の自己採点が14点だったんですが、20点。原価計算の自己採点が23点だったんですが、20点でした。
工業簿記の点数が異常の理由が、1月の合格発表後に分かって、以前の書き込みで非常に頭の良い方が全く同じ結論と解説をなさっていたので詳細省きますけど、
工業簿記・第2問・問1の実際購入原価2つ、第3問(4)75,400(不利差異)、この3ヶ所で予備校と答え違ったんですが、採点者からそれぞれ得点もらってる事を確認しました。工業簿記24点の方と答え合わせをして。
プロ簿記の講師で試験委員をめちゃくちゃな悪口言いまくってた人、なんで謝罪しないんですかね?
予備校って、日商簿記の検定試験にお世話になって仕事できてるくせに、あんな偉そうに試験委員を馬鹿にして、人として、全く理解できないです。キ○ガイ。 プロ簿記とやらのサイトで、試験委員はあんな問題作って謝罪すべき、と相当悪く言ってましたからね。
あれ、特に第3問の出し方、めちゃくちゃ良問です。会計士の講師へ質問でちゃんと説明して聞いたら、「あなたの言う通りですね、同じ金額だったからあなたに言われるまで気が付かなくて、自分の中のストックに無い問い方で、今後の作問の参考にもなりました」と言われました。
プロ簿記の傲慢な講師の方、正式にプロ簿記で訂正・謝罪して下さい。まぁ見ていないでしょうけど。
正直、あんな読み取りは試験中なら仕方ないにしろ、解答作成で精読していたら気が付きそうなものです。それを試験委員をめちゃくちゃに馬鹿にして、恥ずかしくないのか。
そもそも、試験委員の方々がどれ程の時間と考慮を重ね、作問して試験を作り、それを受けれているのか、そんな所のリスペクトは大人なら当たり前にすべきだろ、ガキじゃねーんだから。
さっさと謝ってくれー見てないだろうけど。
57:卵の名無しさん
21/02/13 14:33:17.25 bW9sh9iF.net
医学部最低編でも看護の最難関より偏差値高い事実
58:卵の名無しさん
21/02/13 14:50:22.31 HI+qRV56.net
>>56
シリツ医大の偏差値は入学を辞退して国立大学に進学した合格者の偏差値だろ?
59:卵の名無しさん
21/02/13 14:51:23.82 HI+qRV56.net
>>54
Rのコードすら書けないのが裏口容疑者=シリツ医ってこと。
60:卵の名無しさん
21/02/13 14:52:35.33 HI+qRV56.net
英語文献が正しく読めなくて抗がん剤過剰投与で患者を死に至らしめたのはシリツ医。
僕も裏口入学と公言したシリツ医は経済的に成功していても
この程度の頭脳。比例計算すら間違える。
URLリンク(news.yahoo.co.jp)
頭が不器用で算数の掛け算すら怪しいのがシリツ医がこういう事故を起こすわけなんだな。
URLリンク(i.imgur.com)
61:卵の名無しさん
21/02/13 14:53:38.95 HI+qRV56.net
川崎医大の創始者の子供や孫は教育投資して学力をつけて
岡山大学や京都大学の医学部に入学。
シリツ医大なんて卒業していたら職員から馬鹿にされてしまうだろうから。
法外な学費が払える経済状況にありながらド底辺シリツ医大にしか入れないのは馬鹿の証明。
62:卵の名無しさん
21/02/13 15:07:44.32 HI+qRV56.net
中が見えない袋の中に白もしくは黒の碁石が100個入っている。
白黒の内訳については情報がなく白がn個(n=0,1,2,..99,100)個入っている確率はすべて等しいとする。
中を見ないで10個の碁石を取り出したら全部、黒であった。
(1)残り90個から中を見ないで10個取り出すとその10個の中に含まれる白の碁石の数の期待値を求めよ。
(2)残り90個の中から何個以上取り出せば90%以上の確率で白が含まれるか?
尚、元ネタの、エロ本の自動販売機に含まれる無修正本の話に適用すると。
(2) 10冊がハズレだったときにあと何冊買えば無修正本を入手できる確率が90%を超えるか?
63:卵の名無しさん
21/02/13 16:06:50.23 myezDy9j.net
>>58
お前さらに遥か下じゃん
私立医云々ってお前にとっては雲の上の話だろ?
64:卵の名無しさん
21/02/13 20:43:22.55 yPJErKj9.net
学会じゃ、私立医は国立医の質問攻めにあってコテンパンにのされてるよ。
困惑する私立医に浴びせられる会場からの冷笑。
そして仕方なしにフォロー入れる座長の苦笑。
65:卵の名無しさん
21/02/13 21:15:24.98 myezDy9j.net
>>63
どこの脳内学会だ?
66:卵の名無しさん
21/02/13 21:30:14.11 myezDy9j.net
>>63
学会の前にこの板で笑い物のお前って何なん?
67:卵の名無しさん
21/02/14 07:57:41.58 68y2TfCD.net
>>63
俺はシリツ卒が演者の講演は聞かないことにしている。
68:卵の名無しさん
21/02/14 07:58:49.22 68y2TfCD.net
学会講演の演者の紹介で最初に卒業大学が述べられるけど、シリツ卒だと恥ずかしいね。
69:卵の名無しさん
21/02/14 08:00:21.54 68y2TfCD.net
>>62
同業者からも患者からもバカだの裏口だのと散々罵られるのをわかって好き好んでド底辺医に行く奴は国立卒の俺からすると、
別世界の人間の振る舞いであることには同意。
70:卵の名無しさん
21/02/14 08:04:01.53 68y2TfCD.net
ド底辺裏口シリツ医にはこの計算はできないだろうなぁ。
無作為に100人を抽出したら、閏年は考慮しない365日のうち、誰の誕生日でもない日はいくらあるか、その期待値と95%信頼区間を求めよ。
71:卵の名無しさん
21/02/14 08:36:00.56 68y2TfCD.net
400年に97回の閏年を考慮したシミュレーション
calc <- function(n) sample(1:366,n,rep=TRUE,prob=c(rep(400-97,365),97))
sim <- function(n) 366 - length(table(calc(n)))
y=replicate(1e6,sim(n))
BEST::plotPost(y,xlab='non-birthday')
72:卵の名無しさん
21/02/14 08:42:28.19 68y2TfCD.net
シリツ医が反論せずに逃げまくる正論
川崎医大の創始者の子供や孫は教育投資して学力をつけて
岡山大学や京都大学の医学部に入学。
法外な学費が払える経済状況にありながらド底辺シリツ医大にしか入れないのは馬鹿の証明。
73:卵の名無しさん
21/02/14 09:34:29.72 HeQSB78M.net
>>68
どこの脳内国立でどこの脳内学会かなぁ?
74:卵の名無しさん
21/02/14 10:21:26.47 68y2TfCD.net
>>72
ド底辺裏口シリツ医にはこの計算はできないだろうなぁ。
無作為に100人を抽出したら、閏年は考慮しない365日のうち、誰の誕生日でもない日はいくらあるか、その期待値と95%信頼区間を求めよ。
即答できたら下記の認識を修正する。
シリツ医が反論せずに逃げまくる正論
川崎医大の創始者の子供や孫は教育投資して学力をつけて
岡山大学や京都大学の医学部に入学。
法外な学費が払える経済状況にありながらド底辺シリツ医大にしか入れないのは馬鹿の証明。
75:卵の名無しさん
21/02/14 10:26:00.85 TOfWsckC.net
>>66 私立医の演者とか聞く必要なし さっと別会場に行く!
76:卵の名無しさん
21/02/14 11:03:46.40 HeQSB78M.net
>>73
お前どこにも入れてないからこんなところで喚き散らしてるんだろ。
77:卵の名無しさん
21/02/14 11:19:54.36 68y2TfCD.net
免疫機能は低下しても過剰になっても良くない。TNF-αを免疫の指標として考える。TNF-α(高感度)0.75〜1.66(参考値)(pg/mL) URLリンク(test-guide.srl.info)
呪文:「底辺シリツ医大が悪いのではない、本人の頭が悪いんだ」を唱えると免疫が正常化するという仮説を検証してみる。
TNF-α0.75〜1.66(参考値)(pg/mL) (これが平均±2×標準偏差で計算されているとして)呪文前と呪文後のデータを正規分布で各々100個つくる。負になった場合は検出限界以下として0にする。
URLリンク(i.imgur.com)
同じ平均値と標準偏差で乱数発生させただけなので両群には有意差はない。
横軸に呪文前のTNFの値、縦軸にTNFの変化(呪文後−呪文前)をグラフしてみると
URLリンク(i.imgur.com)
つまり、呪文前のTNFが高いほど呪文後はTNFは下がり、呪文前のTNFが低いほど呪文後のTNFは上がるという傾向がみてとれる。これを線形回帰して確かめてみる。
回帰直線のパラメータは以下の通り。
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 1.1476 0.1258 9.122 9.72e-15 ***
before -0.9321 0.1026 -9.088 1.15e-14 ***
---
Residual standard error: 0.2049 on 98 degrees of freedom
Multiple R-squared: 0.4573, Adjusted R-squared: 0.4518
F-statistic: 82.59 on 1 and 98 DF, p-value: 1.155e-14
p-value: 1.155e-14 なので有意差ありとしてよい。
ゆえに、「底辺シリツ医大が悪いのではない、本人の頭が悪いんだ」という呪文は免疫を正常化させる。
COVID-19の免疫低下や免疫暴走の制御に「底辺シリツ医大が悪いのではない、本人の頭が悪いんだ」という呪文が有用であることが示唆されたw
78:卵の名無しさん
21/02/14 11:20:36.18 68y2TfCD.net
>>75
シリツ医が反論せずに逃げまくる正論
川崎医大の創始者の子供や孫は教育投資して学力をつけて
岡山大学や京都大学の医学部に入学。
法外な学費が払える経済状況にありながらド底辺シリツ医大にしか入れないのは馬鹿の証明。
79:卵の名無しさん
21/02/14 11:51:29.90 HeQSB78M.net
>>77
お前もっとバカじゃん
80:卵の名無しさん
21/02/14 12:59:35.15 2T4dQG3K.net
>>72
ド底辺裏口シリツ医にはこの計算はできないだろうなぁ。
無作為に100人を抽出したら、閏年は考慮しない365日のうち、誰の誕生日でもない日はいくらあるか、その期待値と95%信頼区間を求めよ。
即答できたら下記の認識を修正する。
シリツ医が反論せずに逃げまくる正論
川崎医大の創始者の子供や孫は教育投資して学力をつけて
岡山大学や京都大学の医学部に入学。
法外な学費が払える経済状況にありながらド底辺シリツ医大にしか入れないのは馬鹿の証明。
81:卵の名無しさん
21/02/14 13:11:23.37 HeQSB78M.net
>>79
おいジジイ。
いつになったら医師免許出すんだよ?
82:卵の名無しさん
21/02/14 18:11:41.23 TOfWsckC.net
国立医:国家が責任をもって医師を養成する公的機関
私立医:私法人が高利で教育を売る単なる営利私学校
83:卵の名無しさん
21/02/14 18:31:06.78 68y2TfCD.net
>>80
95%信頼区間はいつになったら出すんだよ。
識者の見解
数学 統計に詳しい人が語るコロナウイルス ☆2
スレリンク(math板:417番)
417 名前:132人目の素数さん[] 投稿日:2021/01/18(月) 00:53:43.58 ID:00TjG9Tw
まあ、匿名掲示板で身分を云々することほど不毛なことはないからね。
決定的におかしなことでも言ってなければ、他人が自称する身分を否定
する必要はないでしょ。
逆に、何を言っても信じない人は信じないしね。
84:卵の名無しさん
21/02/14 18:35:12.66 68y2TfCD.net
ある国は半径2の円形をしており、人口は4億人である。
円の中心にある地点Tから距離r離れると人口密度はTのそれの1/(1+r)になる。
いまTから距離1の地点Mで地震が発生した。地震による死者数の密度はMからの距離をsとして1/(1+s)に比例する。
地震による死者の総数が4000万人であったとき、Mからの距離xが1≦x≦2の区間の生存者数を100万人の単位まで求めよ。
Wolframで二重定積分させようとしたらタイムアウトした。
分割してRで計算。
"
密度1/sqrt((x^2+y^2)*((x-1)^2+y^2))を
x=r*cos(th)
y=r*sin(th)
と変換しえて
(1/r)*1/sqrt((r*cos(Θ)-1)^2+r^2*sin(Θ)^2)
ヤコビアンを勘案して
1/sqrt((r*cos(Θ)-1)^2+r^2*sin(Θ)^2)
"
# 全体 ∫[0,2π](∫[0,2] 1/sqrt((r*cos(Θ)-1)^2+r^2*sin(Θ)^2)dr)dΘ
f <- function(th) log(2-cos(th)+sqrt(2^2-2*2*cos(th)+1)) - log(1-cos(th))
f=Vectorize(f)
A=integrate(f,0,2*pi)$value
# ドーナツ ∫[0,2π](∫[1,2] 1/sqrt((r*cos(Θ)-1)^2+r^2*sin(Θ)^2) dr)dΘ
f12 <- function(th) log(2-cos(th)+sqrt(2^2-2*2*cos(th)+1))- log(1-cos(th)+sqrt(1^2-2*1*cos(th)+1))
f12=Vectorize(f12)
B=integrate(f12,0,2*pi)$value
B/A*4000
85:卵の名無しさん
21/02/14 19:50:22.98 HeQSB78M.net
>>82
ここは非医が来ていい場所じゃないからね。
86:卵の名無しさん
21/02/14 19:58:38.29 HeQSB78M.net
身分を云々言うんだったら自称国立医()ってのも証明しようがないわけだ。
87:卵の名無しさん
21/02/14 19:59:23.49 HeQSB78M.net
証明できたところでこんなところで喚くしか能がない時点で社会と5chの底辺に違いはないんだけどさ笑
88:卵の名無しさん
21/02/14 20:58:48.87 68y2TfCD.net
>>83
こっちのほうが楽だった。pracmaはベクトルの外積計算でしか使ってなかった。
密度z = 1/((1+sqrt(x^2+y^2)) * 1/(1+sqrt((x-1)^2+y^2)))を
x=r*cos(t)
y=r*sin(t)
としてヤコビアンをかけて
A=∫[0,2π]∫[0,2] r/(1 + r) * 1/(1 + sqrt((r*cos(t)-1)^2 + (r*sin(t))^2)) dr dt
B=∫[0,2π]∫[1,2] r/(1 + r) * 1/(1 + sqrt((r*cos(t)-1)^2 + (r*sin(t))^2)) dr dt
を求める
"
library(pracma)
f <- function(r,t) r/(1+r) * 1/(1 + sqrt((r*cos(t)-1)^2 + (r*sin(t))^2))
(A=integral2(f, 0,2,-pi,pi)$Q)
(B=integral2(f, 1,2,-pi,pi)$Q)
B/A*4000
89:卵の名無しさん
21/02/14 20:59:15.37 68y2TfCD.net
ド底辺裏口シリツ医にはこの計算はできないだろうなぁ。
無作為に100人を抽出したら、閏年は考慮しない365日のうち、誰の誕生日でもない日はいくらあるか、その期待値と95%信頼区間を求めよ。
即答できたら下記の認識を修正する。
シリツ医が反論せずに逃げまくる正論
川崎医大の創始者の子供や孫は教育投資して学力をつけて
岡山大学や京都大学の医学部に入学。
法外な学費が払える経済状況にありながらド底辺シリツ医大にしか入れないのは馬鹿の証明。
90:卵の名無しさん
21/02/14 23:24:22.03 HeQSB78M.net
>>88
国立はおろか私立も入れないジジイw
91:卵の名無しさん
21/02/15 00:47:32.85 BGj9Xr3Q.net
非医が医者を語ったところで社会では誰も相手にしてくれない。
92:卵の名無しさん
21/02/15 08:47:50.98 JQQUwBNq.net
半日だけのアルバイト先で医師免許書原本要持参とか面倒くさい。
93:卵の名無しさん
21/02/15 11:17:17.74 iLwYUL0N.net
国立医:国家が責任をもって医師を養成する公的機関
私立医:私法人が高利で教育を売る単なる営利私学校
94:卵の名無しさん
21/02/15 11:28:37.24 ybr+Rvuj.net
カネで入ったクズ
95:卵の名無しさん
21/02/15 11:40:03.18 BGj9Xr3Q.net
IDも変えて必死だね
96:卵の名無しさん
21/02/15 12:12:40.90 iLwYUL0N.net
高須克弥✔@katsuyatakasu
僕も裏口入学だよ。母子家庭の開業医で父親が卒業生で一次試験の成績がよかったので、
二次試験は死んだ父親をよく知っている教授が担当してくれて世間話だけ。入学金も半額に負けてくれた。
昭和医大は人情のわかる素晴らしい大学だった。
何が悪い。
ま、私立医は クズですねw
97:卵の名無しさん
21/02/15 12:51:45.87 ybr+Rvuj.net
高須は美容整形なのに内科も診れるとか嘘つくから嫌い
98:卵の名無しさん
21/02/15 18:22:17.29 SDM0kR6t.net
社会的成功者の高須先生と社会的敗者のウリュ爺どっちが生きてる価値ある?
99:卵の名無しさん
21/02/15 19:11:00.39 iLwYUL0N.net
巨額脱税2回 公職選挙法違反
人間の屑 私立医高須w
100:卵の名無しさん
21/02/15 19:46:14.66 jr8kYxg8.net
>>98
クズよりクズってどう思う?
101:卵の名無しさん
21/02/15 20:50:13.21 jr8kYxg8.net
スレリンク(hosp板)
フルボッコだねw
102:卵の名無しさん
21/02/16 07:14:02.93 X7HtxMcP.net
高校数学の質問スレPart409
スレリンク(math板:968番)
968 名前:132人目の素数さん[] 投稿日:2021/02/11(木) 22:31:13.46 ID:rRY3Jqc0
>>966
だってそいつは都合の悪いレスは全て同一人物に見える糖質詐欺の卑怯者だもの
お前も同一人物認定されるぞ
103:卵の名無しさん
21/02/16 07:24:47.61 X7HtxMcP.net
>>100
見てきた。
そのスレは以前から、裏口容疑者のシリツ医はフルボッコされているね。
典型的な投稿
スレリンク(hosp板:73番)
73 卵の名無しさん sage 2020/06/23(火) 13:24:47.79 ID:riQXI/fH
宮廷卒だけど、一括りに医師免許と言ってるが、私大卒など医者とは思ってへんよ
私大入学というインチキを経由したイシャモドキが、あんま調子のんなや
104:卵の名無しさん
21/02/16 10:28:45.54 hrhsgjZV.net
↑ 私立医=医者もどきに爆笑〜
アップルティー 吹きましたわw
105:卵の名無しさん
21/02/16 10:42:49.99 W70WT7iZ.net
私立医大卒の医者は頭が悪いと言うよりも毒親に育てられた人が多いと思う。
まあこれは最近は国立卒の親にも多いんだけどね。
元々親が開業医又は勤務医で、毒親がどうしても医者にさせたいので、
106:子供の頃から やれ塾だ、やれ家庭教師だ、と無理やり勉強させられて、親の都合で医者を目指すように 仕向けられてる。中には小学校受験のために幼稚園の時から塾に通わさせられてる。 うちの姉の子供のことだけどね。 元々医者になんかなりたくないのに親の都合で無理やり勉強させられるんだから、 そりゃあ勉強しないわ。 本来は子供の時は海や山で遊んで、自然から学ぶことも多いと思うんだけど、小学校の 時から遊びたい気持ちを抑えて机についてるんだから、そりゃあ性格も歪むわな。 毒親に育てられた子供は本当にかわいそうだよ。
107:卵の名無しさん
21/02/16 10:45:32.08 W70WT7iZ.net
毒親は自分の子供をペットか何かと間違えてるわ。
自分の虚栄心を満たすために子供を医者にさせてる。
そりゃあ勉強しないので勉強なんか出来るわけないわ。
108:卵の名無しさん
21/02/16 12:26:19.56 tRhCJtML.net
関口直樹
女をモノだと思ってるデブハゲ精神科医
ちょっとかじっただけなのに内科と救急医を名乗ってる勘違い医師
本当に人の気持ちがわからない酷い医師なので最悪でした
109:卵の名無しさん
21/02/16 12:33:11.64 Ga/Bkx8z.net
ウリュウのジジイって頭の中アップデートできないみたいだね。
スレリンク(hosp板)
110:卵の名無しさん
21/02/16 13:31:12.06 Ga/Bkx8z.net
非医ってここで喚くしか能がないよね。
社会にも5chにも相手にされないんだからさ。
111:卵の名無しさん
21/02/16 15:40:59.62 hrhsgjZV.net
国立医 落チテ 私立医ノ 辱メヲ ウケズ
112:卵の名無しさん
21/02/16 16:06:31.68 Ga/Bkx8z.net
いつもお寒いレスご苦労様。
113:卵の名無しさん
21/02/16 17:54:25.09 hrhsgjZV.net
物心ついて 自分の親父が私立医卒って知った子供は
大いに傷つくらしいねw
114:卵の名無しさん
21/02/16 20:09:12.81 Ga/Bkx8z.net
トケジは裏口入学すら許されないもんねw
115:卵の名無しさん
21/02/16 22:05:08.44 LZ1a1xfk.net
blue screen wallpaper
URLリンク(wallpapersafari.com)
116:卵の名無しさん
21/02/16 22:10:43.50 LZ1a1xfk.net
いまだに、次の議論のどこが間違っているかを指摘できたシリツ医はいないな。
免疫機能は低下しても過剰になっても良くない。TNF-αを免疫の指標として考える。
TNF-α(高感度)0.75〜1.66(参考値)(pg/mL) URLリンク(test-guide.srl.info)
呪文:「底辺シリツ医大が悪いのではない、本人の頭が悪いんだ」を唱えると免疫が正常化するという仮説を検証してみる。
TNF-α0.75〜1.66(参考値)(pg/mL) (これが平均±2×標準偏差で計算されているとして)呪文前と呪文後のデータを正規分布で各々100個つくる。負になった場合は検出限界以下として0にする。
URLリンク(i.imgur.com)
同じ平均値と標準偏差で乱数発生させただけなので両群には有意差はない。
横軸に呪文前のTNFの値、縦軸にTNFの変化(呪文後−呪文前)をグラフしてみると
URLリンク(i.imgur.com)
つまり、呪文前のTNFが高いほど呪文後はTNFは下がり、呪文前のTNFが低いほど呪文後のTNFは上がるという傾向がみてとれる。これを線形回帰して確かめてみる。
回帰直線のパラメータは以下の通り。
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 1.1476 0.1258 9.122 9.72e-15 ***
before -0.9321 0.1026 -9.088 1.15e-14 ***
---
Residual standard error: 0.2049 on 98 degrees of freedom
Multiple R-squared: 0.4573, Adjusted R-squared: 0.4518
F-statistic: 82.59 on 1 and 98 DF, p-value: 1.155e-14
p-value: 1.155e-14 なので有意差ありとしてよい。
ゆえに、「底辺シリツ医大が悪いのではない、本人の頭が悪いんだ」という呪文は免疫を正常化させる。
COVID-19の免疫低下や免疫暴走の制御に「底辺シリツ医大が悪いのではない、本人の頭が悪いんだ」という呪文が有用であることが示唆されたw
117:卵の名無しさん
21/02/16 22:13:51.76 hrhsgjZV.net
身内は国立医に行ってほしい!
118:卵の名無しさん
21/02/16 22:21:03.38 Ga/Bkx8z.net
私立医にも入れないジジイが喚いたところで負け惜しみだけどな。
119:卵の名無しさん
21/02/16 22:49:45.34 LZ1a1xfk.net
>>113
URLリンク(docs.microsoft.com)
120:卵の名無しさん
21/02/16 22:59:14.38 LZ1a1xfk.net
>>111
どうせ子供も裏口シリツに進学だから、その心配はないね。
121:卵の名無しさん
21/02/16 22:59:55.06 LZ1a1xfk.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.
ド底辺シリツ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる。
122:卵の名無しさん
21/02/16 23:15:44.28 Ga/Bkx8z.net
裏口だろうが何だろうが医学部入学できない、医者になれなかったからここで喚くしかできないだろ?ルサンチマンもここまでくると哀れ。
123:卵の名無しさん
21/02/16 23:17:26.72 Ga/Bkx8z.net
国立医の証明ができてからほざけ。
まあ国立医だったとしてもここまで歪んでたらどのみち人生終わってるけどな。
124:卵の名無しさん
21/02/17 07:05:15.41 dP0POhnr.net
どのみちトケジはゴミ。
125:卵の名無しさん
21/02/17 09:25:46.57 /FJynvax.net
>>80
95%信頼区間はいつになったら出すんだよ。
識者の見解
数学 統計に詳しい人が語るコロナウイルス ☆2
スレリンク(math板:417番)
417 名前:132人目の素数さん[] 投稿日:2021/01/18(月) 00:53:43.58 ID:00TjG9Tw
まあ、匿名掲示板で身分を云々することほど不毛なことはないからね。
決定的におかしなことでも言ってなければ、他人が自称する身分を否定
する必要はないでしょ。
逆に、何を言っても信じない人は信じないしね。
126:卵の名無しさん
21/02/17 09:50:36.43 nSszGOL9.net
>>123
医師免許はまだか?
127:卵の名無しさん
21/02/17 10:12:29.76 sH5fksRO.net
5年生の夏、都内のさる有名研修病院の病院見学にいきました。
その日は5人の医学生が参加していました。
自己紹介しあいましたが、さすがに有名病院だからでしょうが、皆さん国立医でした。
当日は研修統括部長が不在とかで、内科医長が院内を案内してくれました。
研修医詰め所をみせてもらって時です。
「うちは20数名研修医がいるんだけど、皆優秀で勉強好きだから頼もしいよ」
「ほとんどが国公立卒だな〜」
そう説明しながら、ある机に通りかかると、その机の本棚には立派な洋書ばかりが並んでおり、
和書が少ないくらいでした。
「この机は・・・・H君だな」と内科医長がつぶやきました。
(続く^^)
128:卵の名無しさん
21/02/17 10:13:50.02 sH5fksRO.net
「彼はA私立医大卒なんだが、まあまあ研修に付いてきてるようだ。だいぶマシになったよ」と
言いながら、一冊の洋書を手に取り、パラパラとめくった後、
「なんだ、全然使ってないじゃないか」
「こういうのを宝の持ち腐れっていうんだ」
と医長は吐き捨てました。
そしたら、一人だけ、研修医室で仕事中だった先輩研修医殿(東大でした)が
「それは本人は使ってないけど、僕らがたまに使わせてもらってます」
「僕らは英語読めますから〜」
と言い、ニヤリと笑みを浮かべます。
一同大爆笑でした。
後から、皆と情報交換しましたが、私立医が、全体の研修レベルを落すとかで、
どこの病院も採用する側は本当に困ってるようでした。
129:卵の名無しさん
21/02/17 11:13:39.94 /FJynvax.net
t=seq(-pi,pi,le=30)
Q=4*cos(t)+4i*sin(t)
A=6+0i
P=(Q+A)/2
plot(Re(Q),Im(Q), xlim=c(-4,6),asp=1,pch=1:9,col=1:9)
points(Re(P),Im(P),pch=1:9,col=1:9)
130:卵の名無しさん
21/02/17 11:36:27.16 /FJynvax.net
>>126
シリツ医大には化学の講義で
「モルってなんですか」と質問する学生がいるらしい。
131:卵の名無しさん
21/02/17 11:38:07.66 /FJynvax.net
>>91
知り合いの紹介だとそんなのは求められないし、
中抜きもない。
132:卵の名無しさん
21/02/17 11:39:39.05 /FJynvax.net
ド底辺医大の三法則
1: ド底辺シリツ医大が悪いのではない、本人の頭が悪いんだ。
2: ド底辺シリツ医大卒は恥ずかしくて、学校名を皆さま言いません。
3: ド底辺シリツ医大卒は裏口入学の負い目から裏口馬鹿を暴く人間を偽医者扱いしたがる。
133:卵の名無しさん
21/02/17 11:55:23.66 dP0POhnr.net
医者コンプウリュウの3法則
1.とにかく私立医が妬ましくて仕方ない
2.医者である証拠は何一つない
3.同じ書き込みしかできない
134:卵の名無しさん
21/02/17 15:09:38.08 sH5fksRO.net
埼玉医科大学病院抗がん剤過剰投与事件
2000年9月、右あご下腫瘍治療のために埼玉医科大学総合医療センターに入院した
埼玉県鴻巣市の女子高生(当時16歳)が、化学療法の一つである「VAC療法」
(硫酸ビンクリスチン・アクチノマイシンD・シクロフォスファミドを組み合わせる療法)を
受ける際、硫酸ビンクリスチン2mgを週1回12週間にわたって投与されるべきところを、
医師の文献の誤読により1週間連続で投与された。
その結果、患者は同年10月7日に多臓器不全で死亡した。
事故後、医師による説明に不信感を持った両親が110番通報をし、事件が発覚した。
担当研修医が英語文献を読めず、週一回投与(Weekly)を連日投与(daily)と解釈したために
抗癌剤の大量投与につながったことが判明している。
135:卵の名無しさん
21/02/17 16:05:16.37 /Et1WD2K.net
>>13
136:1 1.とにかく私立医が妬ましくて仕方ない いやー、さすがにそれは無いっしょw
137:卵の名無しさん
21/02/17 17:56:21.81 ++X0vkQI.net
いや第一原則こそが全てだろ
138:卵の名無しさん
21/02/17 18:23:24.53 vvW4bh2j.net
私立医大卒医は勝ち組。
上級国民だよ。
だってお金がなかったら本来は医者じゃ
無かったかもしれない連中なんだよ。
139:卵の名無しさん
21/02/17 19:26:44.20 kxcN5211.net
残念ながらウリュウのジジイはどのみち医者になれなかったけどな。
140:卵の名無しさん
21/02/17 21:40:28.99 3L1wk0VQ.net
URLリンク(www.asahi.com)
愛知知事リコール署名「一部は佐賀で」 活動団体認める
2021/2/16 22:08 会員記事
美容外科「高須クリニック」の高須克弥院長らによる愛知県の大村秀章知事へのリコール署名で16日、複数のアルバイトが佐賀市で署名簿の書き写しに関わっていたとされる一部報道を受け、署名活動団体の事務局長が、署名簿の一部について「佐賀で作成されたのは間違いない」と認めた。ただ、事務局がアルバイト募集に関与したことは否定。「高須氏からしっかり調べるよう言われた」と事実確認する考えを示した。
141:卵の名無しさん
21/02/17 21:40:57.82 3L1wk0VQ.net
高須氏
私は報告を受けていません
で貫き通すつもり?
142:卵の名無しさん
21/02/18 10:55:30.49 RBOvg4tz.net
私立医 高須 無様だなw
143:卵の名無しさん
21/02/19 05:59:09.17 OB1eKa3C.net
"ある数が3の倍数の時3で割り、そうでなければ2を足す
これを1になるまでくりかえす
初めの数字を12とした場合 1になることはない理由を答えなさい
また2020番目の数字を答えなさい
"
a=numeric()
i=1
a[i]=12
while(a[i]!=1 & i<2020){
a[i+1]=ifelse(a[i]%%3,a[i]+2,a[i]%/%3)
i=i+1
}
a[1:50]
a[2020]
144:卵の名無しさん
21/02/19 06:01:51.01 OB1eKa3C.net
>>139
この程度の頭脳。比例計算すら間違える。
URLリンク(news.yahoo.co.jp)
145:卵の名無しさん
21/02/19 06:19:18.80 OB1eKa3C.net
nu_de <- function(n,print=T){
de=ceiling(-1/2+sqrt(1+8*n)/2)
nu=de-(de*(de+1)/2-n)
if(print) cat(paste0(n,':',nu,'/',de,'\n'))
nu/de
}
nu_de=Vectorize(nu_de)
fn <- function(n) length(unique(nu_de(1:n,F)))
fn(2021)
146:卵の名無しさん
21/02/19 07:05:43.24 OB1eKa3C.net
f <- function(n,m=2020){
a=numeric()
i=1
a[i]=n
while(a[i]!=1 & i<m){
a[i+1]=ifelse(a[i]%%3,a[i]+2,a[i]%/%3)
i=i+1
}
c(i,a[i])
}
f=Vectorize(f)
x=0:1010*2+1
y=t(f(x))
y[y[,1]==max(y[,1]),]
x[y[,1]==max(y[,1])]
147:卵の名無しさん
21/02/19 08:00:47.01 OB1eKa3C.net
f <- function(n){
a=numeric()
i=1
a[i]=n
while(a[i]!=1){
a[i+1]=ifelse(a[i]%%3,a[i]+2,a[i]%/%3)
i=i+1
}
c(i,a[i])
}
f=Vectorize(f)
x=0:500000*2+1
y=t(f(x))
y[y[,1]==max(y[,1]),]
x[y[,1]==max(y[,1])]
148:卵の名無しさん
21/02/19 08:00:53.36 OB1eKa3C.net
f <- function(n){
a=numeric()
i=1
a[i]=n
while(a[i]!=1){
a[i+1]=ifelse(a[i]%%3,a[i]+2,a[i]%/%3)
i=i+1
}
a
}
data.frame(f(531443))
149:卵の名無しさん
21/02/19 10:35:43.22 POuXxe+1.net
愛国者 高須は 昭和卒だねw
150:卵の名無しさん
21/02/19 10:45:23.66 OB1eKa3C.net
>>146
脱税は裁判で確定だっけ?
151:卵の名無しさん
21/02/19 12:36:35.12 OB1eKa3C.net
とあるド底辺シリツ医大から無作為に学生10人を抽出して偏差値を調査したところ
低い順に 40 45 46 47 49 52 52 56 69 72であったとする。
偏差値の分布は不明である(正規分布を仮定できない)。
予備校の公表値では偏差値55で合格とされているとき
この医大の裏口入学(偏差値55未満での入学)の割合を推定せよ。
152:卵の名無しさん
21/02/19 13:35:06.60 OB1eKa3C.net
シリツ医が反論せずに逃げまくる正論
川崎医大の創始者の子供や孫は教育投資して学力をつけて
岡山大学や京都大学の医学部に入学。
法外な学費が払える経済状況にありながらド底辺シリツ医大にしか入れないのは馬鹿の証明。
153:卵の名無しさん
21/02/19 17:23:39.92 OB1eKa3C.net
Collatz <- function(n){
m=n
i=1
re=NULL
while(m!=1){
re=append(re,m)
m=ifelse(m%%2,3*m+1,m%/%2)
i=i+1
}
re=append(re,m)
re
}
Collatz(27)
plot(Collatz(97),type='l')
lmc <- function(n){ # length and max of collatz
co=Collatz(n)
c(length=length(co),max=max(co))
}
n=1:1e6
y=t(sapply(n,lmc))
tail(y)
154:卵の名無しさん
21/02/19 18:04:12.77 OB1eKa3C.net
> lmc(837799)
length max
525 2974984576
155:卵の名無しさん
21/02/19 18:18:07.32 POuXxe+1.net
>>147 2回も巨額雑税している
個人の額としては日本至上最高額の脱税
それが昭和卒 高須
156:卵の名無しさん
21/02/20 00:47:12.73 UTPiOSKD.net
ルサンチマンジジイの僻みは留まることを知らずw
157:卵の名無しさん
21/02/20 05:19:09.27 lCd4GLjX.net
こんなことに税金使うな!と言ってた連中が大規模な不正を働いたせいで本来ならやらなくてもいいような署名簿の精査のために税金を使い
天皇を侮辱するな!と言ってた連中が陛下の名を語り犯罪に手を染める…
もう高須達はリコール開始当初の大義なんて完全に見失ってるよな
158:卵の名無しさん
21/02/20 05:21:06.15 lCd4GLjX.net
年配者=老害
としか考えられない人って親の愛情に恵まれない哀れな人生を
送ってきたのだろうな。
159:卵の名無しさん
21/02/20 07:29:20.56 lCd4GLjX.net
>>148
解説文は飛ばしてRのコードだけ読めばブートストラップが使える。
URLリンク(mjin.doshisha.ac.jp)
母集団の推定平均値の信頼区間はだせるから
裏口率は点推定できる。
160:卵の名無しさん
21/02/20 09:23:21.95 bTTCnZQZ.net
矩形波のフーリエ変換のグラフ
sumf <- function(x,n,fun,start=0){ # (1/4)Σsin((2n+1)θ)/(2n+1)
re=0
for(i in start:n) re=re+fun(x,i)
re
}
sumf=Vectorize(sumf,vectorize.args = 'x')
par(mfrow=c(2,2))
n=0 ; 2*n+1
curve(sumf(x,n,function(x,n) sin((2*n+1)*x)/(2*n+1)),-pi,pi,ann=F)
n=2 ; 2*n+1
curve(sumf(x,n,function(x,n) sin((2*n+1)*x)/(2*n+1)),-pi,pi,ann=F)
n=10 ; 2*n+1
curve(sumf(x,n,function(x,n) sin((2*n+1)*x)/(2*n+1)),-pi,pi,ann=F)
n=100 ; 2*n+1
curve(sumf(x,n,function(x,n) sin((2*n+1)*x)/(2*n+1)),-pi,pi,ann=F)
layout(1)
161:卵の名無しさん
21/02/20 10:04:00.43 bTTCnZQZ.net
>>148
simpleboot便利だな。
一々、sampleする関数を組まなくてもすむ。
library(simpleboot)
b.mean=one.boot(data=X,FUN=mean,R=5000,student = TRUE,M=5000)
boot.ci(b.mean)
X=c(40,45,46,47,49,52,52,56,69,72)
sim <- function(){
b=simpleboot::one.boot(X,mean,R=5000)
mean(b$t<55)
}
sim()
y=replicate(1e3,sim())
BEST::plotPost(y,col=4,showCurve = T)
162:卵の名無しさん
21/02/20 10:17:19.22 +jSC7fmZ.net
昭和医大は 日本最大のペテン師 高須を生み出した私立医!
163:卵の名無しさん
21/02/20 13:16:20.54 hy5VxzjH.net
>>155
高齢者はむしろ死んでもらったほうが日本のために良い
URLリンク(imgur.com)
ジジババが死ねばニッポンはこうなる
URLリンク(imgur.com)
164:卵の名無しさん
21/02/20 13:18:33.24 hy5VxzjH.net
日本の総資産の大半を65歳以上の老人が貯め込んでて
若者はお金も無くて青色吐息。
払った以上の年金を貰えるのもこの世代。
そりゃあ文句の1つも言いたくなるだろ。
165:卵の名無しさん
21/02/20 19:46:07.34 f5ySsxjz.net
高須 男なら自決せよ!
166:卵の名無しさん
21/02/21 07:26:47.48 o5j8Dl9L.net
>>148
推定値を算術平均にすると、中心極限定理から正規分布での近似になってしまう。
幾何平均、調和平均、中央値、最頻値を推定して計算させると
library(simpleboot)
library(BEST)
mode <- function(x) {
dens <- density(x)
mode_i <- which.max(dens$y)
dens$x[mode_i]
}
X=c(40,45,46,47,49,52,52,56,69,72)
sim <- function(FUN){ # FUN:推定値の算出関数(例:mean, median)
b=simpleboot::one.boot(X,FUN,R=5000)
mean(b$t<55)
}
sim(mean) # 算術平均
sim(function(x) exp(mean(log(x)))) # 幾何平均
sim(function(x) 1/mean(1/x)) # 調和平均
sim(median) # 中央値
sim(mode) # 最頻値
167:卵の名無しさん
21/02/21 07:26:53.56 o5j8Dl9L.net
# 信頼区間算出
# 算術平均
y.mean=replicate(1e3,sim(mean))
BEST::plotPost(y.mean,col=4,showCurve = T)
# 幾何平均
y.geo_mean=replicate(1e3,sim(function(x) exp(mean(log(x)))))
BEST::plotPost(y.geo_mean,col=4,showCurve = T)
# 調和平均
y.harmonic_mean=replicate(1e3,sim(function(x) 1/mean(1/x)))
BEST::plotPost(y.harmonic_mean,col=4,showCurve = T)
# 中央値
y.median=replicate(1e3,sim(median))
BEST::plotPost(y.median,col=4,showCurve = T)
# 最頻値
y.mode=replicate(1e3,sim(mode))
BEST::plotPost(y.mode,col=4,showCurve = T)
168:卵の名無しさん
21/02/21 07:28:12.37 o5j8Dl9L.net
裏口、脱税、リコール署名偽造とか、恥ずかしくないのはシリツだからか?
169:卵の名無しさん
21/02/21 07:29:01.47 o5j8Dl9L.net
結局、算術平均での推定が裏口率が一番低く見積もられた。
170:卵の名無しさん
21/02/21 08:15:13.25 o5j8Dl9L.net
発展問題
とあるド底辺シリツ医大から無作為に学生10人を抽出して偏差値を調査したところ
低い順に 40 45 46 47 49 52 52 56 69 72であったとする。
偏差値の分布は裏口率を甘く見積もられる正規分布を仮定する。
文科省から裏口入学は1割以下にせよと行政指導が内々に伝えられたとする。
合格基準偏差値をいくつ以下に設定すれば推定裏口率を1以下にできるか計算せよ。
次ページ最新レス表示スレッドの検索類似スレ一覧話題のニュースおまかせリスト▼オプションを表示暇つぶし2ch
10日前に更新/106 KB
担当:undef