En regardant la page wikipedia, nous avons la corrélation partielle entre et étant donné que est donné par:Y ZXYZ
ρXY|Z=ρXY−ρXZρYZ1−ρ2XZ−−−−−−−√1−ρ2YZ−−−−−−√>ρXY
Nous avons donc simplement besoin
ρXY>ρXZρYZ1−1−ρ2XZ−−−−−−−√1−ρ2YZ−−−−−−√
Le côté droit a un minimum global lorsque . Ce minimum global est . Je pense que cela devrait expliquer ce qui se passe. Si la corrélation entre et est le signe opposé à la corrélation entre et (mais même ordre de grandeur), puis la corrélation partielle entre et étant donné sera toujours supérieur ou égal à la corrélation entre et . Dans un certain sens, la corrélation conditionnelle «plus» et «moins» a tendance à s'annuler dans la corrélation inconditionnelle.ρXZ=−ρYZ−1ZYZXXYZXY
MISE À JOUR
J'ai fait quelques détournements avec R, et voici du code pour générer quelques tracés.
partial.plot <- function(r){
r.xz<- as.vector(rep(-99:99/100,199))
r.yz<- sort(r.xz)
r.xy.z <- (r-r.xz*r.yz)/sqrt(1-r.xz^2)/sqrt(1-r.yz^2)
tmp2 <- ifelse(abs(r.xy.z)<1,ifelse(abs(r.xy.z)<abs(r),2,1),0)
r.all <-cbind(r.xz,r.yz,r.xy.z,tmp2)
mycol <- tmp2
mycol[mycol==0] <- "red"
mycol[mycol==1] <- "blue"
mycol[mycol==2] <- "green"
plot(r.xz,r.yz,type="n")
text(r.all[,1],r.all[,2],labels=r.all[,4],col=mycol)
}
vous soumettez donc partial.plot (0.5) pour voir quand une corrélation marginale de 0,5 correspond à une corrélation partielle. Le tracé est codé par couleur de sorte que la zone rouge représente la corrélation partielle "impossible", la zone bleue où et la zone verte où Voici un exemple pour|ρ|<|ρXY|Z|<11>|ρ|>|ρXY|Z|ρXY=r=0.5