如何计算R中分位数的平均值（从5％到90％）

Question

我有一个包含一定范围数字的数据集，我想在除去顶部和底部10％的数据后计算平均值。我该怎么做？