r - R、袋に入れられたサンプルを削除して、袋のサンプルから生成します

Question

袋のサンプルのパフォーマンスに基づいて、袋に入れられたモデルで投票を設定しようとしています。

construct.annet = function(trainset,n,p=1){
  annet.struct = vector(mode="list",length=n)
  cat("Constructing Agregate Neural Network with ",p,"\n")
  for(i in 1:n){
    cat("iteration ",i,"\n")
    bsamp = trainset[sample(p*dim(trainset)[1],replace=T),]
    annet.struct[[i]] = nnet(class~.,data=bsamp,size=sample(4:12,1),maxit=1000)
  }
  return(annet.struct)
}

反復を印刷することは、処理にかかる時間を教えてくれるだけです。隠しレイヤーのサイズをランダムに変化させている理由については、当時はそうしているように思えました。

私がやりたいことは、反復ごとにモデルを構築した後に別の行を追加することです。ここでは、バッグから取り出したサンプルでモデルをテストし、その予測精度を記録します。次に、そのデータを使用して、最終モデルのクラス パーセンテージの投票に重みを付けます。(性能の低いモデルは軽量化など)

問題は、受信データからブートストラップされたサンプルを削除する方法がわからないことです。そして、私のgoogle-fuは明らかに役に立ちません。

ありがとう。