html_tabmodel

## Show regression outputs

```{r echo=FALSE}
library("sjPlot")
library("sjmisc")
library("sjlabelled")

data = read.csv("https://stats.idre.ucla.edu/stat/data/binary.csv")
data$rank <- factor(data$rank)

m1 <- glm(admit ~ gre, data = data, family = binomial(link = "logit"))
m2 <- glm(admit ~ gre + gpa, data = data, family = binomial(link = "logit"))
m3 <- glm(admit ~ gre + gpa + rank, data = data, family = binomial(link = "logit"))

tab_model(
  m1, m2, m3, 
  pred.labels = c("Intercept", "GRE Score", "GPA Score", "Rank-2 Institution", "Rank-3 Institution", "Rank-4 Institution"),
  dv.labels = c("Iteration-1", "Iteration-2", "Iteration-3"),
  string.pred = "Coeffcient",
  string.ci = "Conf. Int (95%)",
  string.p = "P-Value",
  show.aic = TRUE,
  show.loglik = TRUE,
  title = "Logistic Regression of admission on GRE score, GPA score and College ranking"
)

```