如何让R根据ANOVA吐出F统计量的临界值?

时间:2016-05-25 18:57:43

标签: r anova

R中的ANOVA分析遗漏的一件事是它没有自动显示临界值。其他一切都给了。我可以说我的F值比应有的高,但我想知道截止位置的余量。这个在线计算器根据自由度产生F统计的临界值,但我希望R这样做。 http://www.danielsoper.com/statcalc/calculator.aspx?id=4

我该怎么做?

示例:

>anova(anovaModel.model1)
                          Df  Sum Sq   Mean Sq F value    Pr(>F)    
data$SIZE    4 0.1193 0.027926  22.056 4.55e-16 ***
Residuals               1372 1.994 0.001352            
>F(variance.mod1)    #??
>F(4,1372 )          #Something like this?

1 个答案:

答案 0 :(得分:6)

试试这个:

mylm <- lm(wt~mpg, data = mtcars)
myanova <- anova(mylm)
cbind(myanova, 'CriticalValue' = qf(1-.05, myanova[1,1], myanova[2,1]))

          Df    Sum Sq    Mean Sq  F value       Pr(>F) CriticalValue
mpg        1 22.343135 22.3431348 91.37533 1.293959e-10      4.170877
Residuals 30  7.335613  0.2445204       NA           NA      4.170877

在这种情况下,qf功能是你的朋友。

alpha = .05
qf(1-alpha, myanova[1,1], myanova[2,1])

[1] 4.170877