Tôi đang cố gắng đưa ra phân phối trước cho phân tích tổng hợp Bayes.
Tôi có các thông tin sau về một biến ngẫu nhiên:
- Hai quan sát: 3.0, 3.6
- một nhà khoa học nghiên cứu về biến đã nói với tôi rằng và các giá trị cao tới 6 có xác suất khác không.
Tôi đã sử dụng cách tiếp cận sau đây để tối ưu hóa (chế độ 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
Trong hình, bạn có thể thấy phân phối mà điều này trả về, nhưng tôi muốn tìm một cái gì đó giống như các đường màu đỏ mà tôi đã vẽ.
Điều này cung cấp phân phối có hình dạng tương tự bằng cách sử dụng lognatural, gamma hoặc bình thường và kết quả là phân phối với và , nghĩa là:P ( X = 6 ) < 0,01
plnorm(c(5,6), v$estimate[1],v$estimate[2])
Bất cứ ai có thể đề nghị thay thế? Tôi thích gắn bó với một phân phối duy nhất hơn là một hỗn hợp.
Cảm ơn!