Как получить начальное число в случайных процессах на языке R?

Question

В следующем процессе:

x <- c(1:10)
for(i in 1:20){
   y <- sample(x)
   print(y)
}

Как получить семена, используемые на каждом шаге? (Я не хочу предварительно sh это). Есть что-то вроде "get.seed ()"?