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)


hughjonesd/huxtable documentation built on Feb. 17, 2024, 12:20 a.m.