如何修复此功能？

Question

我正在练习创建一个功能。问题之一是：

“我们可以使用 指数公式
1-exp(-1/10000*t)，其中t是事件发生的时间。创建一个函数ans（t），该函数在时间t返回风险。

我正在使用以下命令：

function(t){ans(t)<-1-exp(-1/10000*t)return(ans(t))}

但是它给出了错误的答案。有人可以帮我理解这一点吗？

Answer 1

定义函数的正确格式是：

ans<-function(t){
   answer<-1-exp(-1/10000*t)
   return(answer)
}

ans(1)
#[1] 9.9995e-05