% //This software is licensed under the BSD 3 Clause license: http://opensource.org/licenses/BSD-3-Clause 
% 
% 
% //Copyright (c) 2013, University of Oxford
% //All rights reserved.
% 
% //Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met:
% 
% //Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer.
% //Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution.
% //Neither the name of the University of Oxford nor the names of its contributors may be used to endorse or promote products derived from this software without specific prior written permission.
% //THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
%
%   The method implemented in this file has been patented by their original
%   authors. Commercial use of this code is thus strongly not
%   recocomended.
%
% //Authors: 	Gari D Clifford - 
% //            Roberta Colloca -
% //			Julien Oster	-

function [OriginCount,IrrEv,PACEv] = metrics( dRR )

%  This function:

%  1) Takes the dRR intervals series and build a 2D
%     histogram of {dRR(i),dRR(i-1)};
%  2) The histogram is marked with 13 segments;
%  3) The number of non empty bins ( BinCountX=BPX ) and the
%     number of {dRR(i),dRR(i-1)} ( PointCountX=PCX ) are computed, 
%     for each segment;
%  4) BPX and PCX are used to extract the metrics: IrregularityEvidence(IrrEv)
%     and PACEvidence (PACEv)
%
%  Detailed explanation
%  INPUTS
%  dRR:  Delta RR series (column vector)
%
%  OUTPUTS
%  OriginCount:  Number of points in the bin containing the Origin
%  IrrEv:        Irregularity Evidence
%  PACEv:        PAC Evidence
%
%  The 2D histogram of the {dRR(i),dRR(i-1)} values is built using 30*30
%  bins corresponding to a binSize=0.04 s:
%       x axis variable -> actual dRR interval
%       y axis variable -> previous dRR interval
%
%  The histogram is marked with 13 segments (0,..,12).
%  For each segment:
%
%      BinCountX=  number of non empty bins in the Xth segment
%      PointCountX= number of {dRR(i),dRR(i-1)} in the Xth segment
%
%  are computed.


% dRR={dRR(i),dRR(i-1)}
dRR=[dRR(2:length(dRR),1) dRR(1:length(dRR)-1,1)];
% COMPUTE OriginCount
OCmask=0.02;
% Pone a 0 los que son mayores a umbral (OCmask) de dRR y luego hace la
% suma de los elementos por filas.
os=sum(abs(dRR)<=OCmask,2); 
OriginCount=sum(os==2); % Cuenta el totoal que son igual a 2, los dos RR cumplen requisito

% DELETE OUTLIERS |dRR|>=1.5
OLmask=1.5;  % Umbral para outliers
dRRnew=[];
j=1;
% Bucle que recorre por filas dRR y si es mayor o igual al umbral la suma
% por filas descarta el RR (outlier)
for i=1:size(dRR,1)
    if sum(abs(dRR(i,:))>=OLmask)==0
        dRRnew(j,:)=dRR(i,:);
        j=j+1;
    end
end
if size(dRRnew)==0
    dRRnew = [0 0];
end

% BUILD HISTOGRAM

% Specify bin centers of the histogram
bin_c=-0.58:0.04:0.58;

% Three dimensional histogram of bivariate data 
Z = hist3(dRRnew, {bin_c bin_c});

% COMPUTE POINT COUNT ZERO
%O1=sum(sum(Z(14,15:16)));
%O2=sum(sum(Z(15:16,14:17)));
%O3=sum(sum(Z(17,15:16)));
%PC0=O1+O2+O3;

% Clear SegmentZero
Z(14,15:16)=0;
Z(15:16,14:17)=0;
Z(17,15:16)=0;

% [X,Y]=meshgrid(-0.58:0.04:0.58, -0.58:0.04:0.58);
% surf(X,Y, Z);
% axis tight
% xlabel('dRR(i-1)')
% ylabel('dRR(i)')

%COMPUTE BinCount12 
%COMPUTE PointCount12 

% Z2 contains all the bins belonging to the II quadrant of Z
Z2=Z(16:30,16:30);
[BC12,PC12,sZ2] = BPcount( Z2 );
Z(16:30,16:30)=sZ2;

%COMPUTE BinCount11 
%COMPUTE PointCount11 

%Z3 cointains points belonging to the III quadrant of Z
Z3=Z(16:30,1:15);
Z3=fliplr(Z3);
[BC11,PC11,sZ3] = BPcount( Z3 ); 
Z(16:30,1:15)=fliplr(sZ3);

%COMPUTE BinCount10 
%COMPUTE PointCount10  

%Z4 cointains points belonging to the IV quadrant of Z
Z4=Z(1:15,1:15);
[BC10,PC10,sZ4] = BPcount( Z4 ); 
Z(1:15,1:15)=sZ4;

%COMPUTE BinCount9
%COMPUTE PointCount9
 
%Z1 cointains points belonging to the I quadrant of Z
Z1=Z(1:15,16:30);
Z1=fliplr(Z1);
[BC9,PC9,sZ1] = BPcount( Z1 );
Z(1:15,16:30)=fliplr(sZ1);

%COMPUTE BinCount5
BC5=sum(sum(Z(1:15,14:17)~=0));
%COMPUTE PointCount5
PC5=sum(sum(Z(1:15,14:17)));

%COMPUTE BinCount7
BC7=sum(sum(Z(16:30,14:17)~=0));
%COMPUTE PointCount7
PC7=sum(sum(Z(16:30,14:17)));

%COMPUTE BinCount6
BC6=sum(sum(Z(14:17,1:15)~=0));
%Compute PointCount6
PC6=sum(sum(Z(14:17,1:15)));

%COMPUTE BinCount8
BC8=sum(sum(Z(14:17,16:30)~=0));
%COMPUTE PointCount8
PC8=sum(sum(Z(14:17,16:30)));

% CLEAR SEGMENTS 5, 6, 7, 8

% Clear segments 6 and 8
Z(14:17,:)=0;
%Clear segments 5 and 7
Z(:,14:17)=0;

% COMPUTE BinCount2
BC2=sum(sum(Z(1:13,1:13)~=0));
% COMPUTE PointCount2
PC2=sum(sum(Z(1:13,1:13)));

% COMPUTE BinCount1
BC1=sum(sum(Z(1:13,18:30)~=0));
% COMPUTE PointCount1
PC1=sum(sum(Z(1:13,18:30)));

% COMPUTE BinCount3
BC3=sum(sum(Z(18:30,1:13)~=0));
%COMPUTE PointCount3
PC3=sum(sum(Z(18:30,1:13)));

% COMPUTE BinCount4
BC4=sum(sum(Z(18:30,18:30)~=0));
% COMPUTE PointCount4
PC4=sum(sum(Z(18:30,18:30)));


% COMPUTE IrregularityEvidence
IrrEv=BC1+BC2+BC3+BC4+...
           BC5+BC6+BC7+BC8+...
                BC9+BC10+BC11+BC12;

% COMPUTE PACEvidence
PACEv=(PC1-BC1)+(PC2-BC2)+(PC3-BC3)+(PC4-BC4)+...
                     (PC5-BC5)+(PC6-BC6)+(PC10-BC10)-...
                         (PC7-BC7)-(PC8-BC8)-(PC12-BC12);
                     

 end