home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 6.ddi / CHEM.DI$ / PLSCENT.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  381 b   |  22 lines
  1. function [x, xbar] = plscent(x)
  2. % PLSCENT  Mean centers data in absorbance or concentration matrix.
  3. %
  4. %  [a, b] = plscent(c) 
  5. %
  6. %  where:
  7. %
  8. %    a = mean centered data
  9. %    b = mean for each variable 
  10. %
  11.  
  12. % Copyright (c) 1989-92 by The MathWorks, Inc.
  13.  
  14. [i, j] = size(x);
  15. x = x';
  16. xbar = mean(x);
  17. for h = 1:i
  18.     x(:,h) = x(:,h) - xbar(h);
  19. end
  20. x = x';
  21. xbar = xbar';
  22.