lorsque et indépendamment


12

X et sont des variables aléatoires distribuées indépendamment où et . Quelle est la distribution de ?YXχ(n1)2YBeta(n21,n21)Z=(2Y1)X

La densité conjointe de est donnée par(X,Y)

fX,Y(x,y)=fX(x)fY(y)=ex2xn1212n12Γ(n12)yn22(1y)n22B(n21,n21)1{x>0,0<y<1}

En utilisant le changement de variables telles que et W = \ sqrt X ,(X,Y)(Z,W) W=Z=(2Y1)XW=X

J'obtiens la densité conjointe de (Z,W) comme

fZ,W(z,w)=ew22wn3(14z24w2)n222n12Γ(n12)B(n21,n21)1{w>0,|z|<w}

Le pdf marginal de est alors , ce qui ne me mène nulle part.f Z ( z ) = | z | f Z ,ZfZ(z)=|z|fZ,W(z,w)dw

Encore une fois, tout en trouvant la fonction de distribution de , une fonction bêta / gamma incomplète apparaît:Z

FZ(z)=Pr(Zz)

=Pr((2Y1)Xz)=(2y1)xzfX,Y(x,y)dxdy

Qu'est-ce qu'un changement de variable approprié ici? Existe-t-il un autre moyen de trouver la distribution de ?Z

J'ai essayé d'utiliser différentes relations entre les distributions Chi-Squared, Beta, 'F' et 't' mais rien ne semble fonctionner. Peut-être que je manque quelque chose d'évident.


Comme mentionné par @Francis, cette transformation est une généralisation de la transformée de Box-Müller.


4
Ressemble à une généralisation de la transformation de Box-Muller
Francis

Réponses:


10

