Ngoài rất nhiều ý kiến (chính xác) của những người dùng khác chỉ ra rằng giá trị cho giống hệt với giá trị cho kiểm tra toàn cầu , lưu ý rằng bạn cũng có thể nhận được giá trị liên quan đến "trực tiếp" sử dụng thực tế là theo giả thuyết null được phân phối dưới dạng , trong đó và là tử số và mẫu số bậc tự do, tương ứng, cho -statistic liên quan .r 2 p F p r 2 r 2 Beta ( v npr2pFpr2r2vnvdFBeta ( vn2, vd2)vnvdF
Điểm đầu dòng thứ 3 trong Xuất phát từ phần phụ phân phối khác của mục nhập Wikipedia trên bản phân phối beta cho chúng ta biết rằng:
Nếu và độc lập, thì .Y ~ χ 2 ( β ) XX∼ χ2( α )Y∼ χ2( β)XX+ Y∼ Beta ( α2, β2)
Chà, chúng ta có thể viết dưới dạng .Xr2XX+ Y
Đặt là tổng số bình phương cho một biến , là tổng các lỗi bình phương cho hồi quy của trên một số biến khác và là "tổng bình phương giảm", nghĩa là . Sau đó
Và tất nhiên, là tổng các bình phương, và là cả hai được phân phối lần lượt là với và bậc tự do. Do đó,
Y S S E Y S S R S S R = S S Y - S S E r 2 = 1 - S S ESSYYSSEYSSRSSR= SSY- SSE SSRSSEχ2vnvdr2∼Beta(vn
r2= 1 - SSESSY= SSY- SSESSY= SSRSSR+ SSE
SSRSSEχ2vnvdr2∼ Beta ( vn2, vd2)
(Tất nhiên, tôi đã không chỉ ra rằng hai hình vuông là độc lập. Có lẽ một nhà bình luận có thể nói điều gì đó về điều đó.)
Trình diễn trong R (mã mượn từ @gung):
set.seed(111)
x = runif(20)
y = 5 + rnorm(20)
cor.test(x,y)
# Pearson's product-moment correlation
#
# data: x and y
# t = 1.151, df = 18, p-value = 0.2648
# alternative hypothesis: true correlation is not equal to 0
# 95 percent confidence interval:
# -0.2043606 0.6312210
# sample estimates:
# cor
# 0.2618393
summary(lm(y~x))
# Call:
# lm(formula = y ~ x)
#
# Residuals:
# Min 1Q Median 3Q Max
# -1.6399 -0.6246 0.1968 0.5168 2.0355
#
# Coefficients:
# Estimate Std. Error t value Pr(>|t|)
# (Intercept) 4.6077 0.4534 10.163 6.96e-09 ***
# x 1.1121 0.9662 1.151 0.265
# ---
# Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
#
# Residual standard error: 1.061 on 18 degrees of freedom
# Multiple R-squared: 0.06856, Adjusted R-squared: 0.01681
# F-statistic: 1.325 on 1 and 18 DF, p-value: 0.2648
1 - pbeta(0.06856, 1/2, 18/2)
# [1] 0.2647731