复制，重复还是其他？

Question

我有以下详细说明的代码。我需要的基本描述是重复此代码30次，并尽可能将结束值指定为向量。每次运行模拟时，我还需要将种子增加1。所以我在考虑使用复制或重复。但由于复制需要rep(vector, times)，我不太确定，因为我没有指定特定的向量。

为了更好地解释代码，A是对值的第一个最佳猜测，然后通知B.然后将B用作C的输入，通知D. C和D然后迭代直到收敛三个值。

rep(vector,40){
set.seed(100)

...............
A
..............
B
..............

for (n in 1:50){
...............
C
..............
D
..............
}
}

Answer 1

您可以将所有内容都包装在函数中，然后使用sapply将索引提供给您的函数。

yourfun <- function(seed){
    set.seed(seed)
    # your code here

    ans <- rnorm(1)
    # just so we can return something
    return(ans)
}

sapply(seq(500, 530), yourfun)