function histogram_features( feature, indexes,labels, varargin )
%%
if nargin<2
save_to_file=0;    
else
    save_to_file=1;
end;

global toolbox_root;

if save_to_file==1;
    figure('units','normalized','outerposition',[0 0 1 1],'Name', varargin{1});
else
    figure('units','normalized','outerposition',[0 0 1 1]);
end;
%% Histogram
ind=indexes;
dys = feature(ind{1})';% dyslektici
con = feature(ind{2})';% kontrolni
int_max = max(feature);
int_min = min(feature);
interval = int_min:(int_max-int_min)/20:int_max;
hist(dys,interval);
hold on
hist(con,interval);
 h = findobj(gca,'Type','patch');
    set(h(1),'FaceColor','b','EdgeColor','b','facealpha',0.2)
    set(h(2),'FaceColor','r','EdgeColor','r','facealpha',0.2)
    ylabel('Pocet deti','fontsize',14)
    xlabel('Hodnota priznaku','fontsize',14)
    legend('Dyslektici','Kontrolni skupina')



end

