SVMCrossVal.git

@@ -12,6 +12,7 @@ frameEnd          = frameshift.frameShiftEnd;

 nClasses          = numel(header.classDef.labelCells);

 decodePerformance = decode.decodePerformance;

 psth              = decode.rawTimeCourse;

+ert               = psth; % Rename to EventRelatedTimeline

 SubjectID         = subjectData;

 nSubjects         = size(SubjectID,2);

@@ -29,7 +32,13 @@ nTrials           = getNTrials(psth);

 plottime= tic;

     switch type

         case 'psth'

-            plotPSTH(psth,psthStart,psthEnd);  

+            plotPSTH(ert,psthStart,psthEnd);  

+            

+        case 'trajectory'

+            plotTrajectory(ert,psthStart,psthEnd);

+

+        case 'trajectory3'

+            plotTrajectory3(ert);

         case 'simple'

             plotDecodePerformanceWithSE(frameStart,frameEnd,decodePerformance)

@@ -129,6 +138,115 @@ PSTH_AXIS_MAX = 2;

 end

+function plotTrajectory(psth,psthStart,psthEnd)

+% ERTA_AXIS_MAX = 2;

+% ERTA_AXIS_MIN = 2;

+% ERTB_AXIS_MAX = 2;

+% ERTB_AXIS_MIN = 2;

+

+    if (mod(size(psth,2),2)==0) %% TODO insufficient test!!!

+    hold on;

+%     grid on;

+    for voxel = 1:2:size(psth,2)

+        for label = 1:size(psth{voxel},2)

+            ertDataA = [];

+            for timepoint = 1:size(psth{voxel}{label},2)

+                ertDataA = nanmean(psth{voxel}{label}); % mean ueber die trials

+            end

+%               ERTA_AXIS_MAX = max(ERTA_AXIS_MAX,nanmax(ertDataA));

+%               ERTA_AXIS_MIN = min(ERTA_AXIS_MIN,nanmin(ertDataA));

+

+            voxel2 = voxel+1;

+            ertDataB = [];

+            for timepoint = 1:size(psth{voxel2}{label},2)

+                ertDataB = nanmean(psth{voxel2}{label}); % mean ueber die trials

+            end

+%               ERTB_AXIS_MAX = max(ERTB_AXIS_MAX,nanmax(ertDataB));

+%               ERTB_AXIS_MIN = min(ERTB_AXIS_MIN,nanmin(ertDataB));

+              

+            plot3(psthStart:psthEnd,ertDataA,ertDataB,['.', colorChooser(label),'-']);

+        end

+    end

+%     axis([psthStart psthEnd ERTA_AXIS_MIN ERTA_AXIS_MAX ERTB_AXIS_MIN ERTB_AXIS_MAX])

+    axis tight;

+    view(90,0);

+    xlabel('time [sec]');

+    ylabel('fMRI-signal change [%] A');

+    zlabel('fMRI-signal change [%] B');

+    

+    hold off

+    

+    

+    else 

+        display('unsuitable # of voxel/roi!');

+    end

+

+end

+

+function plotTrajectory3(ert)

+    

+    if (mod(size(ert,2),3)~=0)

+        display('unsuitable # of voxel/roi!');

+        return

+    end

+        

+    nSubjects = size(ert,2)/3;

+    

+%     nLabel = size(ert{1},2);  % this is sane, because the program produces only such things.

+    subplot(2,1,1);

+    hold on;

+%     for label = 1:nLabel 

+        ertDataA = ertDataMatrix(ert,1,1,nSubjects);

+        ertDataB = ertDataMatrix(ert,1,2,nSubjects);

+        ertDataC = ertDataMatrix(ert,1,3,nSubjects);

+

+        plot3(ertDataA,ertDataB,ertDataC,['.', colorChooser(1),'-']);

+

+        ertDataA2 = ertDataMatrix(ert,2,1,nSubjects);

+        ertDataB2 = ertDataMatrix(ert,2,2,nSubjects);

+        ertDataC2 = ertDataMatrix(ert,2,3,nSubjects);

+

+        plot3(ertDataA2,ertDataB2,ertDataC2,['.', colorChooser(2),'-']);

