function make_stats_lin_discrimMOTION(param, ss_values)
% simple function to plot the aerage of all classifications across subjects
if nargin<1
param.ABS_or_Tvalue = 'ABS';
param.n_voxels = 50;
param.save_jpg = 0;
param.filestring = ['lin_discrim' '_' param.ABS_or_Tvalue '_' int2str(param.n_voxels)];
param.filestring_results_total = ['prediction_results'];
param.basedir= ['D:\V1load_motion\'];
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
param.subjects = {'Williamson_Kirk', 'JALKANEN_Lauri', 'Bays_Paul', 'Schulvinik_Marieke'};
param.ROIs = {'V1', 'V2', 'V3', 'V123'};
param.localizers = {'in', 'out'};
param.conditions = {'low', 'high', 'left', 'right'};

ss_values = 1:length(param.subjects);
end
g_values = 1:length(param.ROIs);     % ROIS
loc_values = 1:length(param.localizers);
cond_values = 1:length(param.conditions);

load([param.basedir '_prediction\' param.filestring_results_total]);


for loc = loc_values
figure,
hold on
    res = cell(length(param.ROIs),length(param.conditions));
    for cond = cond_values
        for g = g_values
        % title([num2str(subjtodo) '-' param.ROIs{g} '-' param.localizers{loc} '-' param.conditions(cond)],'FontSize',12);
            m_all = []; s_all = [];
            for subjtodo= ss_values

                m = result_total{subjtodo,loc}{g,cond}{1,1};
                s = result_total{subjtodo,loc}{g,cond}{1,2};

                m_all = [m_all m'];
                s_all = [s_all s'];
            end
           hold on
                mean_all = mean(m_all');
                std_all = mean(s_all')./length(param.subjects);

                set(gca, 'Ylim', [0.45,0.75]);
                text(3.4,0.525,'Chance','EdgeColor','k','FontSize',10);
                text(3.6,0.88,'E-Bar: SEM','EdgeColor','k','FontSize',10);
                set(gca, 'YGrid','on')
                if cond == 1
                    subplot(2,2,g);errorbar(1:param.n_voxels,mean_all(1:param.n_voxels),std_all(1:param.n_voxels),'b');whitebg
                elseif cond == 2
                    subplot(2,2,g);errorbar(1:param.n_voxels,mean_all(1:param.n_voxels),std_all(1:param.n_voxels),'r');whitebg
                elseif cond == 3
                    subplot(2,2,g);errorbar(1:param.n_voxels,mean_all(1:param.n_voxels),std_all(1:param.n_voxels),'y');whitebg
                elseif cond == 4
                    subplot(2,2,g);errorbar(1:param.n_voxels,mean_all(1:param.n_voxels),std_all(1:param.n_voxels),'c');whitebg
                end
        end
    end
    legend('low Motion', 'high Motion','lowR vs highR', 'lowL vs highL',4);
    hold off
end

        if param.save_jpg ==1
            saveas(gcf,[param.basedir 'mean_all_lin_disc_' param.ABS_or_Tvalue '_' int2str(param.n_voxels) '.jpg']);
        end

Published with MATLAB® 7.1