calccorrvalues.m

有监督自组织映射-偏最小二乘算法(A supervised self-organising map–partial least squares algorithm),可以用语多变量数据的回归分析

function [CorrValues] = CalcCorrValues(X,Map);

[Nvar,Nunit]=size(Map);

X=X-mean(X);
XX=X*X';
if (XX == 0)
    CorrValues=zeros(1,Nunit);
else
    MapMean=mean(Map);
    Map=Map-MapMean(ones(Nvar,1),:);
    YY=sum(Map.*Map);
    XY=X*Map;
    for iunit=1:Nunit
        if (YY(iunit) > 0)
            CorrValues(iunit)=XY(iunit)/sqrt(XX*YY(iunit));
        else
            CorrValues(iunit)=0;
        end
    end
end