## Not run:
# library(intubate)
# library(magrittr)
# library(e1071)
#
# ## Original function to interface
# model <- svm(Species ~ ., iris)
# summary(model)
#
# ## The interface reverses the order of data and formula
# model <- ntbt_svm(iris, Species ~ .)
# summary(model)
#
# ## so it can be used easily in a pipeline.
# iris %>%
# ntbt_svm(Species ~ .) %>%
# summary()
# ## End(Not run)
Run the code above in your browser using DataLab