Создание цикла R для смоделированных испытаний эксперимента

Question

У меня есть эксперимент с результатами, которые одинаково вероятны.Размер выборки составляет 68 миллиардов - 4 ^ 18.Я пытаюсь создать цикл, который для х испытаний создает список х элементов, которые являются случайными числами от 1 до 4 ^ 18.Я хочу сделать так, чтобы у функции был оператор, который позволяет мне выбирать размер выборки.Вот что у меня есть.

N = 4^18;N

trialsample <- function(x){
  Trials <- list()
  for(i in 1:x) {
    Trials[[i]] <- round(runif(1, 1, N))
  }
}  

test <- trialsample(5)
test
NULL