mfbox_tool_compareg.m

toolbox for spm 5 for data, model free analysis

handles.buttons.spatial_match = 1;
uiresume(handles.output);
guidata(hObject,handles);


% --- Executes on button press in spatiotemp_plot.
function spatiotemp_plot_Callback(hObject, eventdata, handles)

handles.buttons.spatiotemp_plot = 1;
uiresume(handles.output);
guidata(hObject,handles);


% --- Executes on button press in run_ica.
function run_ica_Callback(hObject,eventdata,handles)

handles.buttons.run_ica = 1;
uiresume(handles.output);
guidata(hObject,handles);


% --- Executes on button press in temp_spat_auto_group_group.
function temp_auto_group_Callback(hObject,eventdata,handles)

handles.buttons.temp_auto_group = 1;
uiresume(handles.output);
guidata(hObject,handles);


% --- Executes on button press in spat_auto_group.
function spat_auto_group_Callback(hObject,eventdata,handles)

handles.buttons.spat_auto_group = 1;
uiresume(handles.output);
guidata(hObject,handles);


% --- Executes on button press in remove_data.
function remove_data_Callback(hObject,eventdata,handles)

handles.buttons.remove_data = 1;
uiresume(handles.output);
guidata(hObject,handles);


% --- Executes on button press in plot2.
function plot2_Callback(hObject,eventdata,handles)

handles.buttons.plot2 = 1;
uiresume(handles.output);
guidata(hObject,handles);


% --- Executes on button press in plot1.
function plot1_Callback(hObject,eventdata,handles)

handles.buttons.plot1 = 1;
uiresume(handles.output);
guidata(hObject,handles);


% --- Executes on button press in plot_diff.
function plot_diff_Callback(hObject,eventdata,handles)

handles.buttons.plot_diff = 1;
uiresume(handles.output);
guidata(hObject,handles);


% --- Executes on button press in plot_comb.
function plot_comb_Callback(hObject,eventdata,handles)

handles.buttons.plot_comb = 1;
uiresume(handles.output);
guidata(hObject,handles);


% --- Executes on button press in add_data.
function add_data_Callback(hObject,eventdata,handles)

handles.buttons.add_data = 1;
uiresume(handles.output);
guidata(hObject,handles);


% --- Executes on selection change in groups.
function groups_Callback(hObject,eventdata,handles)

uiresume(handles.output);
guidata(hObject,handles);


% --- Executes during object creation, after setting all properties.
function groups_CreateFcn(hObject,eventdata,handles)

if (ispc&&isequal(get(hObject,'BackgroundColor'),get(0,'defaultUicontrolBackgroundColor')))
    set(hObject,'BackgroundColor','white');
end


% --- Executes on selection change in varthresh.
function varthresh_Callback(hObject,eventdata,handles)


% --- Executes during object creation, after setting all properties.
function varthresh_CreateFcn(hObject,eventdata,handles)

if (ispc&&isequal(get(hObject,'BackgroundColor'),get(0,'defaultUicontrolBackgroundColor')))
    set(hObject,'BackgroundColor','white');
end


% --- Executes on selection change in dataselect1.
function dataselect1_Callback(hObject,eventdata,handles)

uiresume(handles.output);
guidata(hObject,handles);


% --- Executes during object creation, after setting all properties.
function dataselect1_CreateFcn(hObject,eventdata,handles)

if (ispc&&isequal(get(hObject,'BackgroundColor'),get(0,'defaultUicontrolBackgroundColor')))
    set(hObject,'BackgroundColor','white');
end


% --- Executes on selection change in dataselect2.
function dataselect2_Callback(hObject,eventdata,handles)

uiresume(handles.output);
guidata(hObject,handles);


% --- Executes during object creation, after setting all properties.
function dataselect2_CreateFcn(hObject,eventdata,handles)

if (ispc&&isequal(get(hObject,'BackgroundColor'),get(0,'defaultUicontrolBackgroundColor')))
    set(hObject,'BackgroundColor','white');
