coef_default <- function(x) {
## broom the coef table, rename, and add stars column
d <- tibble::as_tibble(broom::tidy(x), validate = FALSE)
names(d)[2:4] <- c("est", "s.e.", "est.se")
d <- add_stars(d)
## estimate/add standardized solution estimates and return
add_std_est(d)
}
coef_htest <- function(x) {
coef <- as_tbl(broom::tidy(x)[c(1, 4, 5)])
names(coef)[1:2] <- c("est", "t")
add_stars(coef)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.