%	Copyright 2005-2009 José Luis Crespo. Universidad de Cantabria
function coef=preparamatriz(fveloc,orden,paso,adelanto)
%Obtiene coeficientes autorregresivos
%DATO
%   fichero de eulerianas y predicción
%   orden del modelo temporal a crear (ejemplo:4)
%   paso del modelo " " (ejemplo:3)
%   adelanto de predicción que se pide al modelo (ejemplo:20)

   [matest,vreal,lote]=prepmatopt(fveloc,orden,paso,adelanto);
   tam=size(matest);
   filas=tam(1);
   unos=ones(filas,1);
   matdatos=[matest unos];
    salidas=vreal;
        %disp('Número de casos en cada trayectoria:');
        %lote
        coef=matdatos\salidas;
        %errores = salidas - matdatos*coef;
        %error2=errores.^2;
        %disp('Error medio cuadrático');
        %emc=sqrt(mean(error2))
        save 'matest' matdatos salidas -ascii;
