function DAclean=cleaneff(DACor)

length = size(DACor,1);
DAclean = zeros(langth,2);
for i=1:length
    if DAcor(i,1)>0 && DAcor(i,2)>0  
    DAclean(i,1) = DACor(i,2)/(DACor(i,1)+DACor(i,2));
    elseif  DAcor(i,1)<0 && DAcor(i,2)>0
    DAclean(i,1)=1;
    elseif DAcor(i,1)>0 && DAcor(i,2)<0
    DAclean(i,1)=0;
    else
    DAclean(i,1)=NaN;
    end
end