Home > functions > gui > preAnalysis > trial_extractor > vb_trial_extractor_extract_trial.m

vb_trial_extractor_extract_trial

PURPOSE ^

This function extracts trials based on parameters.

SYNOPSIS ^

function [data] = vb_trial_extractor_extract_trial(data)

DESCRIPTION ^

 This function extracts trials based on parameters.
 [USAGE]
    [data] = vb_trial_extractor_extract_trial(data);
 [IN]
    data : vb_trial_extractor object.
 [OUT]
    data : updated vb_trial_extractor object.

 Copyright (C) 2011, ATR All Rights Reserved.
 License : New BSD License(see VBMEG_LICENSE.txt)

CROSS-REFERENCE INFORMATION ^

This function calls: This function is called by:

SOURCE CODE ^

0001 function [data] = vb_trial_extractor_extract_trial(data)
0002 % This function extracts trials based on parameters.
0003 % [USAGE]
0004 %    [data] = vb_trial_extractor_extract_trial(data);
0005 % [IN]
0006 %    data : vb_trial_extractor object.
0007 % [OUT]
0008 %    data : updated vb_trial_extractor object.
0009 %
0010 % Copyright (C) 2011, ATR All Rights Reserved.
0011 % License : New BSD License(see VBMEG_LICENSE.txt)
0012 
0013 %
0014 % -- Previous check
0015 %
0016 if ~exist('data', 'var')
0017     error('data is a required parameter.');
0018 end
0019 
0020 %
0021 % --- Main Procedure
0022 %
0023 
0024 % gui handles
0025 try
0026     H = data.H;
0027     if ~ishandle(data.H.figure)
0028         H = -1;
0029     end
0030 catch
0031     H = -1;
0032 end
0033 
0034 h = -1;
0035 if isfield(data, 'batch_mode') && data.batch_mode
0036     vb_disp('Now extracting trials. Please wait');
0037 else
0038     h = msgbox('Now extracting trials...', 'Please wait');
0039     btn = findall(h, 'Style', 'pushbutton');
0040     set(btn, 'Visible', 'off');
0041 end
0042 
0043 pause(0.1);
0044 
0045 % receive trial list
0046 trial_list = vb_continuous_file_extract_trial(data.continuous_file, ...
0047                              data.trigger_list, data.trial_setting);
0048 
0049 Ntrigger = length(data.trigger_list);
0050 
0051 data.trial_list = [];
0052 data.label_list   = cell(0);
0053 data.output_file = cell(0);
0054 if isstruct(H)
0055     set(H.tag_listbox, 'String', '', 'Value', 1);
0056     set(H.trial_set_listbox, 'String', '', 'Value', 1);
0057     set(H.output_listbox, 'String', '', 'Value', 1);
0058 end
0059 
0060 for k=1:Ntrigger
0061     % create TAG
0062     data.label_list{k} = vb_tag_new(['TRIGGER' num2str(k)]);
0063     % extracted trial for one trigger
0064     trial_set = trial_list{k};
0065 
0066     % Add trials to 'TRIGGERn' TAG
0067     for j=1:length(trial_set)
0068         % Register trial data to trial list
0069         data.trial_list = [data.trial_list; trial_set(j)];
0070         % Add absolute trial data index to tag object.
0071         data.label_list{k} = vb_tag_add_trial_index(data.label_list{k}, ...
0072                                                 length(data.trial_list));
0073     end
0074 end
0075 
0076 if ishandle(h), delete(h); end
0077 
0078 %
0079 % --- After check
0080 %
0081 if nargout ~= 1
0082     error('function caller should receive vb_trial_extractor object.');
0083 end
0084

Generated on Tue 27-Aug-2013 11:46:04 by m2html © 2005