Kết quả R: set.seed() không phù hợp nếu gói caret được tải

Question

Tôi đang sử dụng createFolds() trong R (phiên bản: 3.3.0) để tạo phân vùng tàu/thử nghiệm. Để làm cho kết quả có thể tái sản xuất, tôi đã sử dụng set.seed() với giá trị hạt giống là 10. Như mong đợi, kết quả (nếp gấp được tạo ra) có thể tái sản xuất được.

Nhưng một khi tôi đã tải gói hàng chỉ sau khi đặt hạt giống. Và sau đó sử dụng hàm createFolds, tôi thấy rằng các nếp gấp đã tạo khác nhau (mặc dù vẫn có thể tái sản xuất).

Cụ thể, những nếp gấp tạo ra khác nhau trong hai trường hợp sau:

Trường hợp 1:

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

Trường hợp 2:

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

nơi y là một vector.

Tại sao điều này có thể xảy ra?

Answer 1

Thủ phạm là ggplot2, được đính kèm khi bạn tải dấu mũ. Nó định nghĩa một hàm .onAttach: https://github.com/hadley/ggplot2/blob/master/R/zzz.r

Chức năng này được gọi khi gói được gắn, xem help("ns-hooks"). Và trong đó runif được gọi là từ đó thúc đẩy trạng thái của RNG.