CRE_RB_and_CCRE/TestCREClass.m

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
figure(1);clf;hold on
figure(2);clf;
figure(3);clf;hold on;
A=randn(100);
B=A;
B(:)=A(randperm(numel(A)))
for k=-1:0.1:1
    CS=CCREClass;
    CS.Data=1*(1-abs(k))*A+k*B;
    CS.nBin=50;
    CS.DataRef=B;
    CS.nBinRef=500;
    CS.Calc;
    figure(1);
    plot(k,CS.CCRE,'o')
    plot(k,CS.CRE,'x');
    figure(2);
    scatter(CS.DataRef(:),CS.Data(:));
    figure(3);
    plot(k,CS.CCRE./CS.CRE,'d');
    pause(0.01)
end
CS