generate_FigS3_1C.m

%% Supplementary Figure S2-3C
%
% parameter estimates extracted from ROI 1
% data format: subjects x runs x object trial t-1 x object trial t
%
% (c) M.M. Garvert 2016
%%
clear all
close all

% Load data from ROI2
load('ROI2.mat')                    % format: subj x run x obj trial t-1 x obj trial t
roi2 = squeeze(mean(roi2,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

%% Object-specific activity
% Average over all transitions to extract mean activity 
% Note: objects were never repeated!
obj_activity    = squeeze(sum(roi2,2)/6);   

figure; 
bar(1:7,mean(obj_activity),'facecolor',[0.5 0.5 0.5])
hold on 
errorbar(1:7,mean(obj_activity),std(obj_activity)/sqrt(23),'k','linestyle','none')
set(gca,'TickDir','out','fontsize', 15,'XTick',1:7)
xlabel('Object','fontsize', 15)
ylabel('Parameter estimates')
set(gcf,'color','w')
box off