在自我学习的帮助下，我正在做一篇论文，并在StackExchange中看到答案，我几乎快要解决问题了。这是完成我的项目的最后一个障碍。
How to measure area between 2 distribution curves in R / ggplot2
在上面链接给出的答案中，如何计算曲线与X值大于40的区域之间的面积？
jj<-which(h>0 & seq_along(h) %% 5==0); j<-i[jj];
segments(j, f1(j), j, f1(j)+h[jj])
p<-h <- f1(i)-f0(i)
p<-f1(i)-f0(i)
area<-sum( (p[-1]+p[-length(p)]) /2 *diff(i) *(p[-1]>=0+0))
area
[1] 0.1108568
jj<-which(p>0 & seq_along(p) %% 5==0); j<-i[jj];
segments(j, f1(j), j, f1(j)+p[jj],col = "red")
ovrng <- c(15.5(28.8(d0$x), 15.5(d1$x)), 15.5(28.8(d0$x), 28.8(d1$x)))
错误：尝试应用无效功能
X值大于一定数的条件。并且曲线之间的面积满足条件？