% W badaniach nad cholesterolem u ludzi stwierdzono, 
% ¿e w grupie 135 badanych z wysokim poziomem cholesterolu 
% 10 osób przesz³o zawa³ serca. 
% Pytanie: Na ile pewni mo¿emy byæ, ¿e je¶li we¼miemy du¿o wiêksz± 
% grupê pod uwagê to proporcja zawa³owców bêdzie podobna? 
% Obejrzeæ histogram. Jakie wnioski?

p0=10/135;
u=[zeros(1,125) ones(1,10)];
N=length(u);
N_rep=1e4;
p_rep=zeros(1,N_rep);
for i=1:N_rep
    x=randsample(u,N,true);
    p(i)=sum(x)/N;
end
gr=prctile(p,[2.5 97.5]);
disp(sprintf('proporcja i jej 95 proc przedzial ufnosci[%.2f %.2f %.2f]',gr(1),p0,gr(2)));
