bm_list_delete_model

 delete model.
 [USAGE]
    [obj, index] = bm_list_delete_model(<obj>, <index>);
 [IN]
      obj : bm_list object
    index : delete index
 [OUT]
      obj : updated bm_list object
    index : updated index

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

0001 function [obj, index] = bm_list_delete_model(obj, index)
0002 % delete model.
0003 % [USAGE]
0004 %    [obj, index] = bm_list_delete_model(<obj>, <index>);
0005 % [IN]
0006 %      obj : bm_list object
0007 %    index : delete index
0008 % [OUT]
0009 %      obj : updated bm_list object
0010 %    index : updated index
0011 %
0012 % Copyright (C) 2011, ATR All Rights Reserved.
0013 % License : New BSD License(see VBMEG_LICENSE.txt)
0014 
0015 %
0016 % --- Previous check
0017 %
0018 if ~exist('obj', 'var'), error('obj is a required parameter.'); end
0019 if ~exist('index', 'var'), error('index is a required parameter.'); end
0020 if ~strcmp(obj.class_type, 'bm_list')
0021     error('class type is invalid.');
0022 end
0023 
0024 %
0025 % --- Main Procedure
0026 %
0027 
0028 % Check specified index collect?
0029 before_del_index = bm_list_get_brain_model_index(obj);
0030 for k=1:length(index)
0031     if isempty(find(before_del_index == index(k)))
0032         error('specified index is invalid.');
0033     end
0034 end
0035 
0036 % setdiff returns difference index between A and B.
0037 save_index = setdiff(before_del_index, index); 
0038 
0039 % delete model
0040 obj.brain_data_list = obj.brain_data_list(save_index);
0041 
0042 % index after delete
0043 index = bm_list_get_brain_model_index(obj);
0044 
0045 
0046 %
0047 % --- After check
0048 %
0049 if nargout == 0
0050     error('function caller should receive obj.');
0051 end