Setze Seed lokal (nicht global) in R

Question

Ich möchte Seeds in R nur lokal (innerhalb Funktionen), aber es scheint, dass R setzt Samen nicht nur lokal, sondern auch global. Hier ist ein einfaches Beispiel dafür, was ich versuche (nicht).

myfunction <- function() { 
    set.seed(2) 
} 

# now, whenever I run the two commands below I'll get the same answer 
myfunction() 
runif(1) 

Also, meine Fragen sind: Warum setzt R den Keim global und nicht nur in meiner Funktion? Und wie kann ich R setzen, um den Keim nur innerhalb meiner Funktion zu setzen?

Answer 1

So etwas tut es für mich:

myfunction <- function() { 
    old <- .Random.seed 
    set.seed(2) 
    res <- runif(1) 
    .Random.seed <<- old 
    res 
} 

Oder vielleicht elegante:

myfunction <- function() { 
    old <- .Random.seed 
    on.exit({ .Random.seed <<- old }) 
    set.seed(2) 
    runif(1) 
} 

Zum Beispiel:

> myfunction() 
[1] 0.1848823 
> runif(1) 
[1] 0.3472722 
> myfunction() 
[1] 0.1848823 
> runif(1) 
[1] 0.4887732