不知道那个对不对？

MOTOACE

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

( p, r& \& M1 t6 r" u64/5=12.8    我在网上看到一种分法是12 12 12 12 16，请教大神，不知道那个对不对？感谢！

naimei

w<-read.csv("C:\\Users\\Administrator\\Desktop\\mg.csv",header=T)
#样本的个数为1385,5折交叉验证
n=1385
- U4 \0 E0 i- v: L) I" K! e3 h4 _5 h0 Qzz1=1:n
zz2=rep(1:5,ceiling(1385/5))[1:n]
! m7 T6 s& N9 ?5 E5 o: Oset.seed(100)
; {1 p4 B  \5 }! _& h6 M7 Wzz2=sample(zz2,n) #有放回抽样
NMSE=rep(0,5)
4 h8 |$ H6 `* H( f) f/ o4 UNMSE0=NMSE
4 i  Z4 w- `7 _* c( Bfor(i in 1:5){
9 m, D+ y' `4 t4 q6 z- q6 {  m=zz1[zz2==i]
  a<-lm(y~.,w[-m,]) #线性回归模型
  y0<-predict(a,w[-m,]) #对训练集集预测
, c8 z7 N9 G0 R% o6 j* V; ?. ^  U  y1=predict(a,w[m,])  #对测试集预测
  NMSE0[i]=mean((w$y[-m]-y0)^2)/mean((w$y[-m]-mean(w$y[-m]))^2)
6 o" P" @- d, \4 l3 s  NMSE[i]=mean((w$y[m]-y1)^2)/mean((w$y[m]-mean(w$y[m]))^2)
}
NMSE0=mean(NMSE0) #训练集的标准化均方误差
% e* g" x# f& G# J& r2 f% dNMSE=mean(NMSE)
  j" O( ?6 [: }' f, n$ u/ ?这个可以参考一下。