是否可以将此嵌套for循环编写为apply函数？

Question

我有一个嵌套的for循环，它绝对永远地运行。该代码用于运行10个隐藏单元，用于神经网络模型拟合。我一直都知道应用函数要快得多，但是无法为更复杂的任务实现它们。我想知道是否有人可以用他们的专业知识指导我，看看我的代码是否能够运行应用功能。谢谢！

在这里，

＆＃34; data.file＆＃34;是一个大小为10的列表。列表中的每个元素都是一个尺寸为3067 x 58的数据框。

＆＃34;测试＆＃34;是一个尺寸为1534 x 58

的数据框

for(k in 1:10){
    mis.err <- NULL 
    for(i in 1:10){
            nett <- nnet(as.factor(type) ~., data = data.file[[i]], size = k, rang=0.7, maxit = 110)
            yhat <- predict(nett, test, type="class")
           tab <- table(yhat, as.factor(test[,58]))
           err <- 1-sum(diag(tab))/sum(tab)

           if (i == 1) mis.err <- err else me <- rbind(mis.err, err)

     }

     table <- rbind(table, c(k, mis.err))

 }

我的结束输出需求是一个10乘2的表，第一列的k值和第二列的mis.err值。

谢谢！