x <- 1:100
y <- dexp(1:100)
plot(x, y)

#방법2
library("pracma")
trapz(x,y)

#방법1
library("flux")
auc(x,y)