기본 콘텐츠로 건너뛰기

[ML] 결정트리(Decision Tree) 모델

[data analysis]상관분석(Correlation analysis)

상관분석(Correlation analysis)

상관분석은 두 개 이상의 자료에 대한 상관 관계를 분석하는 것으로 분석의 모수는 상관계수(ρ)가 됩니다. 식 1에서 나타낸 것과 같이 분석의 귀무가설은 ρ = 0입니다. 다시 말해 비교하는 자료들 사이의 상관성은 존재하지 않음을 검정하는 것입니다.

H0 : ρ = 0, H1 : ρ ≠ 0 (식 1)

일반적으로 상관계수는 ρ 또는 r로 나타냅니다.

상관계수(r)에 대한 분포는 평균 0이며 범위는 [-1, 1] 이므로 그 분포의 분산은 1 - r2 로 나타낼 수 있습니다. 이 확률변수는 경계값과 평균이 고정되므로 자유도는 n - 2인 t분포를 따릅니다. 그러나 자유도가 클 경우는 정규분포를 적용합니다. 확률변수의 표준오차와 검정통계량은 식 2로 계산됩니다.

\begin{align}\text{SE}&=\sqrt{\frac{1-r^2}{n-2}}\\ \text{statistic}& = \frac{r-\mu_r}{\sqrt{\frac{1-r^2}{n-2}}}\\ & = \frac{r}{\sqrt{\frac{1-r^2}{n-2}}}\\ \text{SE}:&\,\text{표준오차}\end{align} (식 2)

식 2에서의 검정통계량은 상관계수를 표준화한 것으로 표준 정규분포 또는 표준 t 분포를 기반으로 검정합니다. 검정에 t-분포 또는 정규분포를 적용할 경우 통계량은 상관계수가 됩니다.

예 1)

일정기간의 kos와 ex의 일일 종가에 대한 상관분석을 실시합니다.

ex kos
0 1260.91 2218.68
1 1270.10 2255.98
2 1279.08 2264.65
3 1271.08 2289.97
4 1274.18 2350.19
5 1252.88 2351.31

다음은 위 자료를 생성하기 위한 코드입니다.

st=pd.Timestamp(2023,1,1)
et=pd.Timestamp(2024, 5, 30)
kos=fdr.DataReader('KS11', st, et)["Close"]
ex=fdr.DataReader('USD/KRW',st, et)["Close"]
data=pd.concat([ex, kos.shift(periods=-1)], join="inner", axis=1)
data.index=range(len(data))
data.columns=['ex', 'kos']
data=data.dropna()

자료의 ex와 kos간의 스케일차이를 조정하기 위해 표준화를 실시합니다. sklearn.preprocessing.StandardScaler() 함수를 적용합니다.

from sklearn.preprocessing import StandardScaler
scaler=StandardScaler().fit(data)
da=scaler.transform(data)
print(np.around(da[:3, :], 3))
[[-1.666 -2.981]
 [-1.385 -2.637]
 [-1.112 -2.557]]

객체 da의 두 변수에 대한 상관 행렬은 np.corrcoef() 메서드를 적용합니다.

corMat=np.corrcoef(da, rowvar=False)
print(np.around(corMat, 3))
[[1.    0.357]
 [0.357 1.   ]]

검정 통계량에 대한 z 검정을 실시합니다. 귀무가설의 상관계수가 0이므로 평균 0, 표준오차에 대한 정규분포를 기준으로 p-value를 계산하면 다음과 같습니다.

r=corMat[1,0]
df=len(da)-2
se=np.sqrt((1-r**2)/df)
print(f"표준오차: {round(se, 3)}, static: {round(r, 3)}")
표준오차: 0.051, static: 0.357
pValue=2*stats.norm.cdf(r, 0, se)
print("p-value: %.3f" %pValue)
p-value: 0.000

위 결과인 유의확률(p-value)은 상관계수의 평균 0, 표준오차 se의 분포 상에서 매우 극단적인 경우로 귀무가설 r = 0을 채택할 수 없음을 나타냅니다. 즉, 두 자료의 상관성은 존재한다고 할 수 있습니다. 이 결과는 그림 1로 명확해집니다.

