## Not run:
# library(intubate)
# library(magrittr)
# library(gee)
#
# ## ntbt_gee: solve a Generalized Estimation Equation Model
# data(warpbreaks)
#
# ## Original function to interface
# gee(breaks ~ tension, id=wool, data=warpbreaks, corstr="exchangeable")
#
# ## The interface puts data as first parameter
# ntbt_gee(warpbreaks, breaks ~ tension, id=wool, corstr="exchangeable")
#
# ## so it can be used easily in a pipeline.
# warpbreaks %>%
# ntbt_gee(breaks ~ tension, id=wool, corstr="exchangeable")
# ## End(Not run)
Run the code above in your browser using DataLab