搜索
人大经济论坛 附件下载

附件下载

所在主题:
文件名:  邮件营销数据.txt
资料下载链接地址: https://bbs.pinggu.org/a-2657008.html
附件大小:
14.71 KB   举报本内容
R中的代码如下:问题在于生成的树TreeFit还没有用于预测,在printcp(TreeFit)的输出中却显示根结点的错误率为0.45,这个0.45是怎么来的? 假设是它自已内部于对生成树的观测预测的结果,那实现上我用它对观测进行预测,通过混淆矩阵的计算
误判率却是0.283,这又做何解释?请专业人员进行指点指点,万谢!
MailShot<-read.table(file="邮件营销数据.txt",header=TRUE) # 300 obs. of10 variables
MailShot<-MailShot[,-1] # 去掉首列
Ctl<-rpart.control(minsplit=20,maxcompete=4,maxdepth=30,cp=0.01,xval=10)#预、后剪枝参数采用默认设置
set.seed(12345)
TreeFit<-rpart(MAILSHOT~.,data=MailShot,method="class",parms=list(split="gini"),control = Ctl)#生成树
printcp(TreeFit) #输出结果如黄色部分:
Classification tree:
rpart(formula = MAILSHOT ~ ., data = MailShot, method = "class",
parms = list(split = "gini"), control = Ctl)
Variables actually used in tree construction:
[1] AGE CAR GENDER INCOME REGION
Root node error: 135/300 = 0.45
n= 300
CP nsplit rel errorxerror xstd
1 0.214815 0 1.00000 1.00000 0.063828
2 0.025926 1 0.78519 0.88148 0.062765
3 0.018519 3 0.73333 0.97037 0.063633
4 0.014815 5 0.69630 0.98519 0.063737
5 0.012346 7 0.66667 1.02222 0.063944
6 0.010000 10 0.62963 1.01481 0.063909

CFit1<-predict(TreeFit,MailShot,type="class")#用生成的树对参与建树的观测进行预测
ConfM1<-table(MailShot$MAILSHOT,CFit1) # 计算单个分类树的混淆矩阵
(E1<-(sum(ConfM1)-sum(diag(ConfM1)))/sum(ConfM1)) # 计算单个树的错判率
#误判率为0.2833333 用全部观测构造的树对全体观测的分类错判率




    熟悉论坛请点击新手指南
下载说明
1、论坛支持迅雷和网际快车等p2p多线程软件下载,请在上面选择下载通道单击右健下载即可。
2、论坛会定期自动批量更新下载地址,所以请不要浪费时间盗链论坛资源,盗链地址会很快失效。
3、本站为非盈利性质的学术交流网站,鼓励和保护原创作品,拒绝未经版权人许可的上传行为。本站如接到版权人发出的合格侵权通知,将积极的采取必要措施;同时,本站也将在技术手段和能力范围内,履行版权保护的注意义务。
(如有侵权,欢迎举报)
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

GMT+8, 2025-12-22 03:53