function?[featureaccuracy]=CFSPabs_SBFS（data_input）
%%
%?實(shí)現(xiàn)?CFSPabs?與SVM的順序后向?浮動(dòng)?混合特征選擇
%%
[mn]=size（data_input）;
%?[?gi?giF?]=f_score（?data_input?）;
rest_fea=1:1:n-1;
select_fea=rest_fea;
%%?首先使用?全部特征子集?訓(xùn)練SVM，得到一個(gè)平均正確率
tem_acc=[];?
%?feature={};
indices=crossvalind（‘Kfold‘data_input（1:mn）5）;?%?十折交叉驗(yàn)證?隨機(jī)分包
?for?i=1:5
?????test=（indices==i）;?%?獲得test集元素在數(shù)據(jù)集中對應(yīng)的單元編號(hào)
?????train=~test;?%?train集元素的編號(hào)為非test元素的編號(hào)
?????train_data=data_input（train:）;?%?從數(shù)據(jù)集中劃分出train樣本的數(shù)據(jù)
?????test_data=data_input（test:）;
?????[pre_labelacc]=SVM_SFS（train_datarest_fea）;?
?????tem_acc=[tem_accacc（11）];
?end
?max_acc=mean（tem_acc）;
%??feature{1}=rest_fea;
%%?嘗試從剩余特征子集中去除一個(gè)特征，并計(jì)算相應(yīng)的DFS的值
k=1;
%?while?~isempty（rest_fea）
while?length（rest_fea）-1>0
????dfs=[];
????k=k+1;
????d=size（rest_fea2）;
????for?i=1:d
????????data=[];
????????visit=zeros（1d）;
%%
????????visit（i）=1;
????????rest=（visit==1）;
????????select=~rest;
????????tem_fea=rest_fea（1select）;
????????len=size（tem_fea2）;
%?????????????tem_fea=select（1rest）;
%%?
????????for?j=1:len
????????????data（:j）=data_input（:tem_fea（j））;?
????????end
????????data（:end+1）=data_input（:end）;?%加類標(biāo)列
????????ms=CFSPabs_score（data）;?%?計(jì)算臨時(shí)特征的DFS值
%?????????dfs（i）=dfsi（k）;
%?????????if?dfsi（k）>tem1
%?????????????tem1=dfsi（k）;
%?????????????max=rest_fea（i）;
%?????????end
%?????????select_fea=[select_feamax];
%?????????if?rest_fea（j）==max
????????dfs=[dfsms];
????end
????[~ind]=sort（dfs‘descend‘）;
????visit=zeros（1d）;
????visit（ind（1））=1;
????delete_fea=rest_fea（ind（1））;?%?本次去除的特征編號(hào)
????rest1=（visit==1）;
????select1=~rest1;
????rest_fea=rest_fea（1select1）;
????
???%%?計(jì)算特征數(shù)減?1?的特征子集的正確率
????tem_acc=[];?
????indices=crossvalind（‘Kfold‘data_input（1:mn）5）;?%?十折交叉驗(yàn)證?隨機(jī)分包
?????for?i=1:5
?????????test=（indices==i）;?%?獲得test集元素在數(shù)據(jù)集中對應(yīng)的單元編號(hào)
?????????train=~test;?%?train集元素的編號(hào)為非test元素的編號(hào)
?????????train_data=data_input（train:）;?%?從數(shù)據(jù)集中劃分出train樣本的數(shù)據(jù)
?????????test_data=data_input（test:）;
?????????[pre_labelacc]=SVM_SFS（train_datarest_fea）;?
?????????tem_acc=[tem_accacc（11）];
?????end
?????meanAcc=mean（tem_acc）;
%??????????accuracy=[accuracymean（tem_acc）];
?????if?meanAcc>=max_acc
%??????????delete_fea=rest_fea（ind（1））;
?????????len1=length（select_fea）;
?????????for?i=1:len1
?????????????if?select_fea（i）==delete_fea
?????????????????visit=zeros（1len1）;
?????????????????visit（i）=1;
?????????????????rest2=（visit==1）;
?????????????????select2=~rest2;
?????????????????select_fea=select_fea（1select2）;?
?????????????????break;
?????????????end
?????????end
?????end
?????max_acc=meanAcc;
end?
feature=select_fea;
accuracy=max_acc;
end
????????
????????
????????
????????
????????
????????
????????
????????