种子以产生可重现的随机数

Question

我正在尝试获得可重现的结果。我为数据帧中的每个条目1到100分配随机数。如何从随机数生成器中获取相同的数字？

seed <- 1

seed = as.integer(Sys.time())
set.seed(seed)


ID <- 1:100
x <- as.integer(rnorm(100,50,20))

y <- as.integer(rnorm(100,50,20)) 

agent <- as.matrix(cbind(ID,x,y))

这就是我尝试没有成功的方法。