load risk_rate.dat

prox = risk_rate;

n=18;

best_vaf = 0.0;

store_vaf = zeros(10,1);

for i = 1:10
    [find,vaf] = ultrafnd(prox,randperm(n));
    store_vaf(i) = vaf;
    if (vaf > best_vaf)
        best_vaf = vaf;
        best_find = find;
    end
    
    figure(i)
    
    z = linkage(squareform(find),'complete')
    
    dendrogram(z)
    
end

store_vaf'

sorted_vafs = sort(store_vaf')

