在R中使用uniroot与集成

Question

你好我想要一些关于如何在R中使用一些函数的帮助 我必须找到满足我方程的参数值。我的等式是不可或缺的。所以我必须找到一种方法来组合这两个功能。 a的值必须小于5

INTEGRAND<- function(x,a){exp(-x*a)*(1-exp(-sqrt(a)) }
INTEGRAL <- function(a){(integrate(INTEGRAND,lower=0, upper=Inf))$value - 1}
root<- uniroot(INTEGRAL,interval=c(0.01,4.99))

但是要计算积分，我们需要'a'的值，但是我正在寻找的是。