## Not run:
# library(intubate)
# library(magrittr)
# library(brglm)
#
# ## ntbt_brglm: Bias reduction in Binomial-response GLMs
# data(lizards)
#
# ## Original function to interface
# brglm(cbind(grahami, opalinus) ~ height + diameter +
# light + time, family = binomial(logit), data = lizards,
# method = "brglm.fit")
# ## The interface puts data as first parameter
# ntbt_brglm(lizards, cbind(grahami, opalinus) ~ height + diameter +
# light + time, family = binomial(logit),
# method = "brglm.fit")
#
# ## so it can be used easily in a pipeline.
# lizards %>%
# ntbt_brglm(cbind(grahami, opalinus) ~ height + diameter +
# light + time, family = binomial(logit),
# method = "brglm.fit")
# ## End(Not run)
Run the code above in your browser using DataLab