If else语句以检查R中是否有负数

Question

这可能非常简单，但是我不确定为什么它不起作用。

对于输入向量b，我想编写一个函数，该函数首先检查b是否为负值。如果有，则该功能停止。否则，它将继续。什么功能都没关系。

类似这样的东西：

F <- function(b) {
  if (any(b) < 0) {
    warning("error")
  } else { 
    # the function I want to put in
  }
}

---

编辑：

有效的代码是

F <- function(b) {
  if (any(b < 0)) {
    stop("error")
  } else { 
    # the function I want to put in
  }
}