比如：summary(lm1)得到如下结果

Residuals:
Min 1Q Median 3Q Max
-2.87323 -0.64441 -0.00852 0.63180 2.77441

Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.5452 0.2699 2.020 0.0453 *
geno[, i] -0.2860 0.3602 -0.794 0.4286
geno[, j] 0.1023 0.4120 0.248 0.8043
geno[, k] -0.2946 0.1600 -1.841 0.0677 .
geno[, m] -0.2187 0.2814 -0.777 0.4383
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 0.9885 on 138 degrees of freedom
Multiple R-squared: 0.0348,        Adjusted R-squared: 0.00682
F-statistic: 1.244 on 4 and 138 DF, p-value: 0.2953

怎样获取最后一个p-value ？
或者有没有计算F-statistic P值的函数？