function plotFICurve(fi, fi_std, contrasts, filename)

figure()
set(gcf, 'paperunits', 'centimeters', 'papersize', [10 10], ...
    'paperposition', [0.0 0.0 10, 10], 'color', 'white')

errorbar(contrasts, fi, fi_std, 'o', 'displayname', 'onset response')
xlim([-20, 20])
ylim([0, 600])
xlabel('stimulus contrast [%]', 'fontsize', 11)
ylabel('firing rate [Hz]', 'fontsize', 11)
box('off')

if ~isempty(filename) 
    saveas(gcf, filename, 'pdf')
end