[過去ログ]
数学 統計に詳しい人が語るコロナウイルス (1002レス)
数学 統計に詳しい人が語るコロナウイルス http://rio2016.5ch.net/test/read.cgi/math/1582910321/
上
下
前
次
1-
新
通常表示
512バイト分割
レス栞
このスレッドは過去ログ倉庫に格納されています。
次スレ検索
歴削→次スレ
栞削→次スレ
過去ログメニュー
484: 132人目の素数さん [sage] 2020/05/09(土) 17:15:11.02 ID:oDT7bFgO >どの週においても両群で症状改善率は不変 この前提はおかしいので週ごとに症状改善率が変わるようにモデルを変更 model{ # data for(i in 1:N){ s1[i] ~ dbin(p1[i],n1) s2[i] ~ dbin(p2[i],n2) } # parameter alpha <- delta*sigma for(i in 1:N){ p1[i] <- phi(x1[i]) # probit:pnorm(x) p2[i] <- phi(x2[i]) # p1[i] <- ilogit(x1[i]) # logit:exp(x)/(1+exp(x)) # p2[i] <- ilogit(x2[i]) } # model for(i in 1:N){ x1[i] ~ dnorm(mu + alpha/2, pow(sigma,-2)) # alpha:difference of mean x2[i] ~ dnorm(mu - alpha/2, pow(sigma,-2)) } # priors delta ~ dnorm(0,1) mu ~ dnorm(0,1) sigma ~ dt(0,1,1)T(0,) } ベイズファクターは > (BF01=d.post/d.prio) [1] 0.9976274 症状改善率に差がないというモデルも差があるというモデルも周辺尤度(エビデンス)はほぼ同じという結果。 http://rio2016.5ch.net/test/read.cgi/math/1582910321/484
メモ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 518 レスあります
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
AAサムネイル
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.009s