R 带If语句的基本While循环

我正在为一个R类创建一个运行while循环和if语句的基本函数，并正在寻求帮助

我不想把事情搞得太复杂，所以我宁愿坚持这个答案的基本原则

---

我创建了一个基本的足球分数函数，它的目的是在码数>=80时给分数加7分，在码数>=60时给总分加3分（如果有其他情况，则加3分），如果有任何问题，则给总分加0代码中的问题是您将

返回（分数）

放在

while

循环中<代码>返回终止函数并返回相应的值。因此，函数总是在循环的第一次迭代后终止

我对代码所做的另一个编辑是删除最后一个条件，因为它不会更改

score

的值

set.seed(4)

teamA <- function(drives) {
  i <- 0
  score <- 0
  while (i < drives) {
    yards <- sample(0:100,1)
    if (yards >= 80) {
      score <- score + 7
    }
    else if (yards >= 60) {
      score <- score + 3
    }
    i <- i + 1
  }
    return(score)
}

teamA(5)
[1] 6

set.seed（4）
teamA感谢您对browser（）函数的补充建议
set.seed(4)

teamA <- function(drives) {
  i <- 0
  score <- 0
  while (i < drives) {
    yards <- sample(0:100,1)
    if (yards >= 80) {
      score <- score + 7
    }
    else if (yards >= 60) {
      score <- score + 3
    }
    i <- i + 1
  }
    return(score)
}

teamA(5)
[1] 6