13/12/05 16:18:27.07
>>326
計算式が異なれば有意な差がでて当たり前じゃないの？
ユーロ vs ドルをn=100で計算してみた。
> f1 <- function(x) x * 100/120
> f2 <- function(x) x * 105/115
> x <- sample(10:100000, 100)
> t.test(f1(x), f2(x), paired = TRUE)
Paired t-test
data: f1(x) and f2(x)
t = -17.1435, df = 99, p-value < 2.2e-16
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
-4471.794 -3544.030
sample estimates:
mean of the differences
-4007.912