function s=max_column_info(labels,data,columns,scale)

if nargin < 3
    columns = 1:size(data,2);
end
if nargin < 4
	scale = 1;
end

qm=max(abs(data(:,columns)),[],1);
qmm=max(qm);
qmi=find(qm==qmm);

s=sprintf('%g (', qmm*scale);
for i=1:length(qmi)
    if i==1
        s = [s labels{columns(qmi(i))}];
    else
        s = [s ', ' labels{columns(qmi(i))}];
    end
end
s = [s ')'];

%s=sprintf('%g (%s)', qmm*scale, labels{columns(qmi(1))});
