У меня есть следующий документ R Markdown. Я пытаюсь отобразить таблицы регрессионного вывода непосредственно в PDF, но таблицы не отображаются. Я пробовал type = 'latex'
вместо type = 'html'
, но без разницы.
Я знаю, что могу скопировать и вставить латексный код с консоли, но это действительно громоздко. Любое другое решение этого?
```
---
title: "title"
output:
pdf_document: default
html_document: default
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
library(stargazer)
library(plm)
```
```{r data, echo=FALSE, include=FALSE}
library(haven)
dat <- read_dta("E:/CZ/CZ_fin_distress/CZ_all_2015_2018_small_final.dta")
library(dplyr)
dat <- dat %>%
rename(
log_avgprice = lamt,
log_localprice = lsamt,
negNPM = cat2,
lagged_negNPM = lcat
)
dat <- dat[dat$ptype<3,]
```
```{r prices, echo=FALSE, include=FALSE, results="asis"}
ma <- plm(log_avgprice ~ negNPM, index=c("id", "year"), model="within", data=dat)
mb <- plm(log_localprice ~ negNPM, index=c("id", "year"), model="within" , data=dat)
mc <- plm(log_avgprice ~ lagged_negNPM, index=c("id", "year"), model="within", data=dat)
md <- plm(log_localprice ~ lagged_negNPM, index=c("id", "year"), model="within", data=dat)
stargazer(ma, mb, mc, md, title = "Logged claim amount", type = 'html')
```