## Not run:
# library(intubate)
# library(magrittr)
# library(mhurdle)
#
#
# ## ntbt_mhurdle: Estimation of limited dependent variable models
# data("Interview", package = "mhurdle")
#
# ## Original function to interface
# mhurdle(vacations ~ car + size | linc + linc2 | 0, Interview,
# dist = "ln", h2 = TRUE, method = "bfgs")
#
# ## The interface puts data as first parameter
# ntbt_mhurdle(Interview, vacations ~ car + size | linc + linc2 | 0,
# dist = "ln", h2 = TRUE, method = "bfgs")
#
# ## so it can be used easily in a pipeline.
# Interview %>%
# ntbt_mhurdle(vacations ~ car + size | linc + linc2 | 0,
# dist = "ln", h2 = TRUE, method = "bfgs")
# ## End(Not run)
Run the code above in your browser using DataLab