函数中的向量化参数

Question

我在R中创建了以下函数：

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

该函数运行正常，但是当我尝试对其进行操作或绘图时，出现以下错误：

  

在if（t <0）{：
  条件的长度> 1，并且只会使用第一个元素

正如其他帖子所建议的，我尝试使用if-else，但是我无法得到任何改善。

该如何解决？