networths = [100360, 109770, 96860, 97860, 108930,....
            124330, 101300, 112710,106740, 120170];
        
m = mean(networths); %gives the mean
sd = std(networths); %gives the standard deviation
v = var(networths);

bnetworths = [networths, 1e9];  %1e9 = 1 billion (1x10^9)
bm = mean(bnetworths);  %mean of the networths with billionaire
bsd = std(bnetworths);  %standard deviation with billionaire
bv = var(bnetworths);

md = median(networths);     %median of the networths
bmd = median(bnetworths);   %median of the networths with billionaire

pcts = prctile(networths, [25 50 75]);
bpcts = prctile(bnetworths, [25 50 75]);
%this gives the specified percentiles: first, second and third quartiles

interqtl = iqr(networths);      %gives inter-quartile range of networths
binterqtl = iqr(bnetworths);    %gives inter-quartile range of networths with billionaire

