Wolfram Function Repository
Instantuse addon functions for the Wolfram Language
Function Repository Resource:
Find the mean of multivariate data after removing outermost points
ResourceFunction["MultivariateTrimmedMean"][matrix,f] gives the mean of the bivariate data matrix after dropping a fraction f of the outermost vectors. 
Multivariate trimmed mean of bivariate data:
In[1]:= 

Out[1]= 

Wolfram Language 11.3 (March 2018) or above
This work is licensed under a Creative Commons Attribution 4.0 International License