dust_inline example

dust_inline_example.Rmd

---
title: "Untitled"
output: html_document
---

```{r}
library(pixiedust)
fit <- lm(mpg ~ qsec * factor(gear) + factor(am), data = mtcars)
```

The `qsec` term was not significant `r dust_inline(fit, term = c("qsec", "factor(gear)"), level = list("factor(gear)" = "4"))`

## Odds Ratio

```{r}
fit <- glm(am ~ qsec + mpg + wt, 
           data = mtcars)
```

The `qsec` term was significant `r dust_inline(fit, term = "qsec", label = "OR", fun = exp)`