set.seed(123)
data("infert")
fit_fun <- function(data, w) {
fit <- glm(case ~ spontaneous + induced, data = data,
family = "quasibinomial", weights = w)
coef(fit)
}
fwb_out <- fwb(infert, fit_fun, R = 199, verbose = FALSE)
# Basic confidence interval for both estimates
summary(fwb_out, ci.type = "basic")
# Just for "induced" coefficient; p-values requested
summary(fwb_out, index = "induced", p.value = TRUE)
Run the code above in your browser using DataLab