Approximate the area under two curves in R

Let’s say we have two curves, there is some overlap between them, and we want to calculate the amount of area of overlap.