[num, txt, raw]=xlsread('pizzasize.xls');   %read from xls file

numdata=size(num, 1);
allsizes = zeros(numdata, 1);   %initialize size array
for i=1:numdata
    allsizes(i) = num(i, 5);
end

%% Change default text fonts for figure
set(0, 'DefaultAxesFontName', 'Times New Roman');
set(0, 'DefaultAxesFontSize', 18);

figure(1);                      %new a figure with handle '1'
hist(allsizes, 25);             %se5 25 bins with even intervals
title('Histogram of pizza diameters, in inches');
axis tight;                     %sets the axis limits to the range of the data.