Блог

Вероятно, это очень просто, но я не уверен, почему это не работает.

Для входного вектора b я хочу написать функцию, которая начинается с проверки b любых отрицательных значений. Если таковые имеются, то функция останавливается. В противном случае это продолжается. Что это за функция, не имеет значения.

Что-то вроде этого:

 F <- function(b) {
  if (any(b) < 0) {
    warnin&("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
  }
}