预览加载中，请您耐心等待几秒...

交叉验证ppt课件.ppt

预览
1/7
2/7
3/7
4/7
5/7
6/7
7/7

在线预览结束，喜欢就下载吧，查找使用更方便

下载提示 文本预览

如果您无法下载资料，请参考说明：

1、部分资料下载需要金币，请确保您的账户上有足够的金币

2、已购买过的文档，再次下载不重复扣费

3、资料包下载后请先用软件解压，在使用对应软件打开

交叉验证以cars数据为例summary(lm.tr<-lm(dist~speed,traindata)) ptedist.lm<-predict(lm.tr,testdata) ptrdist.lm<-predict(lm.tr,traindata) temse<-sum(ptedist.lm-testdata$dist)^2/nrow(testdata) trmse<-sum(ptrdist.lm-traindata$dist)^2/nrow(traindata) nls.tr<-nls(log(dist)~xmid*log(speed),data=traindata,start=list(xmid=0)) nls.tr<-nls(log(dist)~log(xmid*speed),data=traindata,start=list(xmid=0.1)) summary(nls.tr)ptedist.nls<-predict(nls.tr,testdata) ptrdist.nls<-predict(nls.tr,traindata) temse<-sum(ptedist.nls-testdata$dist)^2/nrow(testdata) trmse<-sum(ptrdist.nls-traindata$dist)^2/nrow(traindata) 训练集合测试集交换