[過去ﾛｸﾞ] 臨床統計もおもしろいですよ、その2 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
869: 2020/01/29(水)05:56 ID:qmYv2xxr(4/9) AAS
>>868
この手法で新薬の血中濃度は老人でも統計的に有意差はないので、安心して老人にも処方できます
という商用パンプを目にする。
底辺シリツ医＝裏口容疑者はこういうのに騙されるんだよなぁ。
870: 2020/01/29(水)07:45 ID:qmYv2xxr(5/9) AAS
>>868
平均値100 標準偏差15で定義される知能指数で
標準大学の新入生の知能指数の平均が100
裏口シリツ医大の新入生の知能指数の平均が85であったとする。
1学年は100人として
各大学から1/10を無作為抽出して知能指数をｔ検定したときのｐ値の期待値、中央値を求めよ。
また、ｐ値が0.05以上になって裏口シリツ医大の新入生の知能指数は統計的に有意差はないと主張できる確率はいくらか？
871(1): 2020/01/29(水)10:58 ID:wNUvDIoi(1/3) AAS
>>863
大漁っ！！イサキぃぃ！！おにいちゃんかっこいいいいぃぃぃい ぃくううううう！
872(2): 2020/01/29(水)12:49 ID:NU71nZE3(1) AAS
私立出身医が一番多いスレであろう「開業医が集うスレ」のほうには書き込みせんのな？
873: 2020/01/29(水)15:37 ID:qmYv2xxr(6/9) AAS
>>872
書いているよ。
開業医スレでもシリツは馬鹿にされているじゃん。
2chｽﾚ:hosp
>>23
生データもある程度掲載されているから自分で統計処理が再現でいるな。
こういうのを考えてみると面白い。
Fisher testの結果が俺の計算と異なって気持ちが悪いままだが。
2019-nCov感染者41例中ICU収容13例（うち現喫煙者0),28例非収容(うち現喫煙者3)である。
このことから、煙草を吸うと重症化が防げると結論できるか？
874(2): 2020/01/29(水)15:37 ID:qmYv2xxr(7/9) AAS
>>871
そんなにレスじゃ、フェラもイサキも手に入れることはできんぞ。
875(2): 2020/01/29(水)17:41 ID:wNUvDIoi(2/3) AAS
では次の問題です
タバコは脳の病気です
この事実を証明せよ
外部ﾘﾝｸ:togetter.com
876: 2020/01/29(水)17:46 ID:qmYv2xxr(8/9) AAS
>853
877: 2020/01/29(水)19:50 ID:qmYv2xxr(9/9) AAS
>>872
俺が書かなくてもこういう投稿を目にする。
まあ、シリツ医という表記は俺の影響かもしれん。
自治医大とかを除外する意味で私立と書いていないわけだが。
>>
優秀な女子はぜひ国立医に入ってほしい
シリツ医は開業医のアホ子弟専用の専門学校
878(3): 2020/01/29(水)21:34 ID:wNUvDIoi(3/3) AAS
まあたしかに私立は学費が高いのは認める
わしも経済的理由で
合格した慶応は学費が高いので蹴って
地元イナカの国立にいった
879(1): 2020/01/30(木)05:17 ID:m/EdOA9B(1/6) AAS
>>878
イナカも東京も国立なら学費は同じだぞ。
880(1): 2020/01/30(木)08:20 ID:b9qEKmQr(1) AAS
>>879
イナカモノにしてみれば
地元以外のところに大学が存在しているという時点で
学費以外にもアパート代や食費などの参入障壁があるんだな
881: 2020/01/30(木)08:31 ID:17lSJR5q(1) AAS
>>880
シリツ医大専門受験予備校のバイトは一コマ90分で手取り2万円だったな。大学の授業料が年間14万4千円の頃の話。
地方にはそんな割のいいバイトはない。
882: 2020/01/30(木)20:25 ID:m/EdOA9B(2/6) AAS
Rで困ったらstackoveflow.comだな。
library(Rmpfr)
vect = rep(0, 5)
for(i in 1:5){
vect[i] = mpfr(x=10^-(10*i), precBits=100)
}
# My vector has just turned to a list
vect
# Sum of list is an error
sum(vect)
省6
883: 2020/01/30(木)21:10 ID:m/EdOA9B(3/6) AAS
パッケージの内部関数を使って解決してくれた。
The function mpfr2array is not suposed to be called by the user, it is an internal tool for the package. However it's one way to solve the problem.
884(2): 2020/01/30(木)21:21 ID:m/EdOA9B(4/6) AAS
Rはデフォルトでは不定長さ整数を扱えないので工夫がいる。
その点はpythonやHaskellの方が有利。
"
H(n) = Σ[k=1,2,...,n] 1/k
とする。H(n)を既約分数で表したときの分子の整数をf(n)と表す。
(1）lim[n→∞] H(n) を求めよ、答えのみで良い。
(2）n=1,2,...に対して、f(n)に現れる1桁の整数を全て求めよ
"
rm(list=ls())
H <- function(n,prec=1000){ # Σ 1/kを既約分数表示する
省17
885: 2020/01/30(木)23:51 ID:m/EdOA9B(5/6) AAS
#Reed-Frost Model
ReedFrost=function(
p=0.04,
N=100,
T=40)
{
q=1-p
I=numeric(T)
S=numeric(T)
I[1]=1
省16
886: 2020/01/30(木)23:53 ID:m/EdOA9B(6/6) AAS
こっちは、モンテカルロによるシミュレーション
# Reed-Frost and Greenwood epidemic models
# written by Dennis Chao (1/2009)
# reedfrost - the Reed-Frost epidemic model
# p = probability of transmission
# I0 = initial number of infecteds
# S0 = initial number of susceptibles
# n = number of trials
# greenwood = set to TRUE for the Greenwood model, otherwise run Reed-Frost
# outputs the number of infected and susceptibles over time (as I and S)
省19
887: 2020/01/31(金)00:59 ID:24QiZJ0Y(1/14) AAS
f <- function(n,prec=1000){ # Σ 1/kを既約分数表示する
if(n==1){
cat(1,'\n')
invisible(1)
}else{
GCD <- function(a,b){ # ユークリッドの互除法
r = a%%b # a=bq+r ⇒ a%%b=b%%rで最大公約数表示
while(r!=0){a = b ; b = r ; r = a%%b}
b }
library(Rmpfr)
省17
888: 2020/01/31(金)01:00 ID:24QiZJ0Y(2/14) AAS
> for(i in 1:30) f(i)
1
3 / 2
11 / 6
25 / 12
137 / 60
49 / 20
363 / 140
761 / 280
7129 / 2520
省21
上下前次1-新書関写板覧索設栞歴
あと 114 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.059s