R eğrisinin altındaki alan

r eğrisinin altındaki alan

library(zoo)

x <- 1:10
y <- 3*x+25
id <- order(x)

AUC <- sum(diff(x[id])*rollmean(y[id],2))