Voici une preuve algébrique. Je vais laisser la place (non au carré) de sorte que nous devons trouver . Ces densités sont toutes garanties, donc je ne vais pas suivre les constantes de normalisation. Nous avons Soit et pour que les transformées inverses soient et . Cela nous donne . Cela nous amène à Z : = ( 2 Y - 1 ) X f X , Y ( x , y ) α x n - 2 e - x 2 / 2 [ y ( 1 - y ) ] n / 2 - 2 1 { 0 < x ,Xχn1Z:=(2Y1)XZ=(2y-1)XW=Xx(z,w)=wy(z,w)= z + w

fX,Y(x,y)xn2ex2/2[y(1y)]n/221{0<x,0<y<1}.
Z=(2y1)XW=Xx(z,w)=w | J| =1y(z,w)=z+w2w=z2w+12 fZ,W(z,w)αwn-1e-w2/2[ z + w|J|=12wαwe-w2/2(w2-z2)n/2-21{| z| <w}. fZ(z)w>| z| we-w2/2(w2-z2)n/
fZ,W(z,w)wn1ew2/2[z+w2w(1z+w2w)]n/221{0<w,1<zw<1}
wew2/2(w2z2)n/221{|z|<w}.
Ainsi
fZ(z)w>|z|wew2/2(w2z2)n/22dw.

Pour plus de commodité, . Multipliez les deux côtés par pour obtenir Soit maintenant donc . Cela nous donne Parce que cette intégrale finale ne dépend pas de , nous avons montré que , donc m=n/22ez2/2

ez2/2fZ(z)|z|we(w2z2)/2(w2z2)mdw.
2u=w2z2du=wdw
ez2/2fZ(z)2m0umeudu=2mΓ(m+1).
zez2/2fZ(z)1
ZN(0,1).

1
+1. Je suis heureux que vous ayez restauré cette réponse, car elle couvre toutes les valeurs de , pas seulement les valeurs intégrales. n
whuber

@whuber merci, je en quelque sorte mis au lieu de et il m'a fallu un certain temps pour comprendre pourquoi je recevais un comportement bizarre quand est impairz2w2w2z2n
JLD

9

2Y1 est distribué comme une coordonnée d'une distribution uniforme sur la sphèren1 ; a la distribution de la somme des carrés de iid variables normales normales; et ces deux quantités sont indépendantes. Géométriquement a la distribution d'une coordonnée: c'est-à-dire qu'elle doit avoir une distribution normale standard.Xn1(2Y1)X

(Cet argument s'applique à l'intégrale .)n=2,3,4,

Si vous avez besoin de quelques chiffres convaincants (ce qui est toujours judicieux, car cela peut révéler des erreurs de raisonnement et de calcul), simulez:

Figure montrant quatre histogrammes pour n = 2,3,4,5

L'accord entre les résultats simulés et la distribution normale standard revendiquée est excellent dans cette plage de valeurs de .n

Expérimentez davantage avec le Rcode qui a produit ces tracés si vous le souhaitez.

n.sim <- 1e5
n <- 2:5
X <- data.frame(Z = c(sapply(n, function(n){
  y <- rbeta(n.sim, n/2-1, n/2-1)  # Generate values of Y
  x <- rchisq(n.sim, n-1)          # Generate values of X
  (2*y - 1) * sqrt(x)              # Return the values of Z
})), n=factor(rep(n, each=n.sim)))

library(ggplot2)
#--Create points along the graph of a standard Normal density
i <- seq(min(z), max(z), length.out=501)
U <- data.frame(X=i, Z=dnorm(i))

#--Plot histograms on top of the density graphs
ggplot(X, aes(Z, ..density..)) + 
  geom_path(aes(X,Z), data=U, size=1) +
  geom_histogram(aes(fill=n), bins=50, alpha=0.5) + 
  facet_wrap(~ n) + 
  ggtitle("Histograms of Simulated Values of Z",
          paste0("Sample size ", n.sim))

1
Merci, @Stubborn. Il importe que les paramètres soient cohérents, sinon la conclusion est incorrecte. Je le réparerai.
whuber

3

Comme l'utilisateur @Chaconne l'a déjà fait, j'ai pu fournir une preuve algébrique avec cette transformation particulière. Je n'ai sauté aucun détail.


(Nous avons déjà pour que la densité de soit valide).n>2Y

Considérons la transformation tel que et .(X,Y)(U,V)U=(2Y1)XV=X

Cela implique et .x=vy=12(uv+1)

Maintenant, et ,x>0v>00<y<1v<u<v

de sorte que le support bivarié de est simplement .(U,V)S={(u,v):0<u2<v<,uR}

La valeur absolue du jacobien de transformation est .|J|=12v

La densité conjointe de est donc(U,V)

fU,V(u,v)=ev2vn121(uv+1)n22(12u2v)n22Γ(n2)(2v)2n12+n22Γ(n12)(Γ(n21))21S

=ev2vn42(v+u)n22(vu)n22Γ(n2)22n32+n22(v)n4Γ(n12)(Γ(n22))21S

Maintenant, en utilisant la formule de duplication de Legendre,

Γ(n2)=2n3πΓ(n22)Γ(n22+12)=2n3πΓ(n22)Γ(n12) où .n>2

Donc pour ,n>2

fU,V(u,v)=2n3ev2(vu2)n22π23n72Γ(n21)1S

Le pdf marginal de est alors donné parU

fU(u)=12n12πΓ(n21)u2ev2(vu2)n22dv

=eu222n12πΓ(n21)0et2t(n211)dt

=12n12π(12)n21eu22

=12πeu2/2,uR

2

Il s'agit plus d'une réponse en boîte noire (c'est-à-dire que les détails algébriques manquent) en utilisant Mathematica . En bref, comme le dit @whuber, la réponse est que la distribution de est une distribution normale standard.Z

(* Transformation *)
f = {(2 y - 1) Sqrt[x], Sqrt[x]};
sol = Solve[{z == (2 y - 1) Sqrt[x], w == Sqrt[x]}, {x, y}][[1]]
(*{x -> w^2,y -> (w+z)/(2 w)} *)
(* Jacobian *)
J = D[f, {{x, y}}]

(* Joint pdf of Z and W *)
{jointpdf, conditions} = FullSimplify[PDF[BetaDistribution[n/2 - 1, n/2 - 1], y] 
  PDF[ChiSquareDistribution[n - 1], x] Abs[Det[J]] /. sol,
  Assumptions -> {w >= 0, 0 <= y <= 1}][[1, 1]]

(* Integrate over W *)
Integrate[jointpdf Boole[conditions], {w, 0, \[Infinity]}, Assumptions -> {n > 2, z == 0}]
(* 1/Sqrt[2 \[Pi]] *)

Integrate[jointpdf Boole[conditions], {w, 0, \[Infinity]}, Assumptions -> {n > 2, z > 0}]
(* Exp[-(z^2/2)]/Sqrt[2 \[Pi]] *)

Integrate[jointpdf Boole[conditions], {w, 0, \[Infinity]}, Assumptions -> {n > 2, z < 0}]
(* Exp[-(z^2/2)]/Sqrt[2 \[Pi]] *)

1

Pas une réponse en soi , mais il peut être utile de souligner le lien avec la transformation de Box-Muller.

Considérons la transformation de Box-Muller , où . Nous pouvons montrer que , soit . D'un autre côté, nous pouvons montrer que a la distribution d'arc sinus à l' échelle de l'emplacement , ce qui correspond à la distribution de . Cela signifie que la transformation Box-Muller est un cas particulier de lorsque .U,V~U(0,1)-lnU~Exp(1)-2lnU~χ 2 2 sin(2πV)2B(1/2,1/2)-1(2Y-1Z=2lnUsin(2πV)U,VU(0,1) lnUExp(1)2lnUχ22 sin(2πV)2B(1/2,1/2)1 n=3(2Y1)Xn=3

Connexes :

En utilisant notre site, vous reconnaissez avoir lu et compris notre politique liée aux cookies et notre politique de confidentialité.
Licensed under cc by-sa 3.0 with attribution required.