Nothing
## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>",
fig.width = 6,
fig.height = 6
)
## ----echo = TRUE--------------------------------------------------------------
library("brglm2")
data("aids", package = "brglm2")
aids
## ----echo = TRUE--------------------------------------------------------------
aids_mod <- glm(cbind(symptomatic, asymptomatic) ~ AZT + race,
family = binomial(), data = aids)
summary(aids_mod)
## ----echo = TRUE--------------------------------------------------------------
expo(aids_mod, type = "ML")
## ----echo = TRUE--------------------------------------------------------------
expo(aids_mod, type = "correction*")
expo(aids_mod, type = "Lylesetal2012")
expo(aids_mod, type = "correction+")
## ----echo = TRUE--------------------------------------------------------------
expo(aids_mod, type = "AS_median")
## ----echo = TRUE--------------------------------------------------------------
data("endometrial", package = "brglm2")
endometrialML <- glm(HG ~ NV + PI + EH, data = endometrial, family = binomial())
endometrialML
## ----echo = TRUE--------------------------------------------------------------
library("detectseparation")
update(endometrialML, method = detect_separation)
## ----echo = TRUE--------------------------------------------------------------
expo(endometrialML, type = "correction*")
expo(endometrialML, type = "correction+")
expo(endometrialML, type = "Lylesetal2012")
## ----echo = TRUE--------------------------------------------------------------
aids_mod_br <- update(aids_mod, method = "brglmFit")
expo(aids_mod_br, type = "correction*")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.