function[text] = info(obj)

text{1} = sprintf('Information on PD Experiment: %s\n', obj.name);
text{2} = repmat('-', 1, 100);
text{3} = sprintf('Contains %2d subjects', length(obj.subjects));

for s = 1:length(obj.subjects)
    
    subj = obj.subjects(s);
    text{end+1} = sprintf('\t*) Subject %d : %d sessions', s, length(subj.sessions));
    
    for sess = 1:length(subj.sessions);
        session = subj.sessions(sess);
        text{end+1} = sprintf('\t\t*) Session %d : ', s);
        text{end+1} = sprintf('\t\t\to) - %d trials', length(session.trials));
        text{end+1} = sprintf('\t\t\to) - filename : %s', session.datafile);            
    end
end

if nargin == 0
    display(text)
end