R语言中怎么求二种分布密度函数的重合部分的面积？

定义一个函数， $h(x)=\min(f_1(x),f_2(x))$ ，其中 $$f_1$$ 和 $$f_2$$ 是你的两个密度函数，然后算 $$h(x)$$ 的定积分就可以了。