data.frame loop with loop

Question

こんにちは私は、データフレーム（DB）からランダムに抽出するループで10のサブトレーニングセット（75％のトレーニングセットから）を作成しようとしています。私は使用しています

smp_size<- floor((0.75* nrow(DB))/10) 
train_ind<-sample(seq_len(nrow(DB)), size=(smp_size)) 

training<- matrix(ncol=(ncol(DB)), nrow=(smp_size)) 
for (i in 1:10){ 
    training[i]<-DB[train_ind, ] 
} 

何が問題になっていますか？ 10個の同じサイズのサブセットにデータセットをパーティションに

Answer 1

は、次のように使用することができます：split()だけあなたに同じサイズのサブセットを与えることが

# Randomly order the rows in your training set: 
DB <- DB[order(runif(nrow(DB))), ] 
# You will create a sequence 1,2,..,10,1,2,...,10,1,2.. you will use to subset 
inds <- rep(1:10, nrow(DB)/10) 
# split() will store the subsets (created by inds) in a list 
subsets <- split(DB, inds) 

注意、、。したがって、観測の一部がサブセットのいずれにも含まれない可能性があります（おそらく）。あなたが他の人よりも大きくなるように、いくつかのサブセットを引き起こし、すべての観測を使用したい場合は

、あなたは私に言うinds <- rep(1:10, length.out = nrow(DB))代わり