% lee resultados de WEKA
function [porcent1, porcent2] = lee_weka (fichero)

% abre fichero de resultados
file = fopen(fichero, 'r');

% busca primer dato
cadena = busca_comienzo('=== Error on training data ===', file);
cadena = busca_comienzo('Correctly Classified Instances', file);
datos = sscanf(cadena(31:length(cadena)), '%f');
porcent1 = datos(2);

% busca segundo dato
cadena = busca_comienzo('=== Stratified cross-validation ===', file);
cadena = busca_comienzo('Correctly Classified Instances', file);
datos = sscanf(cadena(31:length(cadena)), '%f');
porcent2 = datos(2);

fclose(file);

return


% busca una cadena que comienza por unos ciertos caracteres
function cadena = busca_comienzo(comienzo, file);

carac = length(comienzo);
seguir=1;
while seguir==1
   cadena = fgets(file);
   if (length(cadena)>=carac)
      if cadena(1:carac)==comienzo
         seguir=0;
      end
   end
end

return
