如何通过常量来扩展我的功能

Question

所以我创建了5000个间隔的函数，我想将其缩放0.02

N=5000
T=5
t0=0
t<-seq(t0, T, length = N + 1)
B<-function(t){
    (1-exp(-0.03*(5-t)))/0.03
    }

W<-0.02*B
Error in 0.02 * B : non-numeric argument to binary operator

然而，我收到此错误。有什么方法可以扩展我的功能吗？