SVM-RFE-matlab代码

functionr=SVMRFE(label,data)%SVM-RFE%SVMRecursiveFeatureElimination(SVMRFE)%byliyang@BNUMath%Email:[e-mail]%lastmodified2010.09.18%%n=size(data,2);s=1:n;r=[];iter=1;while~isempty(s)%ifmod(iter,10)==0%str=['===',num2str(iter),'==='];%disp(str);%disp('processing.....');%endX=data(:,s);%v=3;%[bestCVaccuracy,bestc,bestg]=SVMcgForClass(label,X,...%-8,8,-8,8,v,0.8,0.8,4.5);%cmd=['-c',num2str(bestc),'-g',num2str(bestg)];%model=svmtrain(label,X,cmd);model=svmtrain(label,X);w=model.SVs'*model.sv_coef;c=w.^2;[c_minvalue,f]=min(c);r=[s(f),r];ind=[1:f-1,f+1:length(s)];s=s(ind);iter=iter+1;end