function double_errorbar_plotter_dwn(c_m,kellers)
%description: scatterplots points with errorbars for both axes
%called by: analyze_and_plot_mean_responses
%calls: no custom functions
%note:
%code confirmed date: oct 8, 2009

markersize=10;
markerlinewidth=1.5;
errorlinewidth=2;

hold on
if size(c_m,2)==4 %when the upper and lower limits on each point are symmetrical
    for expt=1:size(c_m,1)
        plot(c_m(expt,1),c_m(expt,3),'s','markersize',markersize,'linewidth',markerlinewidth,'markerfacecolor',kellers(expt,:),'markeredgecolor',kellers(expt,:))
        plot([c_m(expt,1)-c_m(expt,2) c_m(expt,1)+c_m(expt,2)],[c_m(expt,3) c_m(expt,3)],'linewidth',errorlinewidth,'color',kellers(expt,:))
        plot([c_m(expt,1) c_m(expt,1)],[c_m(expt,3)-c_m(expt,4) c_m(expt,3)+c_m(expt,4)],'linewidth',errorlinewidth,'color',kellers(expt,:))
    end
    xlabel('Value preinduction (fC or pA)')
	ylabel('Value postinduction (fC or pA)')
elseif size(c_m,2)==6 %when errorbars are not symmetrical;  used with the binomial values
    for expt=1:size(c_m,1)
        plot(c_m(expt,1),c_m(expt,4),'s','markersize',markersize,'linewidth',markerlinewidth,'markerfacecolor',kellers(expt,:),'markeredgecolor',kellers(expt,:))
        plot([c_m(expt,3) c_m(expt,2)],[c_m(expt,4) c_m(expt,4)],'linewidth',errorlinewidth,'color',kellers(expt,:))
        plot([c_m(expt,1) c_m(expt,1)],[c_m(expt,6) c_m(expt,5)],'linewidth',errorlinewidth,'color',kellers(expt,:))
    end
    axis([0 1 0 1])
	set(gca,'xtick',[0 1]),set(gca,'ytick',[0 1])
	xlabel('Proportion success preinduction')
	ylabel('Proportion success postinduction')
end