Mean after trimming extreme values. The trim count for each end is
TrimmedMean[list, f]
TrimmedMean[list, {f1, f2}]
TrimmedMean[list]
TrimmedMean[dist, …]
TrimmedMean[{1, 2, 3, 100}, 0.25]
→ 5/2TrimmedMean[{-10, 1, 1, 1, 1, 20}, {0.2, 0}]
→ 24/5TrimmedMean[{-10, 1, 1, 1, 1, 20}]
→ 7/3