不知道那个对不对？

MOTOACE

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

7 v- T3 m2 `  F- Y! z% y64/5=12.8    我在网上看到一种分法是12 12 12 12 16，请教大神，不知道那个对不对？感谢！

naimei

w<-read.csv("C:\\Users\\Administrator\\Desktop\\mg.csv",header=T)
# S1 p6 y, x9 j6 O8 [#样本的个数为1385,5折交叉验证
n=1385
, s. l" k9 F* Lzz1=1:n
zz2=rep(1:5,ceiling(1385/5))[1:n]
set.seed(100)
6 B( w; |, _* J" Azz2=sample(zz2,n) #有放回抽样
NMSE=rep(0,5)
NMSE0=NMSE
for(i in 1:5){
7 Y$ R8 m! n1 D' J4 {  m=zz1[zz2==i]
0 E2 K' D5 `1 E! v4 }" T5 q  a<-lm(y~.,w[-m,]) #线性回归模型
  y0<-predict(a,w[-m,]) #对训练集集预测
; o4 u( R* W* m! D  y1=predict(a,w[m,])  #对测试集预测
  NMSE0[i]=mean((w$y[-m]-y0)^2)/mean((w$y[-m]-mean(w$y[-m]))^2)
% `! t% [: w4 F8 P4 O) A: P$ l" ~& H  NMSE[i]=mean((w$y[m]-y1)^2)/mean((w$y[m]-mean(w$y[m]))^2)
}
7 `1 Y% K& S) L1 K3 K6 a* bNMSE0=mean(NMSE0) #训练集的标准化均方误差
. [6 h+ @. S: `% P' ^0 S: T% ~NMSE=mean(NMSE)
这个可以参考一下。