Векторизованные аргументы в функции

Question

Я создал следующую функцию в R:

f<-function(t) {
  if (t<0){
    f<-0
    return(f)
  } else {
    f<-(2*t)/((1+t^2)^2)
    return(f)
  }
}

Функция работает нормально, но когда я пытаюсь работать с ней или построить ее, я получаю следующую ошибку:

В случае, если (t <0) {: <br>условие имеет длину> 1, и будет использоваться только первый элемент

Я пытался использовать if-else, как некоторые другиепост предложил, но я не могу получить никакого улучшения.

Что я могу сделать, чтобы это исправить?