function [rimasti comuni rate R Comuni] = ratep2(r_coppie,setcoppie,sizeRimasti)

Comuni=[];
R=[];

for j=1:size(setcoppie,2)
        coppia = setcoppie{j};
        if size(coppia,2)==2
            gruppoA = r_coppie{coppia(1)};
            gruppoB = r_coppie{coppia(2)};
            [mark_comuni mark_rimasti] = markers_comuni(gruppoA,gruppoB);
            rimasti{j}= mark_rimasti;
            comuni{j} = mark_comuni;
            Comuni  = cat(2,Comuni,comuni{j});
        else
            rimasti{j} = r_coppie{j};
            comuni{j}  = [];
        end
        R = cat(2,R,rimasti{j});
end
Comuni = unique(Comuni);
R = unique(R);
R = setdiff(R,Comuni);

for i=1:length(rimasti)
    rimasti{i} = setdiff(rimasti{i},Comuni);

    %R = cat(2,R,rimasti{i})
end
rate = size(Comuni,2)/sizeRimasti;

