Como @whuber señaló, los métodos estadísticos no exactamente el trabajo aquí. Debe inferir la distribución de otras fuentes. Cuando usted sabe que la distribución tiene un no-lineal de la ecuación de resolver el ejercicio. Denotar por $f$ el cuantil función de su distribución de probabilidad con vector de parámetros $\theta$. Lo que tenemos es el siguiente sistema no lineal de ecuaciones:
\begin{align*}
q_{0.05}&=f(0.05,\theta) \\
q_{0.5}&=f(0.5,\theta) \\
q_{0.95}&=f(0.95,\theta)\\
\end{align*}
donde $q$ son sus cuantiles. Usted necesita para resolver este sistema para encontrar $\theta$. Ahora para prácticamente para cualquier 3-distribución de parámetros encontrará los valores de los parámetros de satisfacer esta ecuación. 2-parámetro y el parámetro 1-distribuciones de este sistema es sobredeterminada, por lo que no hay soluciones exactas. En este caso, usted puede buscar para un conjunto de parámetros que se minimiza la discrepancia:
\begin{align*}
(q_{0.05}-f(0.05,\theta))^2+ (q_{0.5}-f(0.5,\theta))^2 + (q_{0.95}-f(0.95,\theta))^2
\end{align*}
Aquí he elegido la función cuadrática, pero puedes escoger lo que quieras. De acuerdo con @whuber comentarios puede asignar pesos, por lo que es más importante cuantiles puede ser equipado con más precisión.
Para cuatro y más parámetros que el sistema es indeterminado, por lo que un número infinito de soluciones existe.
He aquí una muestra de R código que ilustra este enfoque. Para fines de demostración generar los cuantiles de Singh-Maddala distribución de VGAM paquete. Esta distribución tiene 3 parámetros y se utiliza en el modelado de la distribución de ingresos.
q <- qsinmad(c(0.05,0.5,0.95),2,1,4)
plot(x<-seq(0,2,by=0.01), dsinmad(x, 2, 1, 4),type="l")
points(p<-c(0.05, 0.5, 0.95), dsinmad(p, 2, 1, 4))
Ahora la forma de la función que evalúa el sistema no lineal de ecuaciones:
fn <- function(x,q) q-qsinmad(c(0.05, 0.5, 0.95), x[1], x[2], x[3])
Comprobar si los verdaderos valores satisfacen la ecuación:
> fn(c(2,1,4),q)
[1] 0 0 0
Para la solución de la no-lineales sistema de ecuaciones puedo usar la función nleqslv
del paquete nlqeslv.
> sol <- nleqslv(c(2.4,1.5,4.3),fn,q=q)
> sol$x
[1] 2.000000 1.000000 4.000001
Como vemos tenemos la solución exacta. Ahora vamos a tratar de encajar log-normal de distribución para estos cuantiles. Para ello vamos a utilizar la optim
función.
> ofn <- function(x,q)sum(abs(q-qlnorm(c(0.05,0.5,0.95),x[1],x[2]))^2)
> osol <- optim(c(1,1),ofn)
> osol$par
[1] -0.905049 0.586334
Ahora parcela el resultado
plot(x,dlnorm(x,osol$par[1],osol$par[2]),type="l",col=2)
lines(x,dsinmad(x,2,1,4))
points(p,dsinmad(p,2,1,4))
De esto podemos ver de inmediato que la función cuadrática no es tan bueno.
Espero que esto ayude.