1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
---
title: Tables of model estimates
output: rmarkdown::html_vignette
vignette: >
% \VignetteEngine{knitr::rmarkdown}
% \VignetteIndexEntry{Tables of model estimates}
---
```{r,echo=FALSE,message=FALSE}
knitr::opts_chunk$set(comment=NA,
fig.align="center",
results="markup")
```
First, we load the package and estimate some regression models.
```{r, message=FALSE}
library(memisc)
lm0 <- lm(sr ~ pop15 + pop75, data = LifeCycleSavings)
lm1 <- lm(sr ~ dpi + ddpi, data = LifeCycleSavings)
lm2 <- lm(sr ~ pop15 + pop75 + dpi + ddpi, data = LifeCycleSavings)
```
Next, we put them together into a table with `mtable()`.
```{r}
mtable123 <- mtable("Model 1"=lm0,"Model 2"=lm1,"Model 3"=lm2,
summary.stats=c("sigma","R-squared","F","p","N"))
```
Third, we improve the appearance of the results by relabeling the `mtable` object.
```{r, comment=NA}
mtable123 <- relabel(mtable123,
"(Intercept)" = "Constant",
pop15 = "Percentage of population under 15",
pop75 = "Percentage of population over 75",
dpi = "Real per-capita disposable income",
ddpi = "Growth rate of real per-capita disp. income"
)
```
Finally we view the results in HTML format.
```{r, results='asis'}
show_html(mtable123)
```
The results can be written into an HTML file using
`write_html(mtable123,file="mtable123.html")` or the like. MS Word or LibreOffice can import such a file.
[^1]: Unfortunately, LibreOffice currently seems to do a less than perfect job in
importing HTML tables. The columns are a bit too wide and need to be
adjusted by hand as do the skips after paragraphs. The example you find at
the link mentioned above is thus manually adjusted.
|
