function [moy,dev,cv,cvp] = calcStatYm(Y,m,p);
%   function [moy,dev,cv,cvp] = calcStatYm(Y,m,p);
%
%   Compute the mean, standard deviation, and coeeficients of 
%       variation of distances set
%
%   Y = data set of size (M,1)
%   moy = scalar for the mean 
%   dev = scalar for the standard deviation
%   cv  = scalar for the coefficient of variation
%   cvp = scalar for the ratio of coeffient of variation and data dimension
%
%   Write by : DD
%       date : 2001/10/17

Ym = Y.^(1/(m-1));
moy = mean(Ym);
dev = std(Ym);
cv  = dev/moy;
cvp = cv/p;
return %% end of function calcStatYm.m