repeat и break

repeat снова и снова выполняет своё тело, пока находящийся внутри него break не остановит цикл. Он подходит для цикла, условие выхода из которого становится известно только в середине тела:

n <- 1
repeat {
  n <- n * 2
  if (n > 50) break
}
print(n)

Вывод:

[1] 64

Последовательность Коллатца — это пример: делите чётные числа пополам, превращайте нечётные в 3n + 1 и останавливайтесь на 1. Количество шагов заранее неизвестно:

n <- 6
steps <- 0
repeat {
  if (n == 1) break
  n <- if (n %% 2 == 0) n / 2 else 3 * n + 1
  steps <- steps + 1
}
print(steps)

Вывод:

[1] 8

next пропускает остаток текущей итерации и начинает следующую. Он работает в циклах repeat, while и for:

for (x in 1:8) {
  if (x %% 3 == 0) next
  cat(x, "")
}
cat("\n")

Вывод:

1 2 4 5 7 8 

Цикл repeat без достижимого break никогда не заканчивается. Используй счётчик как ограничение безопасности, когда выход зависит от данных:

total <- 0
tries <- 0
repeat {
  tries <- tries + 1
  total <- total + tries
  if (total >= 20 || tries == 100) break
}
print(c(tries, total))

Вывод:

[1]  6 21