R while loop и количество раз

Question

получил цикл while, и это работает нормально. Однако мне также нужно добавить другое условие.

Мне нужен цикл, чтобы он продолжал идти, пока он не удовлетворяет циклу while, но тогда мне также нужно добавить, что это может повторяться только x раз.

Я думаю, вам нужно будет сделать цикл for, чтобы сделать x раз, можно ли вставить цикл while?

В принципе, как я могу сделать петлю или достигнуть цели или остановиться после x петель ??

Answer 1

Выражение в while должно быть TRUE для продолжения цикла. Вы можете использовать | или &, чтобы добавить дополнительные условия. Этот цикл выполняется 99 раз или до тех пор, сумма случайных величин не меньше 100.

counter <- 0 
result <- 0 

while(counter < 100 | sum(result) < 100) { 
    result <- sum(result, rnorm(1, mean = 5, sd = 1)) 
    counter <- sum(counter, 1) 
} 

> result 
[1] 101.5264 
> counter 
[1] 21 

Answer 2

Просто передать текущее значение итератора в качестве аргумента в вашу функцию. Таким образом, вы можете разбить рекурсию, если она достигает определенного значения.

Но почему у вас есть время цикла, если вы используете рекурсию, например:

add_one_recursive = function(number) { 
    number = number + 1 
    cat("New number = ", number, "\n") 
    if(number > 10) { 
     return(number) 
    } else { 
     return(add_one_recursive(number)) 
    } 
} 
final_number = add_one_recursive(0) 
New number = 1 
New number = 2 
New number = 3 
New number = 4 
New number = 5 
New number = 6 
New number = 7 
New number = 8 
New number = 9 
New number = 10 
New number = 11 

Не требует явного цикла вообще.