不知道那个对不对？

MOTOACE

5折交叉验证算法如何对64组训练样本均分，
* z$ L5 [; O6 s: l: E3 Y
64/5=12.8    我在网上看到一种分法是12 12 12 12 16，请教大神，不知道那个对不对？感谢！

naimei

w<-read.csv("C:\\Users\\Administrator\\Desktop\\mg.csv",header=T)
: l$ m' P' h* b* l, l#样本的个数为1385,5折交叉验证
n=1385
zz1=1:n
5 I: x( b8 v7 V' Q# X- \zz2=rep(1:5,ceiling(1385/5))[1:n]
set.seed(100)
zz2=sample(zz2,n) #有放回抽样
- U) ^) I7 q8 r9 @9 H4 BNMSE=rep(0,5)
NMSE0=NMSE
0 `0 q, |8 {6 _% Q& K7 K$ ffor(i in 1:5){
" Z4 c1 E/ C( e! J  m=zz1[zz2==i]
( p9 f6 Z8 @: F- ?) f; p  a<-lm(y~.,w[-m,]) #线性回归模型
9 Y3 F; N* d2 F# f5 i, T( @2 N  y0<-predict(a,w[-m,]) #对训练集集预测
  y1=predict(a,w[m,])  #对测试集预测
. Y. O" _( [" l8 f3 ?0 Y* L  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) #训练集的标准化均方误差
* Y3 E$ ^* `# G+ I( O# BNMSE=mean(NMSE)
这个可以参考一下。