function[] = summary(obj)

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

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

for s = 1:length(obj)
    display(sprintf('\tSubject: %s', obj(s).name));
    display(sprintf('\t%d sessions:', length(obj(s).sessions)));
    for p = 1:length(obj(s).sessions)
        display(sprintf('\tSession %d: %d trial(s)', p, length(obj(s).sessions(p).trials)));
    end
end