Árvore de decisão r

library(ISLR)
data(package="ISLR")
carseats<-Carseats
Breakable Bug