Windows 在Rmd文件中包含apsrtable（或stargazer）输出

我尝试在Rmd文件中包含

lm

对象的摘要，使用了如下代码，但没有成功。你能帮我吗

```{r summary_lm, results='asis', echo=FALSE, comment=NA}

library(apsrtable)
my_model <- lm(y ~ x, data = data.frame(y = rnorm(10), x = 1:10))
res <- apsrtable(my_model) # my_model is a linear regression model (lm)

cat("$$latex \n",res,"\n$$ \n")

```

`{r summary\u lm，results='asis'，echo=FALSE，comment=NA}
图书馆（可下载）
my_model语法只适用于数学表达式，您试图在其中放入一个表，但这不起作用。据我所知，
apsrtable
仅适用于LaTeX，但LaTeX和降价是非常不同的——完全用降价重做LaTeX的希望很小。我认为人们发明了用于标记的
$
语法是因为MathJax很好地支持它，并且还注意到有许多基于原始标记的变体/风格

目前，您可以考虑：


使用
xtable
或
ascii
或
R2HTML
包生成HTML表
请求
apsrtable
的包作者支持HTML表
如何将
车型年款
以降价形式包含在以下内容中：

或采用PHP MarkdownExtra/rmarkdown格式：

> panderOptions('table.style', 'rmarkdown')
> pander(my_model)


|              |  Estimate  |  Std. Error  |  t value  |  Pr(>|t|)  |
|:-----------------:|:----------:|:------------:|:---------:|:----------:|
|       **x**       |   0.1174   |    0.1573    |  0.7465   |   0.4767   |
|  **(Intercept)**  |  -0.2889   |    0.9759    |  -0.296   |   0.7748   |

Table: Fitting linear model: y ~ x

交叉过账至：

它可以在一个
pdf\u文档中完成，该文档带有apsrtable和stargazer，后者还支持HTML

---
title: "stargazer"
author: "hplieninger"
date: "3 August 2018"
output: pdf_document
header-includes:
    - \usepackage{dcolumn}
---

```{r}
m1 <- lm(Fertility ~ Education , data = swiss)
m2 <- lm(Fertility ~ Education + Agriculture, data = swiss)
m3 <- lm(Fertility ~ . , data = swiss)
```

```{r, results='asis'}
apsrtable::apsrtable(m1, m2, m3, Sweave = TRUE)
```

```{r, results='asis'}
# If output: pdf_document
stargazer::stargazer(m1, m2, m3)
# If output: html_document
# stargazer::stargazer(m1, m2, m3, type = "html")
```

---
标题：“观星者”
作者：“hplieninger”
日期：“2018年8月3日”
输出：pdf\U文件
标题包括：
-\usepackage{dcolumn}
---
```{r}
m1
---
title: "stargazer"
author: "hplieninger"
date: "3 August 2018"
output: pdf_document
header-includes:
    - \usepackage{dcolumn}
---

```{r}
m1 <- lm(Fertility ~ Education , data = swiss)
m2 <- lm(Fertility ~ Education + Agriculture, data = swiss)
m3 <- lm(Fertility ~ . , data = swiss)
```

```{r, results='asis'}
apsrtable::apsrtable(m1, m2, m3, Sweave = TRUE)
```

```{r, results='asis'}
# If output: pdf_document
stargazer::stargazer(m1, m2, m3)
# If output: html_document
# stargazer::stargazer(m1, m2, m3, type = "html")
```