# ordinary decriptive statistics
# can call with or without row labels

function [info, clabels] = dstats(x, rlabels);

info = [mean(x);std(x); min(x); max(x)]; 
info = info';

clabels = char("mean","st. dev.","min","max");

if nargin == 1 prettyprint_c(info, clabels); endif
if nargin == 2 prettyprint(info, rlabels, clabels); endif
 

endfunction