为实验的模拟试验创建R循环

Question

我做了一个实验，结果的可能性是一样的。样本规模为680亿-4 ^ 18。我正在尝试创建一个循环，为x试验生成一个x元素列表，这些元素是从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