## Not run:
# library(intubate)
# library(magrittr)
# library(randomForest)
#
# ## randomForest
# ## Original function to interface
# set.seed(71)
# iris.rf <- randomForest(Species ~ ., data = iris,
# importance = TRUE, proximity = TRUE)
# print(iris.rf)
# plot(iris.rf)
#
# ## The interface reverses the order of data and formula
# set.seed(71)
# iris.rf <- ntbt_randomForest(iris, Species ~ .,
# importance = TRUE, proximity = TRUE)
# print(iris.rf)
# plot(iris.rf)
#
# ## so it can be used easily in a pipeline.
# set.seed(71)
# iris %>%
# ntbt_randomForest(Species ~ ., importance = TRUE,
# proximity = TRUE) %>%
# plot()
# ## End(Not run)
Run the code above in your browser using DataLab