Парный t-критерий в точности эквивалентен t-критерию, который проверяет среднее значение разностей против нулевой гипотезы нуля.
diffs <- c(-2,1,-4)
m <- mean(diffs)
s <- sd(diffs)
n <- length(diffs)
Теперь предположим, что вы не знаете diffs
,просто m
, s
и n
(все три необходимы)
pval <- 2*pt(abs(m/s),lower.tail=FALSE,df=n)
## 0.555
qq <- qt(0.975,df=n)
ci <- m + c(-1,1)*qq*s
## [1] -9.675648 6.342314