Diese Frage kann wie angegeben nur unter der Annahme beantwortet werden, dass die beiden Zufallsvariablen und X 2, die durch diese Verteilungen bestimmt werden, unabhängig sind. X1X2 Dies macht ihre Differenz Normal mit dem Mittelwert μ = μ 2 - μ 1 und der Varianz σ 2 = σ 2 1 + σ 2 2 . (Die folgende Lösung kann leicht auf jede bivariate Normalverteilung von ( X 1 , X 2 verallgemeinert werdenX=X2−X1μ=μ2−μ1σ2=σ21+σ22 .) Also die Variable(X1,X2)
Z=X−μσ=X2−X1−(μ2−μ1)σ21+σ22−−−−−−√
hat eine Standardnormalverteilung (dh mit einem Mittelwert von Null und einer Einheitsvarianz) und
X=σ(Z+μσ).
Der Ausdruck
|X2−X1|=|X|=X2−−−√=σ(Z+μσ)2−−−−−−−−√
zeigt den absoluten Unterschied als skalierte Version der Quadratwurzel einer nichtzentralen Chi-Quadrat-Verteilung mit einem Freiheitsgrad- und Nichtzentralitätsparameter . Eine nicht-zentrale Chi-Quadrat-Verteilung mit diesen Parametern hat ein Wahrscheinlichkeitselementλ=(μ/σ)2
f(y)dy=y√2π−−√e12(−λ−y)cosh(λy−−√)dyy, y>0.
Das Schreiben von für x > 0 stellt eine Eins-zu-Eins-Entsprechung zwischen y und seiner Quadratwurzel her, was zur Folge haty=x2x>0y
f(y)dy=f(x2)d(x2)=x2−−√2π−−√e12(−λ−x2)cosh(λx2−−−√)dx2x2.
Vereinfacht man dies und skaliert dann um erhält man die gewünschte Dichte.σ
f|X|(x)=1σ2π−−√cosh(xμσ2)exp(−x2+μ22σ2).
|X|=|X2−X1| (called "x" in the code) with parameters μ1=−1,μ2=5,σ1=4,σ2=1. On it is plotted the graph of f|X|, which neatly coincides with the histogram values.
The R
code for this simulation follows.
#
# 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. Wir akzeptieren Hausaufgabenfragen, gehen aber hier etwas anders damit um.