## Not run:
# library(intubate)
# library(magrittr)
# library(SwarmSVM)
#
# ## ntbt_alphasvm: Support Vector Machines taking initial alpha values
# data(iris)
# ## Original function to interface
# alphasvm(Species ~ ., data = iris)
#
# ## The interface puts data as first parameter
# ntbt_alphasvm(iris, Species ~ .)
#
# ## so it can be used easily in a pipeline.
# iris %>%
# ntbt_alphasvm(Species ~ .)
# ## End(Not run)
Run the code above in your browser using DataLab