intubate (version 1.0.0)

rpart: Interfaces for rpart package for data science pipelines.

Description

Interfaces to rpart functions that can be used in a pipeline implemented by magrittr.

Usage

ntbt_rpart(data, ...)

Arguments

data
data frame, tibble, list, ...
...
Other arguments passed to the corresponding interfaced function.

Value

Object returned by interfaced function.

Details

Interfaces call their corresponding interfaced function.

Examples

Run this code
## Not run: 
# library(intubate)
# library(magrittr)
# library(rpart)
# 
# ## rpart
# ## Original function to interface
# fit <- rpart(Kyphosis ~ Age + Number + Start, data = kyphosis)
# fit2 <- rpart(Kyphosis ~ Age + Number + Start, data = kyphosis,
#               parms = list(prior = c(.65,.35), split = "information"))
# par(mfrow = c(1,2), xpd = NA) # otherwise on some devices the text is clipped
# plot(fit)
# text(fit, use.n = TRUE)
# plot(fit2)
# text(fit2, use.n = TRUE)
# 
# ## The interface reverses the order of data and formula
# fit <- ntbt_rpart(data = kyphosis, Kyphosis ~ Age + Number + Start)
# fit2 <- ntbt_rpart(data = kyphosis, Kyphosis ~ Age + Number + Start,
#                    parms = list(prior = c(.65,.35), split = "information"))
# 
# par(mfrow = c(1,2), xpd = NA) # otherwise on some devices the text is clipped
# plot(fit)
# text(fit, use.n = TRUE)
# plot(fit2)
# text(fit2, use.n = TRUE)
# 
# ## so it can be used easily in a pipeline.
# par(mfrow = c(1,2), xpd = NA) # otherwise on some devices the text is clipped
# kyphosis %>%
#   ntbt_rpart(Kyphosis ~ Age + Number + Start) %T>%
#   plot() %>%
#   text(use.n = TRUE)
# kyphosis %>%
#   ntbt_rpart(Kyphosis ~ Age + Number + Start,
#              parms = list(prior = c(.65,.35), split = "information")) %T>%
#   plot() %>%
#   text(use.n = TRUE)
# ## End(Not run)

Run the code above in your browser using DataCamp Workspace