S=CREClass;
S.Data=randn(100000,1);
S.nBin=(1000);
%% use histogram
S.UseHistProxy=true;
S.Calc;
S
%% Use my aproximation
S.UseHistProxy=false;
S.Calc;
S
std(S.Data)
%% multiply S
S.Data=100*S.Data;
S.UseHistProxy=true;
S.Calc
S
std(S.Data)
%% ones again the "new" way
S.UseHistProxy=false;
S.Calc
S