在函数闭包中自包含 RNG 种子-解网

问：

有没有办法设置一个“局部”种子，以便闭包中随机数生成器的使用只取决于这个种子？

例如

tmp_fn_test_seed <- function(seed) {
    
    set.seed(seed)
    
    function() {
        runif(1)
    }
}

以下序列不会产生相同的结果：

tmp_fn_test_seed_1 <-
    tmp_fn_test_seed(1000)
tmp_fn_test_seed_2 <- 
    tmp_fn_test_seed(1000)

tmp_fn_test_seed_1()
tmp_fn_test_seed_2()

相反，我得到：

> tmp_fn_test_seed_1()
[1] 0.3278787
> tmp_fn_test_seed_2()
[1] 0.7588465

r 闭包随机种子

tmp_fn_test_seed <- function(seed) {
  function() {
    old.seed <- .Random.seed
    on.exit(.GlobalEnv$.Random.seed <- old.seed)
    set.seed(seed)
    runif(1)
  }
}

tmp_fn_test_seed_1 <-
  tmp_fn_test_seed(1000)
tmp_fn_test_seed_2 <- 
  tmp_fn_test_seed(1000)

r1 <- .Random.seed
tmp_fn_test_seed_1()
#[1] 0.3278787
r2 <- .Random.seed
tmp_fn_test_seed_2()
#[1] 0.3278787
r3 <- .Random.seed

#"global" RNG state doesn't change 
all.equal(r1, r2)
all.equal(r1, r3)

在函数闭包中自包含 RNG 种子

Self contained seeding of RNG in a function closure

评论

评论