Aquí hay una guía para resolver este problema (y otros similares). Utilizo valores simulados para ilustrar, así que comencemos simulando una gran cantidad de realizaciones independientes de la distribución con densidad . (Todo el código en esta respuesta está escrito ).fR
n <- 4e4 # Number of trials in the simulation
x <- matrix(pmax(runif(n*3), runif(n*3)), nrow=3)
# Plot the data
par(mfrow=c(1,3))
for (i in 1:3) {
hist(x[i, ], freq=FALSE, main=paste("i =", i))
curve(f(x), add=TRUE, col="Red", lwd=2)
}
Los histogramas muestran realizaciones independientes del primer, segundo y tercer elemento de los conjuntos de datos. El gráfico de curvas rojas . El hecho de que coincidan con los histogramas confirma que la simulación está funcionando según lo previsto.40,000f
Necesita calcular la densidad conjunta de . (Y1,Y2,Y3)Dado que está estudiando estadísticas de pedidos, esto debería ser rutinario, pero el código proporciona algunas pistas, ya que traza sus distribuciones como referencia.
y <- apply(x, 2, sort)
# Plot the order statistics.
f <- function(x) 2*x
ff <- function(x) x^2
for (i in 1:3) {
hist(y[i, ], freq=FALSE, main=paste("i =", i))
k <- factorial(3) / (factorial(3-i)*factorial(1)*factorial(i-1))
curve(k * (1-ff(x))^(3-i) * f(x) * ff(x)^(i-1), add=TRUE, col="Red", lwd=2)
}
Los mismos datos se han reordenado dentro de cada uno de los conjuntos de datos. A la izquierda está el histograma de sus mínimos , a la derecha sus máximos , y en el medio sus medianas .40,000Y1Y3Y2
Luego, calcule la distribución conjunta de directamente. (U1,U2) Por definición esto es
F(u1,u2)=Pr(U1≤u1,U2≤u2)=Pr(Y1≤u1Y2,Y2≤u2Y3).
Como ha calculado la densidad conjunta de , esta es una cuestión rutinaria de hacer la integral (triple) expresada por la probabilidad de la derecha. La región de integración debe ser(Y1,Y2,Y3)
0≤Y1≤u1Y2, 0≤Y2≤u2Y3, 0≤Y3≤1.
La simulación nos puede dar una idea de cómo se distribuyen : aquí hay un diagrama de dispersión de los valores realizados de . Su respuesta teórica debe describir esta densidad.(U1,U2)(U1,U2)
par(mfrow=c(1,1))
u <- cbind(y[1, ]/y[2, ], y[2, ]/y[3, ])
plot(u, pch=16, cex=1/2, col="#00000008", asp=1)
Como verificación, podemos mirar las distribuciones marginales y compararlas con las soluciones teóricas. Las densidades marginales, mostradas como curvas rojas, se obtienen como y .∂F(u1,1)/∂u1∂F(1,u2)/∂u2
par(mfrow=c(1,2))
hist(u[, 1], freq=FALSE); curve(2*x, add=TRUE, col="Red", lwd=2)
hist(u[, 2], freq=FALSE); curve(4*x^3, add=TRUE, col="Red", lwd=2)
par(mfrow=c(1,1))
Es curioso que tenga la misma distribución que el original .U1Xi