本地環境中的set.seed（）

Question

是否有可能在本地環境中使用set.seed()而不影響隨後的隨機數生成？在一些函數中設置種子以獲得可重複的結果是很常見的，但我認爲這是不幸的，因爲它會影響下一代隨機數，即使在環境之外。

有沒有可能避免這種行爲？

set.seed(123) 
runif(1) #[1] 0.2875775 
runif(1) #[1] 0.7883051 
local({ 
    set.seed(123) 
    print(runif(1)) 
}) 
#[1] 0.2875775 
runif(1) #[1] 0.7883051 (This should not be the second number again) 

Answer 1

從?set.seed：

[如果]沒有種子;當需要時創建一個新的（從R 2.14.0開始，即進程ID）。

set.seed(42) 
rnorm(1) 
#[1] 1.370958 
rm(.Random.seed) 
rnorm(1) 
#[1] -0.4352643 
set.seed(42) 
rnorm(1) 
#[1] 1.370958 
rm(.Random.seed) 
rnorm(1) 
#[1] -2.338973