nbt_DFA

% nbt_DFA(NumChannels) - Creates a DFA biomarker object for 'NumSubjects' number of
% subjects
%
% Usage:
%   >>  DFAobject = DFA( NumSubjects, NumChannels);
%
% Inputs:
%   NumChannels - Number of Channels
%
% Outputs:
%   DFAobject     - DFA Biomarker object
%
% Example:
%
% References:
%
%
% See also:
% NBT_SCALING_DFA

%------------------------------------------------------------------------------------
% Originally created by Simon-Shlomo Poil (2008), see NBT website (http://www.nbtwiki.net) 
%------------------------------------------------------------------------------------


classdef nbt_DFA < nbt_Biomarker
    properties
        DFA_y
        DFA_x
        FitInterval
        CalcInterval
        Overlap
        res_logbin
    end
    methods
        function DFAobject= nbt_DFA(NumChannels)
            if nargin == 0
                NumChannels = 1;
            end
            %% Define DFA_x and DFA_y fields
            DFAobject.DFA_y  = cell(NumChannels, 1);
            DFAobject.DFA_x  = [];
            %% Define DFA exponent field
            DFAobject.MarkerValues = nan(NumChannels, 1);
            %% Define fields for additional information
            DFAobject.PrimaryBiomarker = 'MarkerValues';
            DFAobject.Biomarkers = {'MarkerValues'};
            DFAobject.FitInterval = nan(2,1);
            DFAobject.CalcInterval = nan(2,1);
            DFAobject.Overlap = NaN;
            DFAobject.Condition = NaN;
            DFAobject.DateLastUpdate = NaN;
            DFAobject.Fs = NaN;
            DFAobject.res_logbin = 10;
        end
        
        function LastUpdate=GetLog(DFAobject)
            
            LastUpdate = DFAobject.LastUpdate;
            disp('The DFAobject was last updated')
            disp(LastUpdate)
        end
        
        function plot(DFAobject, ChannelID, DFA_Plot)
            if ~ishandle(DFA_Plot)		%see if any figure handle is set
                figure(DFA_Plot)
                DFA_Plot = axes;
            end
            
            DFA_x = DFAobject.DFA_x;
            DFA_y = DFAobject.DFA_y(ChannelID,1);
            Fs = DFAobject.Fs;
            disp('Plotting Channel')
            disp(ChannelID)
            try
                axes(DFA_Plot)
            catch
                figure(DFA_Plot)
                axes(gca)
            end
            hold on
            plot(log10(DFA_x(DFA_SmallTimeFit_LogSample:DFA_LargeTimeFit_LogSample)/Fs),log10(DFA_y(DFA_SmallTimeFit_LogSample:DFA_LargeTimeFit_LogSample)),'ro')
            delete(findobj('Type','Line','-not','Marker','o')) % delete any redundant lines
            LineHandle=lsline;
            try % delete any fits to the black points if the exist
                BlackHandle=findobj('Color','k');
                for i=1:length(BlackHandle)
                    delete(LineHandle(LineHandle == BlackHandle(i)))
                end
            catch
            end
            plot(log10(DFA_x(DFA_SmallTime_LogSample:DFA_LargeTime_LogSample)/Fs),log10(DFA_y(DFA_SmallTime_LogSample:DFA_LargeTime_LogSample)),'k.')
            grid on
            zoom on
            axis([log10(min(DFA_x/Fs))-0.1 log10(max(DFA_x/Fs))+0.1 log10(min(DFA_y(3:end)))-0.1 log10(max(DFA_y))+0.1])
            xlabel('log_{10}(time), [Seconds]','Fontsize',12)
            ylabel('log_{10} F(time)','Fontsize',12)
            title(['DFA-exp=', num2str(DFAobject.DFAexp(ChannelID,SubjectID))],'Fontsize',12)
        end
        
    end
end