พื้นที่อยู่ใต้เส้นโค้งอยู่ในสเปนเซอร์รี้ดครับ r

พื้นที่อยู่ใต้เส้นโค้งอยู่ในสเปนเซอร์รี้ดครับ r

library(zoo)

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

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