不知道那个对不对？

MOTOACE

5折交叉验证算法如何对64组训练样本均分，

64/5=12.8    我在网上看到一种分法是12 12 12 12 16，请教大神，不知道那个对不对？感谢！

naimei

w<-read.csv("C:\\Users\\Administrator\\Desktop\\mg.csv",header=T)
#样本的个数为1385,5折交叉验证
* `9 F* b" j& }6 t+ G9 G  U+ V- x3 Dn=1385
' ]% z1 e+ K+ F6 Uzz1=1:n
- y1 f6 p/ F5 ]( F0 X/ S9 Jzz2=rep(1:5,ceiling(1385/5))[1:n]
set.seed(100)
zz2=sample(zz2,n) #有放回抽样
NMSE=rep(0,5)
NMSE0=NMSE
for(i in 1:5){
  m=zz1[zz2==i]
  a<-lm(y~.,w[-m,]) #线性回归模型
* f3 a1 @8 a  M  y0<-predict(a,w[-m,]) #对训练集集预测
* s; i5 I$ Y5 x  y1=predict(a,w[m,])  #对测试集预测
* }8 l) R& \7 s) R2 f: r  NMSE0[i]=mean((w$y[-m]-y0)^2)/mean((w$y[-m]-mean(w$y[-m]))^2)
  NMSE[i]=mean((w$y[m]-y1)^2)/mean((w$y[m]-mean(w$y[m]))^2)
}
NMSE0=mean(NMSE0) #训练集的标准化均方误差
NMSE=mean(NMSE)
. \: p0 q" Q3 L" F% R$ }3 O这个可以参考一下。