object <- glm(
formula = vs ~ wt + disp,
family = "binomial",
data = mtcars
)
func <- function(x) {
y <- exp(x)
names(y) <- paste0("exp", "(", names(x), ")")
y[-1]
}
Delta(
coef = coef(object),
vcov = vcov(object),
func = func,
alpha = 0.05
)
Run the code above in your browser using DataLab