悬赏 20 个论坛币 未解决
data<-read.table("C:/MDRData.txt",head=T)
data$Class<-as.factor(data$Class)
data$X1<-as.factor(data$X1)
data$X2<-as.factor(data$X2)
library(rpart)
fit<- rpart(Class~X1+X2, data,method="class")
print(fit)
plot(fit)
text(fit)
画出的图有点怪,那位帮我看看? 谢谢!