generate_FigS2_2E.m

%% Figure 2 - figure supplement 2E
%
% parameter estimates extracted from subgenual ROI
% data format: subjects x runs x object trial t-1 x object trial t
%
%%
clear all
close all

% Load data from ROI1
load('subgenual.mat')                       % format: subj x run x obj trial t-1 x obj trial t
subgenual = squeeze(mean(subgenual,2));     % average across experimental runs

%% Generate graph
% dist: distance between object 
dist = generate_graph('off');               % 'on': plot graph structure, 'off': do not plot graph structure

%% Figure: distance 2 vs. distance 3
for d = 1:3
    distance_effect(:,d) = mean(subgenual(:,dist==d),2);   
end

% Plot distance 2 and 3
figure; bar(2:3,mean(distance_effect(:,2:3)),'facecolor',[0.5 0.5 0.5],'edgecolor','none');
hold on 
errorbar(2:3,mean(distance_effect(:,2:3)),std(distance_effect(:,2:3))/sqrt(23),'k','linestyle','none')
set(gcf,'color','w')
box off
set(gca,'TickDir','out','XTick',1:3,'fontsize', 15)
xlabel('Distance','fontsize', 15)
ylabel('Effect size','fontsize',15)