function [ output_args ] = histFig( data, dataLabel )
    figure
    hist(data,20);
    xlabel(dataLabel);
    h = findobj(gca,'Type','patch');
   
    maxCount = get(gca,'Ylim');
      ylim([maxCount(1) maxCount(2)+50]);
   %ylim([3 10]);
   q = quantile(data, [.05 .5 .95]);
   median = q(2);
   centile5 = q(1);
   centile95 = q(3);
   meanVal = mean(data);
   rms = std(data);
   maxCount = maxCount(2)-2;
   
    text(min(data),maxCount, sprintf('mean = %.2f ms\nrms = %.2f ms\nmedian = %.2f ms\n5th centile = %.2f ms\n95th centile = %.2f ms\n',  meanVal,rms,median,centile5, centile95));
   

end

