vb_trial_extractor_remove_trial

 remove trial from tag.
 [USAGE]
    [data] = vb_trial_extractor_remove_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)

0001 function [data] = vb_trial_extractor_remove_trial(data)
0002 % remove trial from tag.
0003 % [USAGE]
0004 %    [data] = vb_trial_extractor_remove_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 H = data.H;
0024 
0025 label_all = get(H.tag_listbox, 'String');
0026 label_ix  = get(H.tag_listbox, 'Value');
0027 label     = label_all{label_ix};
0028 
0029 
0030 selected_ix  = get(H.trial_set_listbox, 'Value');
0031 remove_ix = [];
0032 for k=1:length(selected_ix)
0033     remove_ix = [remove_ix; data.showing_trial_ix(selected_ix(k))];
0034 end
0035 if ~isempty(remove_ix)
0036     [tag_obj, nth] = vb_tag_util_find_tag(data.label_list, label);
0037     if ~isempty(tag_obj)
0038         data.label_list{nth} = vb_tag_remove_trial_index(tag_obj, remove_ix);
0039     end
0040     % Update viewer if a viewer is opened.
0041     data = vb_trial_extractor_notify_viewer(data, label);
0042 end
0043 
0044 %
0045 % --- After check
0046 %
0047 if nargout ~= 1
0048     error('function caller should receive updated vb_trial_extractor object.');
0049 end