数据符合广义帕累托分布，在s-plus里可以直接通过：
module(finmetrics)
gpd(data,10)#10在这里是阀值
问题：这样估计的是上尾参数，即大于阀值的分布
如果我想进行下尾的估计，即小于阀值的分布，应该怎么办，烦请各位高手指点，叩谢！！！