+

+        %     end

+        

+        for a = 1:length(ertDataA)

+            line([ertDataA(a) ertDataA2(a)],...

+                [ertDataB(a) ertDataB2(a)],...

+                [ertDataC(a) ertDataC2(a)],...

+                'color',[.8/a 0 1-.8/a]);

+            

+            d(a) = sqrt( (ertDataA(a)-ertDataA2(a))^2 +...

+            (ertDataB(a)-ertDataB2(a))^2 + ...

+            (ertDataC(a)-ertDataC2(a))^2);

+        end

+

+    axis tight;

+%     view(90,0);

+    xlabel('fMRI-signal change [%] A');

+    ylabel('fMRI-signal change [%] B');

+    zlabel('fMRI-signal change [%] C');

+    

+    hold off

+

+    subplot(2,1,2);

+        

+    plot(d);

+    

+end

+

+function ertDataMatrix = ertDataMatrix(ert,label,roiID,nSubjects)

+    ertDataMatrix = [];

+    for subject = 1:nSubjects

+        voxel = roiID*subject;

+        for timepoint = 1:size(ert{voxel}{label},2)

+            ertDataMatrix = [ertDataMatrix ; nanmean(ert{voxel}{label})]; % mean ueber die trials

+        end

+    end

+    ertDataMatrix = nanmean(ertDataMatrix,1);

+end

+

+

 function color = colorChooser(n)

     switch (mod(n,8))

     case 0

@@ -436,15 +436,21 @@ end

 function model = createVisualStepPanel(model,parent)

-    grid_h = 0.25;

+    grid_h = 0.125;

     grid_w = 0.5;

-    plot_grid = cell([3 3]);

+    plot_grid = cell([3 8]);

     plot_grid{1,1} = [0.0 0.63 grid_w grid_h];

     plot_grid{1,2} = [0.0 0.33 grid_w grid_h];

     plot_grid{1,3} = [0.0 0.03 grid_w grid_h];

-    plot_grid{2,1} = [0.25 0.63 grid_w grid_h];

-    plot_grid{2,2} = [0.25 0.33 grid_w grid_h];

-    plot_grid{2,3} = [0.25 0.03 grid_w grid_h];

+    plot_grid{2,1} = [0.25 (1-1*grid_h) grid_w grid_h];

+    plot_grid{2,2} = [0.25 (1-2*grid_h) grid_w grid_h];

+    plot_grid{2,3} = [0.25 (1-3*grid_h) grid_w grid_h];

+    plot_grid{2,4} = [0.25 (1-4*grid_h) grid_w grid_h];

+    plot_grid{2,5} = [0.25 (1-5*grid_h) grid_w grid_h];

+    plot_grid{2,6} = [0.25 (1-6*grid_h) grid_w grid_h];

+    plot_grid{2,7} = [0.25 (1-7*grid_h) grid_w grid_h];

+    plot_grid{2,8} = [0.25 (1-8*grid_h) grid_w grid_h];

+

     pButtonPane = uipanel(parent,'Units','normalized','Position',[0 0.5 1 0.5]);

 %     set(pButtonPane,'Title','Plot');

@@ -468,7 +474,17 @@ function model = createVisualStepPanel(model,parent)

     set(btnPlot02,'Callback',{@cbPlot,model,'x-subject-val'});

     set(btnPlot02,'Enable','on');

+    btnPlotT1 = uicontrol(pButtonPane,'String','Plot Trajectory (t vs A vs B)',...

+        'Units','normalized',...

+        'Position',cell2mat(plot_grid(2,4)));

+    set(btnPlotT1,'Callback',{@cbPlot,model,'trajectory'});

+    set(btnPlotT1,'Enable','on');

+    btnPlotT2 = uicontrol(pButtonPane,'String','Plot Trajectory (A vs B vs C)',...

+        'Units','normalized',...

+        'Position',cell2mat(plot_grid(2,5)));

+    set(btnPlotT2,'Callback',{@cbPlot,model,'trajectory3'});

+    set(btnPlotT2,'Enable','on');

 end

 %%%%% ui callbacks