Как исключить стандартные ошибки из таблицы Stargazer?

Question

Amazing R gurus,

Мне просто интересно, есть ли способ исключить стандартные ошибки из таблицы Stargazer.

Вот быстрый воспроизводимый пример:

---
title: "Test regression"
output: html_document
date: "`r format(Sys.time(), '%d %B, %Y')`"
---

```{r setup, echo=FALSE, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
knitr::opts_chunk$set(warning = FALSE)
knitr::opts_chunk$set(cashe = TRUE)

rm(list=ls())
library(stargazer)
library(ggplot2)

```


```{r, results='asis', echo=FALSE}

fit <- lm(price ~ carat + table + x + y + z, data = diamonds)

stargazer(fit, title="Diamonds Regression",
          single.row = TRUE, type ="html", header = FALSE, df=FALSE, digits=2, se = NULL)

```

Я хотел бы видеть результаты без стандартной ошибки, как показано на следующем снимке экрана.

Мы ценим ваше время и помощь.

Answer 1

Я просто хотел добиться того же и нашел аргумент report в документации stargazer , который можно использовать для управления элементами (и порядком), показанными в выходной таблице.,Если используется так:

fit <- lm(price ~ carat + table + x + y + z, data = diamonds)

stargazer(fit, title="Diamonds Regression",
          single.row = TRUE, 
          type ="html", 
          report = "vc*", 
          header = FALSE, 
          df=FALSE, 
          digits=2, 
          se = NULL
)

Он производит желаемый вывод без необходимости сначала захватывать вывод (или любой другой дополнительный код).

Answer 2

Вот простой способ:

```{r, results='asis', echo=FALSE}
fit <- lm(price ~ carat + table + x + y + z, data = diamonds)
mytab <- capture.output(stargazer(fit, title="Diamonds Regression",
                        single.row = TRUE, type ="html", header = FALSE, df=FALSE,
                        digits=2, 
                        apply.se = function(x) { 0 }))

cat(paste(gsub("\\(0.00\\)", "", mytab), collapse = "\n"), "\n")
```

Сначала мы фиксируем вывод stargazer и подавляем автоматическую печать.В stargazer мы устанавливаем все стандартные ошибки равными 0 (делает следующую замену более отказоустойчивой).Наконец, мы печатаем выходные данные и заменяем эти стандартные ошибки.