dstat x;r;max;min;mean;var;sd;md;med;mode;v;m;n
n{Rx
r{(max{x[n])-min{(x{x[|Hx])[1]
sd{(var{(+/(|x-nRmean{(+/x)%n)*2)%n-1)*0.5
md{(+/|x-nRmean)%n
med{0.5X+/x[(Sn%2),1+Dn%2]
} nomoXI(n>Rmode{((Rv)R(Im)$1)/v{x[(v=m{S/v{+/xJ.=x)/In])
mode{I0
nomo:'sample size ';n
'maximum ';max
'minimum ';min
'range ';r
'mean ';mean
'variance ';var
'standard deviation ';sd
'mean deviation ';md
'median ';med
'mode ';mode