Расчет площади между двумя кривыми

Я хотел бы вычислить площадь между синей линией и серой диагональной линией.

Я могу рассчитать площадь под синей линией как:

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

(благодаря Вычислить площадь под кривой в R )

Есть идеи, как найти область между синей и серой линиями?

Заранее спасибо EC