SVM-RFE算法

function s = SVM_RFE（label datak）
% SVM-RFE
% SVM Recursive Feature Elimination （SVM RFE）
% by liyang @BNU Math
% Email:patrick.lee@foxmail.com
% last modified 2010.09.18
%%
n = size（data2）;
s = 1:n;
r = [];
iter = 0;  %  删除的特征个数
threshhold=2000;
while ~isempty（s）&& iter%     if mod（iter 10） == 0
%         str = [‘===‘num2str（iter）‘===‘];
%         disp（str）;
%         disp（‘processing .....‘）;
%     end
    X = data（:s）;
   
    
    model = svmtrain（label X）;