Esta pergunta pode ser respondida como declarado apenas assumindo que as duas variáveis aleatórias e governadas por essas distribuições são independentes. X 2X1X2 Isso faz a diferença Normal com média e variação . (A solução a seguir pode ser facilmente generalizada para qualquer distribuição normal bivariada de .) Assim, a variável μ= μ 2 - μ 1 σ 2 = σ 2 1 + σ 2 2 ( X 1 , X 2 )X= X2- X1μ = μ2- μ1σ2= σ21+ σ22( X1, X2)
Z= X- μσ= X2- X1- ( μ2- μ1)σ21+ σ22------√
tem uma distribuição normal padrão (ou seja, com média zero e variação unitária) e
X= σ( Z+ μσ) .
A expressão
| X2- X1| = | X| = X2---√= σ( Z+ μσ)2--------√
exibe a diferença absoluta como uma versão escalada da raiz quadrada de uma distribuição qui-quadrado não central com um grau de liberdade e parâmetro de não centralidade . Uma distribuição qui-quadrado não central com esses parâmetros possui um elemento de probabilidadeλ = ( μ / σ)2
f( y) dy= y√2 π--√e12( - λ - y)cosh( λ y--√) dyy, y > 0.
Escrever para estabelece uma correspondência um-para-um entre e sua raiz quadrada, resultando em x > 0 yy= x2x > 0y
f( y) dy= f( x2) d( x2) = x2--√2 π--√e12( - λ - x2)cosh( λ x2---√) dx2x2.
Simplificar isso e depois redimensionar fornece a densidade desejada,σ
f| X|( x ) = 1σ2π--√cosh( x μσ2) exp( - x2+ μ22 σ2) .
Este resultado é suportado por simulações, como este histograma de 100.000 desenhos independentes de(chamado "x" no código) com os parâmetros . Nele é plotado o gráfico de , que coincide com os valores do histograma.μ 1 = - 1 , μ 2 = 5 , σ 1 = 4 , σ 2 = 1 f | X || X| = | X2- X1|μ1= - 1 , μ2= 5 , σ1= 4 , σ2= 1f| X|
O R
código para esta simulação segue.
#
# Specify parameters
#
mu <- c(-1, 5)
sigma <- c(4, 1)
#
# Simulate data
#
n.sim <- 1e5
set.seed(17)
x.sim <- matrix(rnorm(n.sim*2, mu, sigma), nrow=2)
x <- abs(x.sim[2, ] - x.sim[1, ])
#
# Display the results
#
hist(x, freq=FALSE)
f <- function(x, mu, sigma) {
sqrt(2 / pi) / sigma * cosh(x * mu / sigma^2) * exp(-(x^2 + mu^2)/(2*sigma^2))
}
curve(f(x, abs(diff(mu)), sqrt(sum(sigma^2))), lwd=2, col="Red", add=TRUE)
self-study
etiqueta. Aceitamos perguntas de trabalhos de casa, mas as tratamos um pouco diferente aqui.