library(cubature)
f <- function(xy) {
x <- xy[1]
y <- xy[2]
exp(-x^2 - y^2)
}
result <- adaptIntegrate(
f,
lowerLimit = c(-2, -2),
upperLimit = c(2, 2)
)
result$integral[1] 3.112271