r function cor.test(): Как рассчитывается значение p для корреляции Пирсона?

Question

Это, наверное, очень простой вопрос.

Я не могу найти методологию вычисления pvalue в функции cor.test() в R.

Answer 1

Вот код, который вычисляет p-значение корреляции Пирсона:

x <- c(44.4, 45.9, 41.9, 53.3, 44.7, 44.1, 50.7, 45.2, 60.1)
y <- c( 2.6,  3.1,  2.5,  5.0,  3.6,  4.0,  5.2,  2.8,  3.8)
ct = cor.test(x, y, method = "pearson")
ct$p.value  ## this is what cor.test() gives

n <- length(x)
r <- cor(x, y)
df <- n - 2
t = sqrt(df) * r/sqrt(1 - r^2)
pval = 2 * min(pt(t, df), pt(t, df, lower.tail = FALSE))  ## this is calculated manually

ct$p.value == pval