pcorrm.m

王小平《遗传算法——理论、应用与软件实现》随书光盘

function p=pcorrm(x)
%
% PCORRM
%
% Returns the partial correlation matrix of x
%
% Called: p=pcorrm(x)
%
% Calls: pcorrxy(x)
%

[nrows,ncols]=size(x);

for i=1:ncols
   for j=1:ncols
      p(i,j)=pcorrxy(x,i,j);
   end;
end;