% *********************** METODA WLS **********************
%  disp ('           ESTIMATOR WLS : Weighted Least Squares Method')
%  disp ('           *********************************************')

% STANOVENÍ RECIPR.VAH JAKO PODÍLU VYROVN.ZÁVISLE PROMĚNNÉ A ABS.REZIDUA 
   for I = 1:nobs,
     IW(I)=abs(YVYROLS(I))./abs(UREZOLS(I));
   end
   
% NORMOVÁNÍ VAH NA DIAGONÁLE MATICE V-1 NA SOUČET ROVNÝ NOBD
    CWE2=sum(IW);
    WN=IW./CWE2;

%  TRANSFORMACE PROMENNYCH
   for I = 1:nobs,
     YTR(I)=YPOZ(I)./WN(I);
   for J = 1:nvar;
     XTR(I,J)=XPOZ(I,J)./WN(I);
   end     
   end
   
   YDEP=YTR';
   XIND=XTR;
   EST=2;
   disp( '     ')
   
% VARIANTA PRO OBECNÉ ZADÁNÍ VAH  
% NORMOVÁNÍ VAH NA DIAGONÁLE MATICE V-1 NA SOUČET ROVNÝ NOBD
%  for I = 1:nobs,
%  for J = 1:nobs,
%   MAV1(I,J)=0.;  
%  end   
%  end
  
%  for I = 1:nobs,
%   IW2(I)=nobs/CWE2*IW(I)*IW(I);
%   MAV1(I,I)=IW2(I);
%  end     
%   MAV2=MAV1;   
  return
