重复循环，如果条件不起作用

Question

我想对具有250个值的向量重新排序，并且我正在使用样本，请重复，如果要这样做：

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

我知道了：

重要的是设置replace = TRUE：

+ 1

此后有效！