knitr::opts_chunk$set(echo = TRUE) library(huxtable) set.seed(27101975) dfr <- data.frame(a = rnorm(100), b = rnorm(100)) dfr$y <- dfr$a + rnorm(100) lm1 <- lm(y ~ a, dfr) lm2 <- lm(y ~ a + b, dfr) glm1 <- glm(I(y > 0) ~ a, dfr, family = binomial) hr <- huxreg(lm1, lm2, glm1) hr font(hr)[-1, -1] <- 'cmtt' hr huxreg(lm1, lm2, glm1, number_format = 5)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.