A questa domanda si può rispondere come indicato solo assumendo che le due variabili casuali e governate da queste distribuzioni siano indipendenti. X 2X1X2 Questo fa la differenza Normale con media e varianza . (La seguente soluzione può essere facilmente generalizzata a qualsiasi distribuzione normale bivariata di .) Pertanto la variabile μ= μ 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------√
ha una distribuzione normale standard (cioè con media zero e varianza unitaria) e
X= σ( Z+ μσ) .
L'espressione
| X2- X1| = | X| = X2---√= σ( Z+ μσ)2--------√
mostra la differenza assoluta come versione ridimensionata della radice quadrata di una distribuzione chi-quadrata non centrale con un grado di libertà e parametro di non centralità . Una distribuzione chi-quadrato non centrale con questi parametri ha un elemento di probabilitàλ = ( μ / σ)2
f( y) dy= y√2 π--√e12( - λ - y)manganello( λ y--√) dyy, y > 0.
Scrivere per stabilisce una corrispondenza uno a uno tra e la sua radice quadrata, risultando in x > 0 yy= x2x > 0y
f( y) dy= f( x2) d( x2) = x2--√2 π--√e12( - λ - x2)manganello( λ x2---√) dX2X2.
Semplificare questo e quindi riscalare con fornisce la densità desiderata,σ
f|X|(x)=1σ2π−−√cosh(xμσ2)exp(−x2+μ22σ2).
Questo risultato è supportato da simulazioni, come questo istogramma di 100.000 disegni indipendenti di(chiamato "x" nel codice) con i parametri . Su di esso è tracciato il grafico di , che coincide perfettamente con i valori dell'istogramma.μ 1 = - 1 , μ 2 = 5 , σ 1 = 4 , σ 2 = 1 f | X ||X|=|X2−X1|μ1=−1,μ2=5,σ1=4,σ2=1f|X|
Il R
codice per questa simulazione 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
tag. Accettiamo domande per i compiti, ma qui le gestiamo in modo leggermente diverso.