R包: distr6

Question

fctry=function(s){(exp(-r/a)*(k+m-s))}

set.seed(10); r<- runif(100)
set.seed(20); k<- runif(100)
set.seed(30); m<- runif(100)
a=12*c(1:100)
distr6::Distribution$sup(fctry)

我试图计算函数"fctry“的上确界，但是出现了一个错误(尝试应用非函数)。

即使我尝试另一个函数，比如

fctry2=function(s){exp(s)-s}
distr6::Distribution$sup(fctry2)

这也不起作用。我可以请求帮助来解决这个问题吗？非常感谢。

Answer 1

感谢您使用distr6。这个错误是因为您没有正确地使用R6接口。我的建议是从distr6教程开始，看看是否有帮助，我建议启动here。

我认为您可能也没有正确地使用distr6。distr6是针对分布的，因此您尝试的方法是寻找分布的上确界，而不是抽象函数的上确界。相反，您可能需要optimize函数