% Get efficiency between a group of vectors
%
% Jesus Perez-Ortega - Sep 2018

function [Efficiency,Error] = Get_Efficiency(vectors)
    [n,length_vector]=size(vectors);
    if(n>1)
        % Compute efficiency
        Error=zeros(n);
        for i=1:n-1
            for j=i+1:n
                error_ij=length(find(abs(vectors(i,:)-vectors(j,:))));
                Error(i,j)=error_ij;
                Error(j,i)=error_ij;
            end
        end
        Error=Error./length_vector;
        Efficiency=1-Error;
    else
        warning('There are no data to compare!')
        Efficiency=[];
        Error=[];
    end
end