S=CREClass;
S.Data=randn(100,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
%% Test CCRE class
CS=CCREClass;
CS.Data=randn(100,1);
CS.nBin=10;
CS.DataRef=randn(100,1);
CS.nBinRef=10;