p147685
/
CRE_RB_and_CCRE
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Added the first attempt at CCRE

This commit is contained in:
Renken 2020-02-20 18:14:55 +01:00
parent 2c7a9f90f0
commit baac9e2032
2 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
CREClass.m
View File

@ -104,7 +104,13 @@ classdef CREClass < handle
LogFC=log(FC); LogFC=log(FC);
LogFC(~isfinite(LogFC))=0;%the log of 0 is -inf. however in Fc.*logFc it should end up as 0. to avoid conflicts removing the -inf LogFC(~isfinite(LogFC))=0;%the log of 0 is -inf. however in Fc.*logFc it should end up as 0. to avoid conflicts removing the -inf
if any(isnan(FC));error('something went wrong');end %catch a posible error. if any(isnan(FC));error('something went wrong');end %catch a posible error.
obj.CRE=-transpose(dl)*(FC.*LogFC)./(transpose(dl)*FC); %CRE zografos if transpose(dl)*FC==0;
%if only one value in the most left bin in the distribution I may get a 0 divided by 0
%as the CRE of a delta function is 0, enforce this outcome
obj.CRE=0;
else
obj.CRE=-transpose(dl)*(FC.*LogFC)./(transpose(dl)*FC); %CRE zografos
end
%% get the RB %% get the RB
dl(FC>0.5)=0; %set the weight for all in the histogram to the left side (i.e. <p50) to 0 dl(FC>0.5)=0; %set the weight for all in the histogram to the left side (i.e. <p50) to 0
CRE_Med_Inf=-transpose(dl)*(FC.*LogFC)./(transpose(dl)*FC); %CRE zografos CRE_Med_Inf=-transpose(dl)*(FC.*LogFC)./(transpose(dl)*FC); %CRE zografos

14
TestCREClass.m
View File

@ -1,5 +1,5 @@
S=CREClass; S=CREClass;
S.Data=randn(100000,1); S.Data=randn(100,1);
S.nBin=(1000); S.nBin=(1000);
%% use histogram %% use histogram
S.UseHistProxy=true; S.UseHistProxy=true;
@ -13,10 +13,16 @@ std(S.Data)
%% multiply S %% multiply S
S.Data=100*S.Data; S.Data=100*S.Data;
S.UseHistProxy=true; S.UseHistProxy=true;
S.Calc S.Calc;
S S
std(S.Data) std(S.Data)
%% ones again the "new" way %% ones again the "new" way
S.UseHistProxy=false; S.UseHistProxy=false;
S.Calc S.Calc;
S S
%% Test CCRE class
CS=CCREClass;
CS.Data=randn(100,1);
CS.nBin=10;
CS.DataRef=randn(100,1);
CS.nBinRef=10;