Повторить цикл с условием if не работает

Question

Я хочу изменить порядок вектора с 250 значениями, и я использую sample, repeat и if для этого:

x <- rnorm(200, mean = 0.06, sd = 0.20)
x$ret_coef = 1 + returns,
X$ret = cumprod(ret_coef) - 1

reorder1 <- function(x){
    repeat{
    temp <- tibble(
      ret= sample(x$ret, 200)
      )

    if(sum(temp$ret[200],temp$ret[180])<0) break
    }
}

К сожалению, новый вектор никогда не заполняет условие if.

Answer 1

Я понял:

важно установить замену = ИСТИНА:

sample(x$ret, 200, replace=TRUE)

Это сработало потом!