Вот пример кода:
colnames(data_sample) model<-rpart(types~ztemp+xfact,data=type_train,control=rpart.control(minsplit=1, minbucket=1, cp=0.001)) plot(model,margin = 0.1)