我补充一个示例吧
g <- function(x){
integrate(function(t){-sqrt(t)*exp(-t^2)},lower = 0,upper = x)$value
# integrate(function(x){sqrt(x)*exp(-x^2)},lower = 0,upper = x)$value # 这样也行
}
f <- function(x){
integrate(function(s){g(s)*exp(-s)},lower = 0,upper = x)$value
}
再
optimize(f,c(0,100),maximum = FALSE)
函数是临时随便造的,主要是表达嵌套怎么做