我试图弄清楚如何从R中的文本文件中提取特定信息。文件中的文本如下所示：
电话：

lm(formula = Water ~ PeteWaterAbsMeanbyPeak[, i], data = PeteWaterAbsMeanbyPeak)

Residuals:
       Min         1Q     Median         3Q        Max 
-3.602e-06 -1.431e-06 -1.400e-09  1.041e-06  6.586e-06 
Coefficients (from R output):
                             Estimate Std. Error t value Pr(>|t|)    
(Intercept)                 3.649e-05  9.585e-07  38.067 1.55e-15 ***
PeteWaterAbsMeanbyPeak[, i] 2.738e-03  1.418e-03   1.931    0.074 .  
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 2.386e-06 on 14 degrees of freedom
Multiple R-squared:  0.2104,    Adjusted R-squared:  0.154 
F-statistic:  3.73 on 1 and 14 DF,  p-value: 0.07395

我的目标是提取t值Pr（〉|t|），用于每个PeteWaterAbsMeanbyPeak[, i]以及相关的多个R平方：和调整后R平方：并将它们保存到csv文件中。
我怎样才能对文件中的每一节都这样做呢（因为每个i都有一节）？
这是可能的吗？也许可以把txt文件直接变成一个表？