在R中创建一个循环以生成神经网络模型的相关性列表

Question

我试图创建一个完成10次迭代的循环（nrl从1到10），对于每次迭代，nrl的值是隐藏节点值。测试集的模型预测与实际测试集值之间的相关性应存储在每次迭代的列表中。这就是我到目前为止所做的：

 nrl = 1
    while(nrl < 11)
{
  set.seed(123)
  neural_model1 <- neuralnet( formula = C ~ A + B 
                          ,  data = data_train,hidden = nrl)

  model_results <- compute(neural_model1,data_test)
  predicted <- n_model_results$net.result
  cor(predicted,data_test$C)
 nrl = nrl+1
}

我如何创建相关列表？