%#										
%#??function?[cdatamectest]=center（dataoptnewdata）;			
%#										
%#??AIM:?	Centering?along?columns?rows?or?double?centering		
%#										
%#??PRINCIPLE:??Removal?of?the?column-?row-?or?overall?mean?from?		
%#??????????????each?column?row?or?both?respectively?		?		
%#?				?If?a?test?data?set?is?available?it?can?ONLY?be?
%#??????????????column?centered?using?the?mean?from?the?calibration
%#??????????????data?set.
%#
%#
%#??INPUT:	data:?（m?x?n）?matrix?with?m?rows?and?n?variables		
%#				opt:?optional							
%#		?????1?=?column?centering					
%#		?????2?=?row?centering						
%#		?????3?=?double?centering					
%#??????????newdata:?（mt?x?n）?test?matrix?with?mt?rows?and?n?variables
%#					
%#			?							
%#??OUTPUT:	cdata:?（m?x?n）?matrix?containing?centered?data			
%#				me:?mean?vector?overall?mean?（scalar）
%#??????????????newdata:?（mt*n）?test?matrix?centered?with?the?mean?of?data
%#	
%#										
%#??AUTHOR:?	Andrea?Candolfi				?			
%#	????			Copyright（c）?1997?for?ChemoAc					
%#??????????	FABI?Vrije?Universiteit?Brussel????????????			
%#??????????	Laarbeeklaan?103?1090?Jette					
%#???										
%#?VERSION:?1.2?（25/02/2002）							
%#										
%#??TEST:???	I.?Stanimirova	&?S.?Gourv閚ec?&?M.?Zhang
%#										
	
function?[cdatamecnewdata]=center（dataoptnewdata）;

[mn]=size（data）;

if?nargin==1;
??opt=[4];
??while?opt>3?|?opt<=0?
????opt=input（‘column?centering（1）?row?centering（2）?double?centering（3）:‘）;
??end
end


if?opt==1			%?column?centering?
???me=mean（data）;
???cdata=data-ones（m1）*me;
end

if?opt==2			%?row?centering
???me=mean（data‘）‘;
???cdata=data-me*ones（1n）;
end

if?opt==3?	%?double?centering
???me=mean（mean（data））;
???mej=mean（data‘）;
???mei=mean（data）;
???cdata=data-（ones（m1）*mei）-（ones（n1）*mej）‘+（ones（mn）*me）;
end

if?exist（‘newdata‘）==1			%?center?new?data
????[mtn]=size（newdata）;
????
????if?opt==1				%?column?centering?
????????me=mean（data）;
????????cnewdata=newdata-ones（mt1）*me;
????else
????????error（‘Row?centering?and?double?centering?are?impossible?to?perform?on?a?test?set‘）;
????end
????
end

?屬性????????????大小?????日期????時(shí)間???名稱
-----------?---------??----------?-----??----

?????文件???????2158??2015-08-14?15:04??預(yù)處理\center.m

?????文件?????521996??2015-08-14?15:04??預(yù)處理\d1.fig

?????文件?????????52??2015-08-14?15:04??預(yù)處理\dc.m

?????文件???????1934??2015-08-14?15:04??預(yù)處理\DERIV.M

?????文件???????1346??2015-08-14?15:04??預(yù)處理\DETREND.M

?????文件???????2442??2015-08-14?15:04??預(yù)處理\EXPSMOOT.M

?????文件???????3588??2015-08-14?15:04??預(yù)處理\FF.M

?????文件????????955??2015-08-14?15:04??預(yù)處理\GENFACT.M

?????文件???????1146??2015-08-14?15:04??預(yù)處理\GRAMPOLY.M

?????文件???????2030??2015-08-14?15:04??預(yù)處理\HFOUR.M

?????文件??????15170??2015-08-14?15:04??預(yù)處理\hs_err_pid2508.log

?????文件??????15105??2015-08-14?15:04??預(yù)處理\hs_err_pid3008.log

?????文件??????14740??2015-08-14?15:04??預(yù)處理\hs_err_pid3864.log

?????文件???????2666??2015-08-14?15:04??預(yù)處理\KENSTON.M

?????文件??????10000??2015-08-14?15:04??預(yù)處理\LOWP.M

?????文件???????2333??2015-08-14?15:04??預(yù)處理\MSC.M

?????文件???????1573??2015-08-14?15:04??預(yù)處理\nircor.m

?????文件???????1167??2015-08-14?15:04??預(yù)處理\nirmaf.m

?????文件???????1191??2015-08-14?15:04??預(yù)處理\nirpca2.m

?????文件????3051247??2015-08-14?15:04??預(yù)處理\pre.mat

?????文件???????2509??2015-08-14?15:04??預(yù)處理\RANDSEL.M

?????文件????????118??2015-08-14?15:04??預(yù)處理\sg_smooth.m

?????文件???????2532??2015-08-14?15:04??預(yù)處理\SMOOTH.M

?????文件????????940??2015-08-14?15:04??預(yù)處理\SNV.M

?????文件????????369??2015-08-14?15:04??預(yù)處理\statmoments.m

?????文件????????625??2015-08-14?15:04??預(yù)處理\statxture.m

?????文件?????894518??2015-08-14?15:04??預(yù)處理\untitled.bmp

?????文件???????3128??2015-08-14?15:04??預(yù)處理\WAVE.M

?????文件???????1218??2015-08-14?15:04??預(yù)處理\WEIGHT.M

?????文件?????????89??2015-08-14?15:04??預(yù)處理\wenlitezheng.m

............此處省略6個(gè)文件信息