njit-etd2003-081 - New Jersey Institute of Technology

299
case {'hier_single'}
cluster= dcAgg(distance, 'single', k);
for j = 1:k
Estlndex(i,cluster{j })=j ;
end
case {'hier_centroid'}
cluster = dcAgg(distance, 'centroid', k);
for j = 1:k
EstIndex(i,cluster{j }) j;
end
case 'fuzzy'
m=1.5;
Estlndex(i,:) = dcFuzzy(Data,k,m,InitCentres);
case 'random'
Estlndex(i,:) = floor(rand( 1 ,R)*k+ 1 ); %randomly assign labels
%otherwise
error(sprintf('DOCLUSTERING - unsupported algorithm "%s'",Algorithm))
end %of switch/case
%return adjusted Rand index (accuracy) if true labels are given
if length(TrueID)>0
RITrue(i)=RandIndex(EstIndex(i,:), TruelD);
else
RITrue(i)=-1;
end
end %of repetitions loop
%Calculate adjusted Rand index between each pair of solutions found
if Repetitions > 1
l=0;
for i=1 :Repetitions-1
for j=i+ 1 :Repetitions
l=l+1;
RISelf(l)=RandIndex(EstIndex(i,:)',EstIndex(j,:)');
end
end
else
RISelf=0;
end