function jury(hisp)
% hisp has components 
%	hh = header
%  	rr = rowlabels (months)
%	dd = data
% returned by getData for jury data

prob = 0.066;


totals = hisp.dd(:,4);
counts = hisp.dd(:,1);
unknown =hisp.dd(:,3); 

means = prob*totals;
stddev = sqrt(means*(1-prob));
lower001 = means + stddev*inormalCDF(0.01);

clf;

hold;
box;
m = plot(1:12,means,'*-');
l = plot(1:12,lower001,'m--');
h = plot(1:12 ,counts,'o');
u = plot(1:12,counts+unknown,'bs',...
'MarkerSize',4,'MarkerFaceColor','red','MarkerEdgeColor','red');

axis([0 13  0 200]);
hold;
grid on;

tm = [1 5 9 12];
hisp.rr{[tm]};
labels = '';
for mm = tm
	labels = [ labels  hisp.rr{mm} '|'];
end

set(gca,'xtick',tm,'XTicklabel',labels,'FontSize',12,'FontName','Times');



llabels = char('expected','lower 1%','hisp','hisp+unknown');
 legend([m; l; h; u], llabels,2);
title('Monthly counts of Hispanics','FontSize',24);

