## Not run:
# library(intubate)
# library(magrittr)
# library(mda)
#
# ## ntbt_fda: Flexible Discriminant Analysis
# data(iris)
# ## Original function to interface
# fda(Species ~ ., data = iris)
#
# ## The interface puts data as first parameter
# ntbt_fda(iris, Species ~ .)
#
# ## so it can be used easily in a pipeline.
# iris %>%
# ntbt_fda(Species ~ .)
#
# ## ntbt_mda: Mixture Discriminant Analysis
# data(iris)
# ## Original function to interface
# mda(Species ~ ., data = iris)
#
# ## The interface puts data as first parameter
# ntbt_mda(iris, Species ~ .)
#
# ## so it can be used easily in a pipeline.
# iris %>%
# ntbt_mda(Species ~ .)
# ## End(Not run)
Run the code above in your browser using DataLab