function juryCum(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); 

cumulative = totals;
cumcounts = counts;
cumunknown = unknown;

for mm = 2:12
	cumulative(mm) = totals(mm)+cumulative(mm-1);
	cumcounts(mm) = counts(mm)+cumcounts(mm-1);
	cumunknown(mm) = unknown(mm)+cumunknown(mm-1);
end

means = prob*cumulative;
stddev = sqrt(means*(1-prob));

levels = inormalCDF([.95 .99 .999]);

pct05 = inormalCDF(0.05); 
pct01 = inormalCDF(0.01); 
pct005 = inormalCDF(0.005); 
lower05 = means + stddev*pct05; 
lower01 = means + stddev*pct01; 
lower005 = means + stddev*pct005; 

clf;

hold;
box;
m = plot(1:12,means,'*-');
l = plot(1:12,lower005,'m--');
h = plot(1:12 ,cumcounts,'o');
% plot(1:12,lower01,'r--');
% plot(1:12,lower005,'b:');
u = plot(1:12,cumcounts+cumunknown,'bs',...
'MarkerSize',4,'MarkerFaceColor','red','MarkerEdgeColor','red');

axis([0 13  0 means(12)+100]);
hold;
grid on;

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

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



llabels = char('totals','lower 0.5%','hisp','hisp+unknown');
 legend([m; l; h; u], llabels,2);
title('Cumulative monthly counts of Hispanics','FontSize',24);
