Is there a good way to save the output of a statistical summary to file? Something like a comma-delimited text file that can be opened in a spreadsheet program. For example:

```
x <- rnorm(10)
y <- rnorm(10)
mod <- lm(y ~ x)
summary(mod)
```

Gives:

```
Call:
lm(formula = y ~ x)
Residuals:
Min 1Q Median 3Q Max
-1.2249 -0.9493 -0.3325 0.8500 1.6135
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -0.2030 0.4336 -0.468 0.652
x 0.3002 0.4558 0.659 0.529
Residual standard error: 1.15 on 8 degrees of freedom
Multiple R-squared: 0.05143, Adjusted R-squared: -0.06714
F-statistic: 0.4338 on 1 and 8 DF, p-value: 0.5286
```

In particular, Iâ€™d like to save the **Coefficients** as a table to put in a manuscript. (Iâ€™m sick of copying and pasting this stuff.)