function[] = summary(obj, level)
%% summary of PDSubject at a certain level
%% level 0 : global info
%% level 1 : more detail
if nargin ==1
    level =0;
end

display(sprintf('Summary for %d subjects:', length(obj)));

display(repmat('_',1,50));

for s = 1:length(obj)
    display(sprintf('Subject: %s (%d sessions)', obj(s).name, length(obj(s).sessions)));
    for p = 1:length(obj(s).sessions)
        display(sprintf('\to) Session %d: %d trial(s)', p, length(obj(s).sessions(p).trials)));
        
        if (level > 0)
           
            for t = 1:length(obj(s).sessions(p).trials)
                
                display(sprintf('\t\t*) trial %3d :\t%10d samples', t, length(obj(s).sessions(p).trials(t).data.uncorrected.raw)));
            end
        end
    end
                    
end