x <- 1:100 y <- dexp(1:100) plot(x, y) #방법2 library("pracma") trapz(x,y) #방법1 library("flux") auc(x,y)