Анализ главных компонентов в MATLAB - PullRequest
Новая
       52

Анализ главных компонентов в MATLAB

9 голосов
/ 09 декабря 2010

Я использую PCA, используя разложение по собственным значениям для разреженных данных.Я знаю, что в Matlab реализован PCA, но он помогает мне понять все технические аспекты, когда я пишу код.Я следовал указаниям здесь , но я получаю другие результаты по сравнению со встроенной функцией princomp.

Может ли кто-нибудь взглянуть на это и указать мне правильное направление?

Вот код: 

function [mu, Ev, Val ] = pca(data)

% mu - mean image
% Ev - matrix whose columns are the eigenvectors corresponding to the eigen
% values Val 
% Val - eigenvalues

if nargin ~= 1
 error ('usage: [mu,E,Values] = pca_q1(data)');
end

mu = mean(data)';

nimages = size(data,2);

for i = 1:nimages
 data(:,i) = data(:,i)-mu(i);
end

L = data'*data;
[Ev, Vals]  = eig(L);    
[Ev,Vals] = sort(Ev,Vals);

% computing eigenvector of the real covariance matrix
Ev = data * Ev;

Val = diag(Vals);
Vals = Vals / (nimages - 1);

% normalize Ev to unit length
proper = 0;
for i = 1:nimages
 Ev(:,i) = Ev(:,1)/norm(Ev(:,i));
 if Vals(i) < 0.00001
  Ev(:,i) = zeros(size(Ev,1),1);
 else
  proper = proper+1;
 end;
end;

Ev = Ev(:,1:nimages);

1 Ответ

14 голосов
/ 09 декабря 2010

Вот как я бы это сделал: 

function [V newX D] = myPCA(X)
    X = bsxfun(@minus, X, mean(X,1));           %# zero-center
    C = (X'*X)./(size(X,1)-1);                  %'# cov(X)

    [V D] = eig(C);
    [D order] = sort(diag(D), 'descend');       %# sort cols high to low
    V = V(:,order);

    newX = X*V(:,1:end);
end

и пример для сравнения с функцией PRINCOMP из панели инструментов статистики: 

load fisheriris

[V newX D] = myPCA(meas);
[PC newData Var] = princomp(meas);

Вас также может заинтересоватьв этом посте о выполнении PCA SVD .

...