Как мне запустить этот код c 1000 раз и сохранить результаты в векторе?

Question

У меня здесь while l oop, но я застрял в том, как запустить это l oop 1000 раз и сохранить результаты как вектор x. Было бы здорово, если бы я мог получить некоторую помощь !

n=1 
success = FALSE 
while(success == FALSE){ 
  n=n+1 #conditions
  if(rbinom(1, n, (n*n+1)^-1) == 1) 
    success = TRUE
  } 
n

Answer 1

Напишите код для повтора в функции:

run_function <- function(){
  n=1 
  success = FALSE
  while(!success){ 
    n=n+1
    if(rbinom(1, n, (n*n+1)^-1) == 1) 
       success = TRUE
    } 
    n
}

Используйте replicate, чтобы повторить его 1000 раз, и сохраните вектор результатов в x.

x <- replicate(1000, run_function())