그림 1. Ex-Kos의 산점도
fig, ax=plt.subplots(figsize=(4,3))
ax.scatter(da[:,0], da[:,1], s=10, color="green")
ax.spines["left"].set_position("center")
ax.spines["right"].set_visible(False)
ax.spines["top"].set_visible(False)
ax.spines["bottom"].set_position(("data",0))
ax.set_xlabel("ue(%)", fontsize=13, fontweight="bold")
ax.set_ylabel("vix(%)", fontsize=13, fontweight="bold")
ax.xaxis.set_label_coords(0.9, 0.45)
ax.yaxis.set_label_coords(0.55, 0.9)
plt.show()

신뢰구간은 추정값이 포함될 수 있는 확률변수의 범위입니다. 상관계수의 경우는 [-1, 1]사이의 값들로서 정규분포나 t분포의 확률변수를 그대로 적용할 수 없습니다. 그러므로 상관계수는 Fisher 변환방법으로 변환한 후 다음 방법으로 신뢰구간을 결정합니다.

  1. Fisher 변환으로 확률변수 변환
    • $z_r=\frac{\ln\left(\frac{1+r}{1-r}\right)}{2}$
  2. 변환된 확률변수의 표준편차
    • $s=\frac{1}{\sqrt{n-3}}$
  3. 정규분포의 통계량을 사용하여 신뢰구간을 계산 (신뢰구간 하한: L, 상한: U)
    • $\text{신뢰구간}=z_r \pm Z_{1-\frac{\alpha}{2}}\cdot s$
  4. 위의 신뢰구간을 상관계수의 스케일로 환원
    • $\begin{align}\text{하한}&=\frac{e^{2L}-1}{e^{2L}+1}\\\text{상한}&=\frac{e^{2U}-1}{e^{2U}+1}\end{align}$
z=np.log((1+r)/(1-r))/2
round(z, 3)
0.374
n=len(data)
L, U=z-1.96/np.sqrt(n-3), z+1.96/np.sqrt(n-3)
print('하한: %.3f, 상한: %.3f' %(L, U))
하한: 0.267, 상한: 0.480

위 결과는 변환된 스케일로 상관계수의 범위인 [-1,1]의 스케일로 환원이 필요합니다.

L1,U1=(np.exp(2*L)-1)/(np.exp(2*L)+1), (np.exp(2*U)-1)/(np.exp(2*U)+1)
print('신뢰하한: %.3f, 신뢰상한: %.3f' %(L1, U1))
신뢰하한: 0.261, 신뢰상한: 0.446

위 결과 신뢰구간은 0을 포함하지 않으며 -1의 방향으로 치우져 있습니다. 그러므로 상관계수 = 0 이라는 귀무가설을 기각할 수 있으며 두변수는 강한 역관계에 있음을 나타냅니다.

위 분석은 stats.pearsonr(x, y) 함수를 사용하여 중간 과정없이 분석 결과를 확인할 수 있습니다. 이 함수의 결과 중 신뢰구간은 .confidence_interval(confidence_level=0.95) 메소드로 확인할 수 있습니다.

re=stats.pearsonr(da[:,0], da[:,1])
print(f"statistic: {re[0].round(3)}, p-value: {re[1].round(3)}")
statistic: 0.357, p-value: 0.0
ci=re.confidence_interval(0.95)
print(f"신뢰하한: {ci[0].round(3)}, 신뢰상한: {ci[1].round(3)}")
신뢰하한: 0.261, 신뢰상한: 0.446

댓글

이 블로그의 인기 게시물

[Linear Algebra] 유사변환(Similarity transformation)

