## Not run:
# library(intubate)
# library(magrittr)
# library(ordinal)
#
#
# ## ntbt_clm: Cumulative Link Models
# ## ntbt_clm2:
# ## Original function to interface
# clm(rating ~ temp * contact, data = wine)
# clm2(rating ~ temp * contact, data = wine)
#
# ## The interface puts data as first parameter
# ntbt_clm(wine, rating ~ temp * contact)
# ntbt_clm2(wine, rating ~ temp * contact)
#
# ## so it can be used easily in a pipeline.
# wine %>%
# ntbt_clm(rating ~ temp * contact)
# wine %>%
# ntbt_clm2(rating ~ temp * contact)
#
#
# ## ntbt_clmm: Cumulative Link Mixed Models
# ## Original function to interface
# clmm(SURENESS ~ PROD + (1|RESP) + (1|RESP:PROD), data = soup,
# link = "probit", threshold = "equidistant")
#
# ## The interface puts data as first parameter
# ntbt_clmm(soup, SURENESS ~ PROD + (1|RESP) + (1|RESP:PROD),
# link = "probit", threshold = "equidistant")
#
# ## so it can be used easily in a pipeline.
# soup %>%
# ntbt_clmm(SURENESS ~ PROD + (1|RESP) + (1|RESP:PROD),
# link = "probit", threshold = "equidistant")
# ## End(Not run)
Run the code above in your browser using DataLab