r - 如何在特定的代码行之后停止set.seed()？

Question

我想在特定行之后结束set.seed（）的范围，以便对其余代码进行真正的随机化处理。这是一个我想让set.seed（）用于“ rnorm”（第4行）而不是“ nrow”（第9行）的示例

set.seed(2014)
f<-function(x){0.5*x+2}
datax<-1:100
datay<-f(datax)+rnorm(100,0,5)
daten<-data.frame(datax,datay)
model<-lm(datay~datax)
plot(datax,datay)
abline(model)
a<-daten[sample(nrow(daten),20),]
points(a,col="red",pch=16)
modela<-lm(a$datay~a$datax)
abline(modela, col="red")

确实，感谢您的建议！

Answer 1

通过引入新的唯一随机种子，只需使用当前系统时间来“撤消”种子：

set.seed(Sys.time())

如果需要更高的精度，请考虑获取 system timestamp by millisecond（使用R的 system(..., intern = TRUE)函数）。