function pprz=bar_graph_ppr(preinduc, postinduc)

hy=[25 50 100 200 400]

successes_only=1
ao_not_ba=1
thresh=4

pprz_bef=[]
pprz_af=[]

if ao_not_ba
    numerator=4,denominator=3
else
    numerator=5,denominator=4
end

for i=1:5
    top_bef=preinduc(numerator,find(preinduc(1,:)==hy(i))); 
    bott_bef=preinduc(denominator,find(preinduc(1,:)==hy(i))); 
    
    top_af=postinduc(numerator,find(postinduc(1,:)==hy(i)));
    bott_af=postinduc(denominator,find(postinduc(1,:)==hy(i)));
    
    
    if successes_only
        preinducs_removed=find(top_bef<thresh | bott_bef<thresh);
        top_bef(preinducs_removed)=[];
        bott_bef(preinducs_removed)=[];
        
        postinducs_removed=find(top_af<thresh | bott_af<thresh);
        top_af(postinducs_removed)=[];
        bott_af(postinducs_removed)=[];
    end
    
    pprz_bef=[pprz_bef mean(top_bef./bott_bef)];
    pprz_af=[pprz_af mean(top_af./bott_af)];
end

pprz=[pprz_bef;pprz_af];