#title 효과크기
[[TableOfContents]]

==== 개념 ====
* 표준편차가 10인 경우 평균 10의 차이 --> 효과크기 1
* 표준편차가 1인 경우 평균 1의 차이 --> 효과크기 1

==== 예제1 ====
{{{
m1 <- 20
m2 <- 24
sd1 <- 5
sd2 <- 4
n1 <- 20
n2 <- 30
d <- abs((m1 - m2) / sqrt(((n1-1) * sd1^ 2 + (n2-1) * sd2^2) / (n1 + n2 - 2)))
d
}}}

결과
{{{
> d
[1] 0.9043735
}}}

==== 예제2 ====
{{{
m1 <- 20
m2 <- 24
sd1 <- 5
sd2 <- 4
d <- abs((m1 - m2) / sqrt((sd1^2 + sd2^2) / 2))
d
}}}

결과
{{{
> d
[1] 0.8834522
}}}



==== 예제3 ====
{{{
experimental_group <- rnorm(100, mean=100, sd=10)
control_group <- rnorm(110, mean=90, sd=20)

t.test(experimental_group, control_group)

effect_size <- (mean(experimental_group) - mean(control_group)) / sd(control_group)
effect_size
}}}

결과
{{{
> t.test(experimental_group, control_group)

	Welch Two Sample t-test

data:  experimental_group and control_group
t = 5.9206, df = 162.36, p-value = 1.853e-08
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
  8.060181 16.127373
sample estimates:
mean of x mean of y 
100.49207  88.39829 

> 
> effect_size <- (mean(experimental_group) - mean(control_group)) / sd(control_group)
> effect_size
[1] 0.6355913
}}}

해석(두 그룹의 평균에 차이가 있을 때, t-test 결과 참고)
 * 0.0 ~ 0.2: small
 * 0.3 ~ 0.5: medium
 * 0.6 ~ 0.8: large