mfbox_sompnlg.m

toolbox for spm 5 for data, model free analysis

function varargout=mfbox_sompnlg(varargin)
% MFBOX_SOMPNLG M-file for mfbox_sompnlg.fig
%
% See also: GUIDE, GUIDATA, GUIHANDLES
%
% Copyright by Peter Gruber and Fabian J. Theis
% Signal Processing & Information Theory group
% Institute of Biophysics, University of Regensburg, Germany
% Homepage: http://research.fabian.theis.name
%           http://www-aglang.uni-regensburg.de
%
% This file is free software, subject to the 
% GNU GENERAL PUBLIC LICENSE, see gpl.txt

% Begin initialization code - DO NOT EDIT
gui_Singleton = 1;
gui_State = struct('gui_Name',mfilename, ...
    'gui_Singleton',gui_Singleton, ...
    'gui_OpeningFcn',@mfbox_sompnlg_OpeningFcn, ...
    'gui_OutputFcn',@mfbox_sompnlg_OutputFcn, ...
    'gui_LayoutFcn',[], ...
    'gui_Callback',[]);
if (nargin&&(ischar(varargin{1})))
    gui_State.gui_Callback = str2func(varargin{1});
end

if (nargout)
    [varargout{1:nargout}] = gui_mainfcn(gui_State,varargin{:});
else
    gui_mainfcn(gui_State,varargin{:});
end
% End initialization code - DO NOT EDIT


% --- Executes just before mfbox_sompnlg is made visible.
function mfbox_sompnlg_OpeningFcn(hObject, eventdata, handles, varargin)
% varargin{1} contains data X
% varargin{2} (optional) contains data mask
% varargin{3} (optional) contains the parameters
% varargin{4} (optional) contains runflag (0: param edit only, 1: param+run, 2: run only)

handles.output = hObject;

handles.X = varargin{1};
s = size(handles.X);
handles.dim = s(1:(end-1));
if (length(handles.dim)==1), handles.dim = [handles.dim,1]; end
handles.n = s(end);

if (nargin>4), handles.mask = varargin{2};
else handles.mask = true(handles.dim);
end
if (nargin>5), handles.params = varargin{3};
else handles.params = [];
end
if (nargin>6), handles.runflag = varargin{4}; 
else handles.runflag = 1;
end

handles.params.numComponents = max(min(handles.params.numComponents,handles.n),1);

set(handles.numComponents,'String',mat2str(handles.params.numComponents));
set(handles.maxNumIterations,'String',mat2str(handles.params.maxNumIterations));
set(handles.epsilon,'String',mat2str(handles.params.epsilon));
dmethods = {'GeneticGaussPearson','GeneticPolyPearson','GeneticGaussJade'};
set(handles.typeMenu,'String',dmethods);
for i=1:length(dmethods)
    if (strcmp(dmethods{i},handles.params.kerneltype))
        set(handles.typeMenu,'Value',i);
    end
end

if (handles.runflag<1), set(handles.run,'String','Set ...'); end

guidata(hObject,handles);

uiwait(handles.kernelica);


% --- Outputs from this function are returned to the command line.
function varargout=mfbox_sompnlg_OutputFcn(hObject,eventdata,handles) 
% varargout{1} the (edited) parameters

if (isstruct(handles))
    close(handles.kernelica)
    varargout{1} = handles.params;
else
    varargout{1} = [];
end


function epsilon_Callback(hObject,eventdata,handles)

v = max(str2double(get(hObject,'String')),0);
set(hObject,'String',sprintf('%1.4f',v));

guidata(hObject,handles);


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

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


function maxNumIterations_Callback(hObject,eventdata,handles)

v = max(floor(str2double(get(hObject,'String'))),1);
set(hObject,'String',mat2str(v));

guidata(hObject,handles);


% --- Executes on selection change in typeMenu.
function typeMenu_Callback(hObject, eventdata, handles)


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

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


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

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


function numComponents_Callback(hObject,eventdata,handles)

v = max(min(floor(str2double(get(hObject,'String'))),handles.n),1);
set(hObject,'String',mat2str(v));

guidata(hObject,handles);


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

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


% --- Executes on button press in run.
function run_Callback(hObject,eventdata,handles)

handles.params.numComponents = str2double(get(handles.numComponents,'String'));
handles.params.epsilon = str2double(get(handles.epsilon,'String'));
handles.params.maxNumIterations = str2double(get(handles.maxNumIterations,'String'));
contents = get(handles.typeMenu,'String');
handles.params.kerneltype = contents{get(handles.typeMenu,'Value')};

guidata(hObject,handles);

uiresume(gcf);