Ich versuche, eine vorherige Verteilung für eine Bayes'sche Metaanalyse anzugeben.
Ich habe die folgenden Informationen zu einer Zufallsvariablen:
- Zwei Beobachtungen: 3.0, 3.6
- Ein Wissenschaftler, der die Variable untersucht, hat mir gesagt, dass ist und dass Werte bis 6 eine Wahrscheinlichkeit ungleich Null haben.
Ich habe den folgenden Optimierungsansatz verwendet (der Modus von log-N = :
prior <- function(parms, x, alpha) {
a <- abs(plnorm(x[1], parms[1], parms[2]) - (alpha/2))
b <- abs(plnorm(x[2], parms[1], parms[2]) - (1-alpha/2))
mode <- exp(parms[1] - parms[2]^2)
c <- abs(mode-3.3)
return(a + b + c)
}
v = nlm(prior,c(log(3.3),0.14),alpha=0.05,x=c(2.5,7.5))
x <- seq(1,10,0.1)
plot(x, dlnorm(x, v$estimate[1], v$estimate[2]))
abline(v=c(2.5,7.5), lty=2) #95%CI
In der Abbildung sehen Sie die Verteilung, die dies zurückgibt, aber ich würde gerne etwas ähnlicheres wie die roten Linien finden, die ich gezeichnet habe.
Dies liefert die gleiche Formverteilung unter Verwendung von Lognormal, Gamma oder Normal und führt zu einer Verteilung mit und , dh:
plnorm(c(5,6), v$estimate[1],v$estimate[2])
Kann jemand Alternativen vorschlagen? Ich würde mich lieber an eine einzelne Verteilung als an eine Mischung halten.
Vielen Dank!