end


% --- Executes on selection change in selectdata.
function selectdata_Callback(hObject,eventdata,handles)

cur = get(handles.selectdata,'Value');
c = get(handles.selectdata,'String');
if (isempty(c)), return; end

set(handles.info_data,'String',handles.info{cur});

guidata(hObject,handles);


% --- Executes during object creation, after setting all properties.
function selectdata_CreateFcn(hObject,eventdata,handles)

if (ispc&&isequal(get(hObject,'BackgroundColor'),get(0,'defaultUicontrolBackgroundColor')))
    set(hObject,'BackgroundColor','white');
end


% generates String 'b' repeatedly with 'a' as suffix.
function g=mknames(a,b)

g = mknamespat(1:a,[b '%d']);


function g=mknamespat(a,b)

g = {};
%'end' indicates last array-index, %s:=String of characters %d=decimal notation (signed)
if (iscell(a))
    for i=1:length(a), g{end+1} = sprintf(b,a{i}); end
else
    for i=1:length(a), g{end+1} = sprintf(b,a(i)); end
end


% ---
function g=fixgrouping(g,a)

comp = mat2cell(zeros(1,size(g,1)),1,ones(size(g,1),1));

for j=1:size(g,1)
    for i=1:size(g,2)
        ga = g{j,i};
        if (~isempty(ga))
            ga = ga((ga<=a(j))&(ga>0));
            ga = ga(all(repmat(ga(:)', ...
                length(comp{j}),1)~=repmat(comp{j}',1,length(ga)),1));
            comp{j} = unique([comp{j},ga]);
            g{j,i} = ga;
        end
    end
end

for j=1:size(g,1)
    if (a(j)>0)
        ga = 1:a(j);
        ga = ga(all(repmat(ga(:)', ...
            length(comp{j}),1)~=repmat(comp{j}',1,a(j)),1));
        for i=1:length(ga), g{j,end+1} = ga(i); end
    end
end

if (~isempty(g)), g = g(:,any(cellfun('length',g)~=0,1)); end


% --- Executes on slider movement.
function zoomfact_Callback(hObject,eventdata,handles)

xmin = min(handles.components_timeline);
xmax = max(handles.components_timeline);
zf = get(handles.zoomfact,'Value');
sv = get(handles.position,'Value');
inc = (xmax-xmin)/zf;
xmax = xmax-inc;
sv = min(max(sv,xmin),xmax);

set(handles.zoom_label,'String',sprintf('Zoomfactor = %3.1f',zf));
set(handles.position,'Max',xmax,'SliderStep',ones(1,2)/zf,'Value',sv);
set(handles.timecourse,'XLim',[sv,sv+inc]);

guidata(hObject,handles);


% --- Executes during object creation, after setting all properties.
function zoomfact_CreateFcn(hObject, eventdata, handles)

if (isequal(get(hObject,'BackgroundColor'),get(0,'defaultUicontrolBackgroundColor')))
    set(hObject,'BackgroundColor',[.9,.9,.9]);
end


% --- Executes on slider movement.
function position_Callback(hObject,eventdata,handles)

xmin = min(handles.components_timeline);
xmax = max(handles.components_timeline);
sv = get(handles.position,'Value');
zf = get(handles.zoomfact,'Value');
inc = (xmax-xmin)/zf;

set(handles.timecourse,'XLim',[sv,sv+inc]);

guidata(hObject,handles);


% --- Executes during object creation, after setting all properties.
function position_CreateFcn(hObject,eventdata,handles)

if (isequal(get(hObject,'BackgroundColor'),get(0,'defaultUicontrolBackgroundColor')))
    set(hObject,'BackgroundColor',[.9,.9,.9]);
end


% --- Executes on selection change in orderselect.
function orderselect_Callback(hObject, eventdata, handles)

uiresume(handles.output);
guidata(hObject,handles);


% --- Executes during object creation, after setting all properties.
function orderselect_CreateFcn(hObject, eventdata, handles)

if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end