Saya mencoba untuk menyatakan distribusi sebelumnya untuk meta-analisis Bayesian.
Saya memiliki informasi berikut tentang variabel acak:
- Dua pengamatan: 3.0, 3.6
- seorang ilmuwan yang mempelajari variabel telah mengatakan kepada saya bahwa , dan nilai-nilai setinggi 6 memiliki probabilitas nol.
Saya telah menggunakan pendekatan berikut untuk optimasi (mode 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
Pada gambar, Anda dapat melihat distribusi yang kembali ini, tetapi saya ingin menemukan sesuatu yang lebih seperti garis merah yang saya buat.
Ini memberikan distribusi bentuk yang sama menggunakan lognormal, gamma, atau normal, dan menghasilkan distribusi dengan dan , yaitu:
plnorm(c(5,6), v$estimate[1],v$estimate[2])
Adakah yang bisa menyarankan alternatif? Saya lebih suka tetap dengan distribusi tunggal daripada campuran.
Terima kasih!