%
% Problem Epage 200 
% Example 5.23 Epage 173
% 
% Written by:
% -- 
% John L. Weatherwax                2008-02-20
% 
% email: wax@alum.mit.edu
% 
% Please send comments and especially bug reports to the
% above email address.
% 
%-----

clear all; 
close all; 
clc; 

addpath('../../Code/CSTool');
load iris;   % <- three matrics setosa/versicolor/virginica of size [n,p]

%--
% plot the three classes using parallel plots: 
%--

% pick a random permutation of the feature indices: 
[n,p] = size(setosa); 
pInds = randperm(p);

csandrews(setosa(:,pInds),'-.','k'); hold on; 
csandrews(virginica(:,pInds),'-','r'); 
csandrews(versicolor(:,pInds),'-','g'); 

title( 'IRIS data Andrew Plot (permuted)' ); 
xlabel('feature value'); ylabel('feature index'); 
saveas( gcf, 'andrew_perm_plt', 'epsc' );