全部版块 我的主页
论坛 数据科学与人工智能 数据分析与数据科学 R语言论坛
23659 6
2014-12-15
在R语言中,DAAG包中SVlm函数可以实现交叉验证,但是我想最终得到精度 召回率  我想知道R 中还有哪些包中的函数可以实现K-折交叉验证,然后如何计算精度呢?
二维码

扫码加我 拉你入群

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

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

全部回复
2014-12-18 15:03:32
一般有五折和十折交叉验证法。最后算它的平均误差是多少啊
二维码

扫码加我 拉你入群

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

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

2014-12-18 15:08:21
附录1、五折交叉验证程序

1、构造五折下标集。
d=1:339;dd=list();z=5;nn=levels(tt$y);kl=length(nn)
for(i in 1:kl)dd[[i]]=d[tt$y==nn[i]]
kk=NULL;for(i in 1:kl)kk=c(kk,round(length(dd[[i]])/z))
set.seed(111);yy=list(NULL,NULL,NULL)
for(i in 1:kl)
{xx=list();uu=dd[[i]];for(j in 1:(z-1)){xx[[j]]=sample(uu,kk[i])
uu=setdiff(uu,xx[[j]])}
xx[[z]]=uu;for(k in 1:z)yy[[i]][[k]]=xx[[z]]}
mm=list(NULL,NULL,NULL,NULL,NULL)
for(i in 1:z)for(j in 1:kl)mm[[i]]=c(mm[[i]],yy[[j]][[i]])
mm[[i]] #是第i折的测试集下标集合。
2、随机森林的五折交叉验证的测试集和训练集分类的平均误差。
for(i in i:5){m=mm[[i]]
n0=359-length(m);n1=length(m)
RF=randomForest(y~.,data=tt[-m,])
E0[i]=sum(tt[-m,1]!=predict(RF,tt[-m,]))/n0
E1[i]=sum(tt[m,1]!=predict(RF,tt[m,]))/n1}
mean(E0)=0; mean(E1)=0.03333333。
二维码

扫码加我 拉你入群

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

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

2016-3-16 21:44:54
心若灿烂 发表于 2014-12-18 15:08
附录1、五折交叉验证程序

1、构造五折下标集。
很好用,谢谢~
二维码

扫码加我 拉你入群

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

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

2016-10-13 16:52:05
心若灿烂 发表于 2014-12-18 15:08
附录1、五折交叉验证程序

1、构造五折下标集。
您好,请问tty是什么?
二维码

扫码加我 拉你入群

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

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

2017-3-31 11:17:18
135792486 发表于 2016-10-13 16:52
您好,请问tty是什么?
你好,请问你知道tty是什么了吗
二维码

扫码加我 拉你入群

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

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

点击查看更多内容…
相关推荐
栏目导航
热门文章
推荐文章

说点什么

分享

扫码加好友,拉您进群
各岗位、行业、专业交流群