#Autor: Carlos Andres Delgado Saavedra
#Descripcion: Ejemplo para la carga de un archivo separado por comas
#Fechas: 12 de Septiembre de 2017


#Se crea una celda, ya que tenemos
[read] = textread ('example.data','%s');

#Procesamos los datos
#Vamos a codificar
# YELLOW = -1
# PURPLE = 1
# SMALL = -1
# LARGE = 1
# DIP = -1
# STRETCH = 1
# CHILD = -1
# ADULT = 1
# T = 1
# F = -1
entradas = [];
salidas = [];
#Separar por comas
for i = 1:rows(read)
  lecturaLinea = read{i,1};
  lecturaLinea = regexprep(lecturaLinea,"YELLOW|SMALL|DIP|CHILD|F", "-1");
  lecturaLinea = regexprep(lecturaLinea,"PURPLE|LARGE|STRETCH|ADULT|T", "1");

  fila = strsplit (lecturaLinea, ",");
  fila = arrayfun(@(N,M) str2num(fila{N,M}), 1:rows(fila), 1:columns(fila));

  entradas=[entradas; fila(1:columns(fila)-1)];
  salidas= [salidas; fila(columns(fila))];
  #leemos elemento por elemento

endfor

#Ahora podemos disponer de las entradas y salidas procesadas

#Conjunto de entrenamiento
#80% de los elementos
elementos = randperm(0.8*rows(entradas));
entrenamientoIn = entradas(elementos,:);
entrenamientoOut = salidas(elementos,:);

#Borramos los datos

#Conjunto de pruebas
pruebaIn = entradas;
pruebaOut = salidas;

pruebaIn(elementos,:) = [];
pruebaOut(elementos,:) = [];