## Not run:
# library(intubate)
# library(magrittr)
# library(pscl)
#
#
# ## ntbt_hurdle: Hurdle Models for Count Data Regression
# data("bioChemists", package = "pscl")
#
# ## Original function to interface
# hurdle(art ~ ., data = bioChemists)
#
# ## The interface puts data as first parameter
# ntbt_hurdle(bioChemists, art ~ .)
#
# ## so it can be used easily in a pipeline.
# bioChemists %>%
# ntbt_hurdle(art ~ .)
#
#
# ## ntbt_zeroinfl: Zero-inflated Count Data Regression
# ## Original function to interface
# zeroinfl(art ~ . | 1, data = bioChemists, dist = "negbin")
#
# ## The interface puts data as first parameter
# ntbt_zeroinfl(bioChemists, art ~ . | 1, dist = "negbin")
#
# ## so it can be used easily in a pipeline.
# bioChemists %>%
# ntbt_zeroinfl(art ~ . | 1, dist = "negbin")
# ## End(Not run)
Run the code above in your browser using DataLab