기본 콘텐츠로 건너뛰기

[data analysis]로그-노말 분포(Log-normal distribution)

[data analysis] 두 대규모 표본의 비교

두 대규모 표본의 비교

내용

중심극한정리에 의하면 큰 규모의 표본은 정규분포에 부합합니다. 일반적으로 자료의 갯수가 30개 이상이면 정규분포를 따른다고 가정합니다. 이 경우는 모분산이 동일하다는 가정은 필요하지 않으며 두 표본으로부터 평균의 차 역시 정규분포를 가정할 수 있습니다. 그러므로 큰 규모의 표본들의 X-Y의 결합분포의 평균과 분산은 식 1과 같이 계산됩니다.

\begin{align}μ_{\text{pred}}&= μ_x − μ_y\\ \sigma_{\text{pred}}^2 & = \frac{\sigma_x^2}{n_x}+\frac{\sigma_y^2}{n_y}\quad \text{for:}\; \sigma^2\to \text{known}\\\sigma_{\text{pred}}^2 & = \frac{s_x^2}{n_x}+\frac{s_y^2}{n_y}\quad \text{for:}\; \sigma^2\to \text{unknown}\\ &\mu,\, n:\,\text{평균, 샘플의 크기}\\& \sigma,\, s:\, \text{모표준편차, 표본표준편차} \end{align}(식 1)

예 1)

다음은 일정기간 코스피(kos)지수와 다우(dj)지수의 일일 시가 기준 종가의 변화율에 대한 자료입니다.

kospi dow
0 -1.079 NaN
1 -0.551 -0.038
2 2.267 0.315
3 -0.157 -0.788

위 자료에 대한 다음 귀무가설을 검정해 봅니다.

H0: μkos − μdj = 0

다음은 위 자료를 생성하기 위한 코드입니다. 결과는 각 호출한 코스피지수와 다우지수로부터 생성한 자료의 수입니다.

st=pd.Timestamp(2023,1,1)
et=pd.Timestamp(2024, 5, 30)
kos=fdr.DataReader('KS11', st, et)[["Open","Close"]]
dj=fdr.DataReader('DJI',st, et)[["Open", "Close"]]
k=(kos["Close"]-kos["Open"])/kos["Open"]*100
d=(dj["Close"]-dj["Open"])/dj["Open"]*100
len(k), len(d)
(345, 353)

자료는 충분한 샘플수를 가지므로 정규분포를 따른다고 가정할 수 있습니다. 즉, 두 그룹에 대해 등분산을 가정할 수 있습니다. 이 두 자료의 결합분포의 평균과 표준편차(표준오차)를 계산합니다.

mk, md=k.mean(), d.mean()
mu_hat=mk-md
vk, vd=k.var(ddof=1), d.var(ddof=1)
nk, nd=len(k), len(d)
se=np.sqrt(vk/nk+vd/nd)
print(f'평균차: {mu_hat.round(3)}, 표준오차: {round(se, 3)}')
평균차: -0.086, 표준오차: 0.051

위 결과를 기준으로 신뢰수준 0.95에서 신뢰구간을 결정합니다.

low=mu_hat+stats.norm.ppf(0.025)*se
up=mu_hat+stats.norm.ppf(0.975)*se
print(f'하한:{low.round(3)}, 상한:{up.round(3)}')
하한:-0.187, 상한:0.015

위 신뢰구간은 두 그룹의 평균차와 표준오차를 모수로 하는 정규분포에서 직접적으로 계산할 수 있습니다. 이 계산은 stats.norm.interval() 메소드를 사용합니다.

ci=stats.norm.interval(0.95, mu_hat, se )
print("하한: %.3f, 상한: %.3f" %(ci[0], ci[1]))
하한: -0.187, 상한: 0.015

유의성검정을 위해 p-value를 결정해봅니다. z-검정의 검정통계량 즉, 두 그룹의 평균차를 표준오차를 사용하여 표준화한 값을 기준으로 표준정규분포에서의 유의확률을 계산합니다.

testStat=mu_hat/se; testStat.round(3)
-1.67
pVal=2*stats.norm.cdf(testStat)
pVal.round(3)
0.095

위 결과들은 귀무가설을 기각할 근거를 제공하지 못합니다. 결론적으로 두 그룹의 평균은 같다고 할 수 있습니다.

statsmodels 패키지의 CompareMeans()클래스로 위 결과를 확인해 봅니다. 대규모 표본이므로 등분산을 가정하고 ttest 대신에 ztest를 실행하는 메소드를 선택합니다.

from statsmodels.stats.weightstats import CompareMeans, DescrStatsW
cm=CompareMeans(DescrStatsW(k), DescrStatsW(d))
se_cls=cm.std_meandiff_pooledvar #합동표준오차
se_cls.round(3)
0.051
ci_cls=cm.zconfint_diff(0.05)
print("하한: %.3f, 상한: %.3f" %(ci_cls[0], ci_cls[1]))
하한: -0.187, 상한: 0.015
stat_cls, pVal_cls=cm.ztest_ind()
print("통계량: %.3f, p-value: %.3f, df: %d" %(stat_cls, pVal_cls, df_cls))
통계량: -1.674, p-value: 0.094, df: 36
cm.summary(use_t=false)
Test for equality of means
coef std err z P>|z| [0.025 0.975]
subset #1 -0.0860 0.051 -1.674 0.094 -0.187 0.015

위 결과들에서 발생하는 약간의 수치적 차이는 부동소수점들의 연산과정에서 일어나는 불확실성에 의한 것입니다.

댓글

이 블로그의 인기 게시물

유사변환과 대각화

내용 유사변환 유사행렬의 특성 대각화(Diagonalization) 유사변환(Similarity transformation) 유사변환 n×n 차원의 정방 행렬 A, B 그리고 가역 행렬 P 사이에 식 1의 관계가 성립하면 행렬 A와 B는 유사하다고 하며 이 변환을 유사 변환 (similarity transformation)이라고 합니다. $$\begin{equation}\tag{1} A = PBP^{-1} \Leftrightarrow P^{-1}AP = B \end{equation}$$ 식 1의 유사 변환은 다음과 같이 고유값을 적용하여 특성 방정식 형태로 정리할 수 있습니다. $$\begin{align} B - \lambda I &= P^{-1}AP – \lambda P^{-1}P\\ &= P^{-1}(AP – \lambda P)\\ &= P^{-1}(A - \lambda I)P \end{align}$$ 위 식의 행렬식은 다음과 같이 정리됩니다. $$\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)\\ &= \t

[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