# Create fast-and-frugal trees (FFTs) for heart disease:
heart.fft <- FFTrees(formula = diagnosis ~ .,
data = heart.train,
data.test = heart.test,
main = "Heart Disease",
decision.labels = c("Healthy", "Diseased")
)
# Show cue accuracies (in ROC space):
showcues(heart.fft,
main = "Predicting heart disease")
Run the code above in your browser using DataLab