R: set.seed() Ergebnisse stimmen nicht überein, wenn das Caret-Paket geladen wurde

Question

Ich verwende createFolds() in R (Version: 3.3.0), um Zug/Test-Partitionen zu erstellen. Um die Ergebnisse reproduzierbar zu machen, verwendete ich set.seed() mit einem Keimwert von 10. Wie erwartet, waren die Ergebnisse (erzeugte Falten) reproduzierbar.

Aber sobald ich Caret-Paket direkt nach dem Setzen der Samen geladen. Und dann habe ich mit createFolds festgestellt, dass die erzeugten Falten anders waren (obwohl sie immer noch reproduzierbar sind).

Insbesondere die erzeugten Falten unterscheiden sich in den folgenden beiden Fällen:

Fall 1:

library(caret) 
set.seed(10) 
folds=createFolds(y,k=5,returnTrain=TRUE) 

Fall 2:

set.seed(10) 
library(caret) 
folds=createFolds(y,k=5,returnTrain=TRUE) 

wo y ein Vektor ist.

Warum konnte das passieren?

Answer 1

Der Schuldige ist ggplot2, das beim Laden von Caret angehängt wird. Es definiert eine .onAttach Funktion: https://github.com/hadley/ggplot2/blob/master/R/zzz.r

Diese Funktion wird aufgerufen, wenn das Paket beigefügt ist, siehe help("ns-hooks"). Und darin wird runif genannt, wodurch der Zustand des RNG fortschreitet.