integrand <-function(x) {exp(x^2+x)}
integrate(integrand, lower = 0, upper = 100)

错误提示是：
Error in integrate(integrand, lower = 0, upper = 100) :
  non-finite function value