为什么 break() 在此循环中不起作用？ （但停止是）

Question

我正在尝试构建一个矩阵模型，该模型在调用某些条件时结束 - 但是由于某些原因，break() 命令不起作用，尽管 stop() 起作用。不幸的是 stop() 不是我需要的，因为我需要多次 运行 模型。

模型中的第一个 break 命令有效，但我将其保留为 dth>100，以便您自己查看

    n.steps <- 200
ns <- array(0,c(14,n.steps)) 
ns[13,1]<-rpois(1,3)
ns[14,1] <- 1 
k<-0

for (i in 1:n.steps){
  k<-k+1
  ns[13,1]<-rpois(1,2)
  death<-sample(c(replicate(1000, 
                            sample(c(1,0), prob=c(surv.age.a, 1-surv.age.a), size = 1))),1)
  ns[14,k] <- death

  if (death == 0) {
    dth <- sample(1:100, 1)
    if (dth > 100) {
      ns[14,k]<-0
      print("stop.1")
      break()

    } else {

      while (death == 0) {
        if (ns[13, k] > 0) {
          rep.vec[i]<-ns[13,k]

          ns[13, k] <- ns[13, k] - 1
          ns[14,k+1]<-1
          print("replace")

        } else {

          if (ns[13, k] == 0) {
            print("stop.2")
            ns[14,k+1]<-0
            break()
          }
        }
      }
    }
  }
}

Answer 1

试试这个（只显示相关部分）：

for (i in 1:n.steps){

   # ...

       break.out.of.for <- FALSE
       while (death == 0) {
        if (ns[13, k-1] > 0) {
            # ...        
        } else {
          if (ns[13, k] == 0) {
            # ...
            break.out.of.for = TRUE
            break
        }
       }
       if (break.out.of.for) {
         break
       }
}