手動ではなく、一度に100モデルを実行する

Question

私はこのテーブルを作成しました。

dat <- matrix(rbinom(6*100, 6, 0.5), ncol=6) 

テーブルから1行を使用して、モデルをトレーニングするための 'サイズ'ステートメントを入力します。

nn.sizes <- dat[1,] 
    sample.number <- length(dat2[[1]][,1]) 
    nns <- lapply(1:length(dat2), function(i){nn <- nnet(dat2[[i]][1:(sample.number),], dat3[[i]][(twindow+1):(length(dat3[[i]]))],size=nn.sizes[i], linout = TRUE)}) 

私の質問は、手動で1つ1つ手作業で行う方法だけです。つまり、100回実行する必要があります。

Answer 1

replicate()を使用すると、行列をループする代わりに、各複製で1つのベクトルを作成することができます。これは式ブロック（{}中かっこの間のコード）をループさせ、100回評価します。

replicate(100, { 
    nn.sizes <- rbinom(6, 6, 0.5) 

    <the rest of your code here> 

})