Question

我创建了这个表。

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

然后使用表格中的一行来填充＆＃39;尺寸＆＃39;声明训练模型。

    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)})

我的问题是，我只知道如何逐个手动完成，这意味着我必须运行100次。有没有办法运行一次

Answer 1

您可以使用replicate()并且只在每次复制时创建一个向量，而不是在矩阵上循环。这只是循环表达式块（{}大括号之间的代码），对其进行100次评估。

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

    <the rest of your code here> 

})

一次运行100个模型，而不是一个一个地手动运行

1 个答案: