function counts=statin_summ(X,ifshow)
% counts=statin_summ(X,ifshow) summarizes a STAToolkit input
%
%  counts{category}(trial,site)=tally of counts 
%  ifshow=1 to show category-by-category summary (default)
%  ifshow=2 to show a min-max summary
%  ifshow=3 for both
%  
%   See also:  SWATCH2STATIN, TLS2SWATCH, STATIN_SUMMT.
%
if (nargin<=1) ifshow=1; end
%
if (ifshow>0)
    disp(sprintf('number of      sites: %3.0f',X.N));
    disp(sprintf('number of categories: %3.0f',X.M));
    disp('  categ   trials  counts on each channel')
    dstring=repmat('%7.0f ',1,X.N+1);
end
counts=cell(0);
trials=zeros(1,X.M);
for m=1:X.M
    trials(m)=size(X.categories(m,1).trials,1);
    counts_each=zeros(trials(m),X.N);
    for n=1:X.N
        for p=1:trials(m)
            counts_each(p,n)=length(X.categories(m,1).trials(p,n).list);
        end
    end
    counts{m}=counts_each;
    counts_site(m,:)=sum(counts_each,1);
    if (mod(ifshow,2)==1)
        disp(sprintf(cat(2,'%7.0f ',dstring),m,trials(m),counts_site(m,:)));
    end
end
if (mod(ifshow,2)==1)
    disp(sprintf(cat(2,'    all ',dstring),sum(trials),sum(counts_site)));
end
if (ifshow>=2)
    disp(sprintf(cat(2,'    min ',dstring),min(trials),min(counts_site)));
    disp(sprintf(cat(2,'    max ',dstring),max(trials),max(counts_site)));
    disp(sprintf(cat(2,'    med ',dstring),median(trials),median(counts_site)));   
end
return