求教R语言如何实现广义帕累托分布拟合。gdpFit等函数只输入高阈值，也就是只对上尾进行拟合。而我想对上下为都进行帕累托分布拟合，如图片所示（上下尾进行帕累托拟合，中间数据用其他方法），请问如何实现？