function [EC1,EC2,TGE] = TasaErrorDiscLin(X1,X2)

%TasaErrorDiscLin
% Estimacion de la tasa de error en la regla discriminante lineal con dos
% poblaciones con muestras X1 y X2.
% Devuelve EC1 = probabilidad de clasificar en la poblacion 2 un dato de la
% poblacion 1; EC2 = = probabilidad de clasificar en la poblacion 1 un dato de la
% poblacion 2; TGE = tasa global de error.

[n1,p] = size(X1) ; [n2,p] = size(X2) ;
Poblacion1 = zeros(n1,1) ; Poblacion2 = zeros(n2,1) ;

for i =1:n1
    if i == 1
        X1menos1 = X1([2:end],:) ;
    else
        X1menos1 = X1([1:i-1,i+1:n1],:) ;
    end
    Poblacion1(i) = (LinealDiscrim(X1(i,:),X1menos1,X2)~=1) ;
end    

for i =1:n2
    if i == 1
        X2menos1 = X2([2:end],:) ;
    else
        X2menos1 = X2([1:i-1,i+1:n2],:) ;
    end
    Poblacion2(i) = (LinealDiscrim(X2(i,:),X1,X2menos1)~=2) ;
end    
m1 = sum(Poblacion1); m2 = sum(Poblacion2) ;
EC1 = m1/n1 ;
EC2 = m2/n2 ;
TGE = (m1+m2)/(n1+n2) ;