당신이 쓴 모든 것이 정확합니다. 장난감 예제를 사용하면 항상 이와 같은 것을 테스트 할 수 있습니다. 다음은 R의 예입니다.
library(MASS)
rho <- .5 ### the true correlation in both groups
S1 <- matrix(c( 1, rho, rho, 1), nrow=2)
S2 <- matrix(c(16, 4*rho, 4*rho, 1), nrow=2)
cov2cor(S1)
cov2cor(S2)
xy1 <- mvrnorm(1000, mu=c(0,0), Sigma=S1)
xy2 <- mvrnorm(1000, mu=c(0,0), Sigma=S2)
x <- c(xy1[,1], xy2[,1])
y <- c(xy1[,2], xy2[,2])
group <- c(rep(0, 1000), rep(1, 1000))
summary(lm(y ~ x + group + x:group))
실제 상관 관계가 두 그룹에서 동일하더라도 상호 작용이 매우 중요하다는 것을 알 수 있습니다. 왜 그런 일이 발생합니까? 두 그룹의 원시 회귀 계수는 상관의 강도뿐만 아니라 두 그룹의 X (및 Y) 스케일링을 반영하기 때문입니다. 이러한 스케일링이 다르기 때문에 상호 작용이 중요합니다. 상관 관계의 차이를 테스트하려면 위 모델의 상호 작용을 테스트하기 만하면되기 때문에이 점은 중요한 점입니다. 계속하자 :
summary(lm(xy2[,2] ~ xy2[,1]))$coef[2] - summary(lm(xy1[,2] ~ xy1[,1]))$coef[2]
이것은 두 그룹에 개별적으로 적합 된 모형에 대한 회귀 계수의 차이가 교호 작용 항과 정확히 동일한 값을 제공한다는 것을 보여줍니다.
우리가 실제로 관심있는 것은 상관 관계의 차이입니다.
cor(xy1)[1,2]
cor(xy2)[1,2]
cor(xy2)[1,2] - cor(xy1)[1,2]
이 차이는 본질적으로 0입니다. 두 그룹 내에서 X와 Y를 표준화 하고 전체 모형을 다시 합시다 :
x <- c(scale(xy1[,1]), scale(xy2[,1]))
y <- c(scale(xy1[,2]), scale(xy2[,2]))
summary(lm(y ~ x + x:group - 1))
인터셉트 또는 그룹 주요 효과는 여기에 포함되어 있지 않습니다. x에 대한 계수는 그룹 1에 대한 상관과 같고 교호 작용에 대한 계수는 두 그룹에 대한 상관의 차이와 같습니다.
이제 Fisher의 r-to-z 변환을 사용하는 테스트를 사용하는 것보다이 방법을 사용하는 것이 더 나은지 여부에 대한 질문입니다.
편집하다
그룹 내에서 X 및 Y 값을 표준화 할 때 계산되는 회귀 계수의 표준 오차는이 표준화를 고려하지 않습니다. 따라서 올바르지 않습니다. 따라서 교호 작용에 대한 t- 검정은 제 1 종 오류율을 적절히 통제하지 않습니다. 이것을 조사하기 위해 시뮬레이션 연구를 수행했습니다. 언제ρ1=ρ2= 0그러면 제 1 종 오류가 제어됩니다. 그러나 언제ρ1=ρ2≠ 0t- 검정의 제 1 종 오류는 지나치게 보수적 인 경향이 있습니다 (즉, 주어진 횟수만큼 자주 거부하지 않음) α값). 반면 Fisher의 r-to-z 변환을 사용하는 테스트는 두 그룹의 실제 상관 관계 크기에 관계없이 적절하게 수행됩니다 (그룹 크기가 매우 작은 경우와 두 그룹의 실제 상관 관계는 제외). 가까이 다가 가다± 1.
결론 : 상관의 차이를 테스트하려면 Fisher의 r-z 변환을 사용하여 해당 값의 차이를 테스트하십시오.