如何修复此功能？ [关闭]

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