Estoy tratando de establecer una distribución previa para un metanálisis bayesiano.
Tengo la siguiente información sobre una variable aleatoria:
- Dos observaciones: 3.0, 3.6
- Un científico que estudia la variable me ha dicho que , y que valores tan altos como 6 tienen una probabilidad distinta de cero.
He utilizado el siguiente enfoque para la optimización (el modo de 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
En la figura, puede ver la distribución que esto devuelve, pero me gustaría encontrar algo más parecido a las líneas rojas que he dibujado.
Esto proporciona la misma distribución conformada utilizando lognormal, gamma o normal, y da como resultado una distribución con y , es decir:
plnorm(c(5,6), v$estimate[1],v$estimate[2])
¿Alguien puede sugerir alternativas? Preferiría seguir con una sola distribución en lugar de una mezcla.
¡Gracias!