%Initialize data for one of the five examples below

%%% For Height/Weight example, use
% load HtWtdata 	
% vbls = {'Height','Weight'};
% plottype = 1;
% map = [];
  
%%% For Iris data example, use 
% load fisheriris
% data = meas';
% vbls = {'Sepal Width','Sepal Height','Petal Length','Petal Width'};
% plottype = 2;

%%% For Cities example, use
% load cities; data = ratings'; vbls = categories;
% plottype = 2;
% map = [];

%%% For Durer example, use
% load durer; data=double(X);
% fig1=figure('Color',[1 1 1]);
% image(X), colormap(map), axis off, axis equal; % plot
% vbls=[]; plottype = 3;

%%% For Neuroscience example, use
 load times_CSC4
 data = spikes';
 vbls=[];
 map=[];
 % plottype = 4; 
 plottype = 5;

PC = 2;	%Specify number of components to use - typically 2 for planar representation
%Function calls for PCA and plotting
[X, V, Y] = PCAfun(data, PC);
PlotData(plottype, X, V, Y, PC, vbls, data, map);
