Automatic printing of models in R Markdown

[davidgohel]

Version 0.7.1 will provide a way to render models as flextable in R Markdown document. Call function use_model_printer() and models will be automatically transformed as flextables.

---
title: "model printing"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
library(flextable)

use_model_printer()

# fit some of the supported models ----
fit_lm <- lm(Sepal.Length ~ ., data = iris)

dat <- attitude
dat$high.rating <- (dat$rating > 70)
fit_glm <- glm(high.rating ~ learning + critical +
   advance, data=dat, family = binomial(link = "probit"))

library(mgcv)
set.seed(2)
dat <- gamSim(1, n = 400, dist = "normal", scale = 2)
fit_gam <- gam(y ~ s(x0) + s(x1) + s(x2) + s(x3), data = dat)

library(nlme)
fit_lme <- lme(distance ~ age, data = Orthodont) # random is ~ age

dat <- scale(iris[, -5], center = TRUE, scale = TRUE)
fit_km <- kmeans(dat, centers = 3)

fit_pam <- cluster::pam(dat, k = 3)
```

## lm

```{r}
fit_lm
```

## glm 

```{r}
fit_glm
```

## gam

```{r}
fit_gam
```

## nlme

```{r}
fit_lme
```

## kmeans

```{r}
fit_km
```

## pam

```{r}
fit_pam
```