1
Richtlinien zur Publikation von BAYES-Schätzungen
Reinhard VONTHEIN
Institut für Medizinische Biometrie, Tübingen reinhard.vonthein@uni-tuebingen.de
Eberhard-Karls-Universität
UKT
Universitätsklinikum Tübingen
EBERHARD KARLS
Richtlinien zur Publikation von B AYES -Schtzungen R einhard V - - PDF document
E BERHARD K ARLS U NIVERSITT Eberhard-Karls-Universitt UKT T BINGEN Universittsklinikum Tbingen Richtlinien zur Publikation von B AYES -Schtzungen R einhard V ONTHEIN Institut fr Medizinische Biometrie, Tbingen
Eberhard-Karls-Universität
Universitätsklinikum Tübingen
EBERHARD KARLS
model { for(i in 1:92){ # Inhaltliches Modell Y1[i] ~ dbin(p1[i],65);pm1[i] <- 65*p1[i]; Y2[i] ~ dbin(p2[i],65);pm2[i] <- 65*p2[i]; logit(p1[i]) <- my0 + xi*my[i] - 0.5*tdiff + (treatment[i]-1.5)*bdiff - 0.5*(treatment[i]-1.5)*dd; logit(p2[i]) <- my0 + xi*my[i] + 0.5*tdiff + (treatment[i]-1.5)*bdiff + 0.5*(treatment[i]-1.5)*dd; } # Random nested Effects for(i in 1:46) { my[i] ~ dnorm(0,tau); } # RUL for(i in 47:92) { my[i] ~ dnorm(0,tau); } # BIF # a priori Verteilungen tau ~ dgamma(0.5,0.5); # chi^2 with 1 df sigma <- abs(xi)/sqrt(tau); xi ~ dnorm(0,tau.xi); # cauchy tau.xi <- pow(prior.scale, -2); prior.scale <- 1; dd ~ dnorm(0,1); tdiff ~ dnorm(0,1); bdiff ~ dnorm(0,1); my0 ~ dnorm(0,1); # interessanter Output m1 <- 65*exp(my0-0.5*tdiff)/(1+exp(my0-0.5*tdiff)); m2 <- 65*exp(my0+0.5*tdiff)/(1+exp(my0+0.5*tdiff)); dt <- m2-m1; rul1 <- 65*exp(my0-0.5*bdiff-0.5*tdiff+0.25*dd)/(1+exp(my0-0.5*bdiff-0.5*tdiff+0.25*dd)); bif1 <- 65*exp(my0+0.5*bdiff-0.5*tdiff-0.25*dd)/(1+exp(my0+0.5*bdiff-0.5*tdiff-0.25*dd)); rul2 <- 65*exp(my0-0.5*bdiff+0.5*tdiff-0.25*dd)/(1+exp(my0-0.5*bdiff+0.5*tdiff-0.25*dd)); bif2 <- 65*exp(my0+0.5*bdiff+0.5*tdiff+0.25*dd)/(1+exp(my0+0.5*bdiff+0.5*tdiff+0.25*dd)); ww <- bif2-bif1-(rul2-rul1); } inits list() data list(treatment=c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,2, 2, 2, 2, 2, 2, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2), Y1=c(16, 22, 24, 32, 27, 32, 29, 31, 23, 36, 32, 24, 36, 20, 37, 26, 30, 32, 37, 31, 28, 24, 31, 31, 34, 28, 24, 36, 27, 28, 34, 27, 39, 20, 16, 24, 23, 17, 22, 29, 33, 27, 21, 39, 34, 21, 20, 20, 26, 39, 18, 29, 37, 19, 27, 28, 32, 33, 17, 35, 33, 30, 35, 31, 33, 28, 22, 34, 30, 22, 38, 27, 20, 27, 22, 20, 42, 36, 25, 28, 22, 34, 17, 27, 19, 24, 32, 26, 28, 30, 30, 23), Y2=c(7, 19, 20, 32, 12, 30, 24, 22, 14, 23, 13, 14, 16, 6, 23, 18, 22, 26, 30, 26, 10, 16, 21, 23, 18, 2, 4, 5, 23, 19, 23, 23, 32, 13, 15, 16, 16, 17, 14, 12, 25, 20, 16, 8, 15, 15, 17, 24, 15, 16, 15, 23, 27, 17, 15, 19, 36, 18, 12, 22, 22, 23, 9, 13, 15, 19, 7, 20, 7, 9, 20, 6, 12, 26, 13, 19, 35, 23, 18, 18, 20, 24, 9, 9, 14, 15, 12, 27, 16, 30, 14, 8) )
beta[1,1] Ketten 1:2 Iteration 1 200 400 600
0.0 0.5 1.0
1 0.0 0.5 1.0 1.5 2.0 2.5 3.0
Vonthein R. (2002). Bayesians should use if-then-diagrams. XXIst IBC 2002 Freiburg/Germany July 21-26, 136 Carlin, B. P., Chib, M. K. (1995). Bayesian model choice via Markov chain Monte Carlo. JRSS B 57:473-484
0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1
.1 .2 .3 .4 .5 .6 .7 .8 .9 1