selectinput.m

The goal of SPID is to provide the user with tools capable to simulate, preprocess, process and clas

function ip=selectInput(feat,y,pall,pars)

K=length(unique(y));c=K-1;
begina=1;
if (sum(pall(1,:)) ~= 0)
    treshold=pars.treshold; 
    ip=zeros(size(feat,1),1);
    for i=1:c,
        ic=find(y~=i);
        pallze=pall(:,i);pallze(ic)=1.1;
        xc=find(pallze<treshold);
        enda = begina + size(xc,1)-1;
        ip(begina:enda)=xc;
        begina=enda +1;
    end
    pref=1-sum(pall,2);
    ic=find(y~=K);
    pref(ic)=1.1;
    xc=find(pref<treshold);
    enda = begina + size(xc,1)-1;
    ip(begina:enda)=xc;
    ip=ip(find(ip));
else
    ip=1:length(y);
end
if length(ip) < 20, ip=1:length(y); disp('Number of selected points too small. Take all!') ; end
if (pars.info==1), disp(['datasetsize:' num2str(length(ip))]);end