continue 语句

numbers <- c(2, 3, 5, 7, 11, 13, 17, 19)
taken <- numeric(0)
for (i in seq_along(numbers)) {
  # Skip every second position
  if (i %% 2 == 0) next
  taken <- c(taken, numbers[i])
}
# taken = 2 5 11 17

cat("taken =", taken, "\n")