Дерево решений р

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