knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
library(add2evaluation)
fit <- mtcars %>% lm(disp ~ mpg, data = .)
library(zeallot) c(model, coefficients, observations) %<-% groom_model(fit)
model coefficients observations
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.