유사변환(Similarity transformation) n×n 차원의 정방 행렬 A, B 그리고 가역 행렬 P 사이에 식 1의 관계가 성립하면 행렬 A와 B는 유사행렬(similarity matrix)이 되며 행렬 A를 가역행렬 P와 B로 분해하는 것을 유사 변환(similarity transformation) 이라고 합니다. $$\tag{1} A = PBP^{-1} \Leftrightarrow P^{-1}AP = B $$ 식 2는 식 1의 양변에 B의 고유값을 고려한 것입니다. \begin{align}\tag{식 2} B - \lambda I &= P^{-1}AP – \lambda P^{-1}P\\ &= P^{-1}(AP – \lambda P)\\ &= P^{-1}(A - \lambda I)P \end{align} 식 2의 행렬식은 식 3과 같이 정리됩니다. \begin{align} &\begin{aligned}\textsf{det}(B - \lambda I ) & = \textsf{det}(P^{-1}(AP – \lambda P))\\ &= \textsf{det}(P^{-1}) \textsf{det}((A – \lambda I)) \textsf{det}(P)\\ &= \textsf{det}(P^{-1}) \textsf{det}(P) \textsf{det}((A – \lambda I))\\ &= \textsf{det}(A – \lambda I)\end{aligned}\\ &\begin{aligned}\because \; \textsf{det}(P^{-1}) \textsf{det}(P) &= \textsf{det}(P^{-1}P)\\ &= \textsf{det}(I)\end{aligned}\end{align} 유사행렬의 특성 유사행렬인 두 정방행렬 A와 B는 'A ~ B' 와 같

[matplotlib] 히스토그램(Histogram)

히스토그램(Histogram) 히스토그램은 확률분포의 그래픽적인 표현이며 막대그래프의 종류입니다. 이 그래프가 확률분포와 관계가 있으므로 통계적 요소를 나타내기 위해 많이 사용됩니다. plt.hist(X, bins=10)함수를 사용합니다. x=np.random.randn(1000) plt.hist(x, 10) plt.show() 위 그래프의 y축은 각 구간에 해당하는 갯수이다. 빈도수 대신 확률밀도를 나타내기 위해서는 위 함수의 매개변수 normed=True로 조정하여 나타낼 수 있다. 또한 매개변수 bins의 인수를 숫자로 전달할 수 있지만 리스트 객체로 지정할 수 있다. 막대그래프의 경우와 마찬가지로 각 막대의 폭은 매개변수 width에 의해 조정된다. y=np.linspace(min(x)-1, max(x)+1, 10) y array([-4.48810153, -3.54351935, -2.59893717, -1.65435499, -0.70977282, 0.23480936, 1.17939154, 2.12397372, 3.0685559 , 4.01313807]) plt.hist(x, y, normed=True) plt.show()

R 미분과 적분

내용 expression 미분 2차 미분 mosaic를 사용한 미분 적분 미분과 적분 R에서의 미분과 적분 함수는 expression()함수에 의해 생성된 표현식을 대상으로 합니다. expression expression(문자, 또는 식) 이 표현식의 평가는 eval() 함수에 의해 실행됩니다. > ex1<-expression(1+0:9) > ex1 expression(1 + 0:9) > eval(ex1) [1] 1 2 3 4 5 6 7 8 9 10 > ex2<-expression(u, 2, u+0:9) > ex2 expression(u, 2, u + 0:9) > ex2[1] expression(u) > ex2[2] expression(2) > ex2[3] expression(u + 0:9) > u<-0.9 > eval(ex2[3]) [1] 0.9 1.9 2.9 3.9 4.9 5.9 6.9 7.9 8.9 9.9 미분 D(표현식, 미분 변수) 함수로 미분을 실행합니다. 이 함수의 표현식은 expression() 함수로 생성된 객체이며 미분 변수는 다음 식의 분모의 변수를 의미합니다. $$\frac{d}{d \text{변수}}\text{표현식}$$ 이 함수는 어떤 함수의 미분의 결과를 표현식으로 반환합니다. > D(expression(2*x^3), "x") 2 * (3 * x^2) > eq<-expression(log(x)) > eq expression(log(x)) > D(eq, "x") 1/x > eq2<-expression(a/(1+b*exp(-d*x))); eq2 expression(a/(1 + b * exp(-d * x))) > D(eq2, "x") a * (b * (exp(-d * x) * d))/(1 + b