fit <- lm(mpg ~ qsec + factor(am) + wt * factor(gear), data = mtcars)
dust(fit) %>%
medley_bw() %>%
sprinkle_print_method("html")
dust(fit, glance_foot = TRUE) %>%
medley_model() %>%
sprinkle_print_method("html")
Run the code above in your browser using DataLab