## Not run:
# library(intubate)
# library(magrittr)
# library(iRegression)
#
# ## bivar
# data("soccer.bivar", package = "iRegression")
#
# ## Original function to interface
# bivar(yMin ~ t1Min + t2Min, "identity", yMax ~ t1Max + t2Max, "identity", data = soccer.bivar)
#
# ## The interface puts data as first parameter
# ntbt_bivar(soccer.bivar, yMin ~ t1Min + t2Min, "identity", yMax ~ t1Max + t2Max, "identity")
#
# ## so it can be used easily in a pipeline.
# soccer.bivar %>%
# ntbt_bivar(yMin ~ t1Min + t2Min, "identity", yMax ~ t1Max + t2Max, "identity")
#
# ## ntbt_ccrm
# data("Cardiological.CR", package = "iRegression")
# ## Original function to interface
# ccrm(PulseC ~ SystC + DiastC, PulseR ~ SystR + DiastR, data = Cardiological.CR)
#
# ## The interface puts data as first parameter
# ntbt_ccrm(Cardiological.CR, PulseC ~ SystC + DiastC, PulseR ~ SystR + DiastR)
#
# ## so it can be used easily in a pipeline.
# Cardiological.CR %>%
# ntbt_ccrm(PulseC ~ SystC + DiastC, PulseR ~ SystR + DiastR)
#
# ## ntbt_cm
# data("Cardiological.MinMax", package = "iRegression") ## see Billard and Diday (2000)
# ## Original function to interface
# cm(PulseMin ~ SystMin + DiastMin, PulseMax ~ SystMax + DiastMax, data = Cardiological.MinMax)
#
# ## The interface puts data as first parameter
# ntbt_cm(Cardiological.MinMax, PulseMin ~ SystMin + DiastMin, PulseMax ~ SystMax + DiastMax)
#
# ## so it can be used easily in a pipeline.
# Cardiological.MinMax %>%
# ntbt_cm(PulseMin ~ SystMin + DiastMin, PulseMax ~ SystMax + DiastMax)
#
# ## ntbt_crm
# data("Cardiological.CR", package = "iRegression")
# ## Original function to interface
# crm(PulseC ~ SystC + DiastC, PulseR ~ SystR + DiastR, data = Cardiological.CR)
#
# ## The interface puts data as first parameter
# ntbt_crm(Cardiological.CR, PulseC ~ SystC + DiastC, PulseR ~ SystR + DiastR)
#
# ## so it can be used easily in a pipeline.
# Cardiological.CR %>%
# ntbt_crm(PulseC ~ SystC + DiastC, PulseR ~ SystR + DiastR)
#
# ## ntbt_MinMax
# data("Cardiological.MinMax", package = "iRegression") ## see Billard, L. and Diday, E. (2000)
# ## Original function to interface
# MinMax(PulseMin ~ SystMin + DiastMin, PulseMax ~ SystMax + DiastMax, data = Cardiological.MinMax)
#
# ## The interface puts data as first parameter
# ntbt_MinMax(Cardiological.MinMax, PulseMin ~ SystMin + DiastMin, PulseMax ~ SystMax + DiastMax)
#
# ## so it can be used easily in a pipeline.
# Cardiological.MinMax %>%
# ntbt_MinMax(PulseMin ~ SystMin + DiastMin, PulseMax ~ SystMax + DiastMax)
# ## End(Not run)
Run the code above in your browser using DataLab