Как сделать счетчик bday в r для выхода через некоторое время l oop после 5 таких же bdays

Question

Как мне сделать время l oop, чтобы найти счетчик bday, чтобы остановить время пока l oop после 5 из этих дней. (цифры от 1 до 365)

n_people <- 0 # people counter, start at zero
bday_list <- rep(0, 365) # bday counter, each day starts with count = 0
bday_list
new_person <-sample(1:2, size = 1, replace = TRUE)
bday_list[new_person]
table[bday_list]
new_person
# no defined end to this problem/task!
while (n_people != 365) {
  # talk to my first person, increment counter
  n_people <- n_people + 1
  n_person <- sample(1:365, size = 1, replace = TRUE)

Answer 1

Мы можем обновить вектор bday_list на основе его положения и остановиться, когда любое из значений в векторе достигнет 5.

bday_list <- rep(0, 365)
counter <- 0

while (all(bday_list < 5)) {
  n_person <- sample(1:365, size = 1)
  bday_list[n_person] <- bday_list[n_person] + 1
  counter <- counter + 1
}

cat('\nThe while loop exited after ', counter, ' iterations and the number is',
    which(bday_list == 5))

#The while loop exited after  332  iterations and the number is 119