นอกจากความคิดเห็น (ถูกต้อง) มากมายโดยผู้ใช้คนอื่นชี้ให้เห็นว่าpสำหรับr2เหมือนกับpสำหรับการทดสอบทั่วโลกFโปรดทราบว่าคุณยังสามารถรับpเกี่ยวข้องกับr2 " โดยตรง "โดยใช้ข้อเท็จจริงที่ว่าr2ภายใต้สมมติฐานว่างถูกกระจายเป็นBeta(vn2,vd2)โดยที่vnและvdคือองศาความเป็นตัวเศษและตัวส่วนตามลำดับสำหรับFstatistic ที่เกี่ยวข้อง
สัญลักษณ์แสดงหัวข้อย่อยที่ 3 ในส่วนที่ได้มาจากส่วนย่อยอื่น ๆของรายการ Wikipedia เกี่ยวกับการแจกแจงแบบเบต้าบอกเราว่า:
หากX∼χ2(α)และY∼χ2(β)เป็นอิสระจากนั้นXX+Y∼Beta(α2,β2) )
ทีนี้เราสามารถเขียนr2ในXนั้นได้XX+Yรูปแบบ X + Y
ให้SSYเป็นผลรวมของกำลังสองสำหรับตัวแปรY , SSEเป็นผลรวมของข้อผิดพลาดกำลังสองสำหรับการถดถอยของYในตัวแปรอื่น ๆ และSSRคือ "ผลรวมของกำลังสองลดลง" นั่นคือSSR=SSY−SSE E จากนั้น
และแน่นอนว่าผลบวกของกำลังสองSSRและSSEนั้นมีการแจกแจงเป็นχ2กับvnและvdองศาอิสระตามลำดับ ดังนั้น
r2∼Beta(vn
r2=1−SSESSY=SSY−SSESSY=SSRSSR+SSE
SSRSSEχ2vnvd
(แน่นอนฉันไม่ได้แสดงให้เห็นว่าทั้งสองไคสแควร์มีความเป็นอิสระบางทีผู้วิจารณ์อาจพูดอะไรเกี่ยวกับเรื่องนี้)
r2∼Beta(vn2,vd2)
การสาธิตใน R (รหัสยืมจาก @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