Как использовать для цикла и set.seed (i), чтобы обеспечить симуляцию для rmarkovchain?

Question

Я хочу выполнить 1000 симуляций для цепочки Маркова за 1 период с использованием функции цепочки Маркова в R.

Я попытался объединить функцию set.seed() и цикл:

for(i in 1:1000){
   set.seed(i) (rmarkovchain(n=1,object=claims,t0="level -2"))
}

для выполнения функции rmarkovchain 1000 раз для генерации 1000 случайных выходных данных

for(i in 1:1000){set.seed(i) (rmarkovchain(n=1,object=claims,t0="level -2"))}

но R сказал мне Ошибка

неожиданный символ в "for (i in 1: 1000) {set.seed (i) rmarkovchain"

Answer 1

Вы также можете использовать копию, которая может помочь.Например:

B <- 1000
N <- 1
set.seed(1)

sim.msm <- replicate(B, {
   X <- rmarkovchain(n = N, 
                    object = claims, 
                    t0 = "level -2",
                    include.t0 = TRUE,
                    parallel = TRUE, # set true to parallelize
                    num.cores=detectCores()-1)}) # set your cores

Надеюсь, это поможет (я не запускал, но использовал этот подход в прошлом).