Как сделать каждую итерацию уникальной в цикле for

Question

Я пытаюсь собрать 1000 симуляций, используя R, для нескольких размеров выборки. Конечная цель - проверить способность среднего, среднего и геометрического среднего дать известный ответ. Во-первых, мне нужно кодировать 1000 симуляций из нормального распределения выборок 5, 30 и 100 размеров. В настоящее время мой код печатает каждую итерацию одинаково. Например, в цикле for, который печатает 1000 итераций выборки из 5, те же пять чисел печатаются 1000 раз. Как мне предотвратить это? Я хочу, чтобы каждая итерация была уникальной. Вот код с общей схемой переменных и циклов, одинаковых для каждого размера выборки.

#Sample Size of 5
oneA <- round(rnorm(5, mean = 5, sd = 1))
oneAVec <- c(oneA)
for (i in 1:1000){
  print(oneAVec)
}

Answer 1

Вы просто печатаете переменную, которую вы уже определили. Если вы хотите, чтобы в каждом цикле были новые случайные числа, генерируйте их внутри цикла.

for (i in 1:1000){
  print(round(rnorm(5, mean = 5, sd = 1)))
}

[1] 7 6 7 4 4
[1] 4 4 3 6 4
[1] 5 4 6 5 5
[1] 4 7 3 7 5
[1] 6 4 6 4 5
[1] 4 7 6 4 6
[1] 6 6 3 5 4
[1] 5 4 4 3 5
[1] 6 3 6 6 5
[1] 5 7 4 4 5
[1] 5 5 5 5 5