function [signals,PC,V,Ref] = PCA(data)
% PCA1: Perform PCA using covariance.
% data - MxN matrix of input data.
% (M dimensions, N trials) ex: a set of N 2D points=>M=2
% signals - MxN matrix of projected data
% PC - each column is a PC
% V - Mx1 matrix of variances
%Ref - 2D position of the new (0,0) position
[M,N] = size(data);
% subtract off the mean for each dimension
mn = mean(data,2);
data = data - repmat(mn,1,N);
% calculate the covariance matrix
covariance = 1 / (N-1) * data * data';
% find the eigenvectors and eigenvalues
[PC, V] = eig(covariance);
% extract diagonal of matrix as vector
V = diag(V);
% sort the variances in decreasing order
[junk, rindices] = sort(-1*V);
V = V(rindices);
PC = PC(:,rindices);
% project the original data set
signals = PC'* data;
%2D position of the new (0,0) position
Ref=mn;