function ber = BitErrorRate(x,y)
% Funkcija ber = BitErrorRate(x,y) pripada STT toolbox-u.
% Funkcija racuna realativni broj razlika u vektorima x i y.
% Ulazi:
%	x - ulazni logicki binarni niz {0,1}
%	y - ulazni logicki binarni niz {0,1}
% Izlaz:
% ber - broj gresaka / broj bita
%	ber = -1 u slucaju da se detektuje greska u ulaznim parametrima!
%-----------------------------
%	Autor: Nenad Jevtic
%	Datum: 19.03.2016.
%-----------------------------
ber = -1;
nx = length(x);
ny = length(y);
if nx ~= ny
	disp('Greska: ulazni nizovi moraju biti istih dimenzija.')
	return
end	
ber = sum(mod(x+y,2))/nx;