Variance after winsorizing extreme values — the lowest and highest `Floor[f n]`
WinsorizedVariance[list, f]
WinsorizedVariance[list, {f1, f2}]
WinsorizedVariance[list]
WinsorizedVariance[dist, …]
WinsorizedVariance[{1, 2, 3, 4, 5, 6, 7, 8, 9, 1000}, {0.1, 0.3}]
→ 40/9WinsorizedVariance[{1, 2, 3}, 1/3]
→ 0WinsorizedVariance[{{1, 2}, {3, 4}, {5, 100}}, 1/3]
→ {0, 0}