我的操作如下：

我们将数据分成两部分：用来建立决策树的训练数据集和用来评估模型性能的测试数据集。将使用70%的数据作为训练数据，30%的数据作为测试数据。

> set.seed(12345)#设置随机数种子

> ind<-sample(2,nrow(Iris),replace=TRUE,prob=c(0.8,0.2))

> rxa-train<-Iris[ind==1,]#训练集

> rxa-test<-Iris[ind==2,]#测试集

我已经将数据录入Excel里，并置于桌面，命名为[size=18.6667px]iris.data

[size=18.6667px]

[size=18.6667px]在将上述程序语句录入R中之后，便被提示说找不到对象'Iris'