Arboles de Decisión con R, de manera rapida

Realizar un Árbol de decisión de manera rápida.

install.packages("ISLR")
library(ISLR)
install.packages("tree")
library(tree) 
attach(iris)
head(iris)
testing_data = iris
tree_model = tree(Species~., iris)
plot(tree_model)
text(tree_model,pretty = 0)

no obstante la gráfica mostrada es con todo el dataset de Iris, para realizar pruebas sin embargo, se debe de dividir el dataset en Dataset de Entrenamiento, Test y validación.