%
% Problem Epage 201 
% 
% 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

% the number of features: 
d = 4;
for fi=1:d,
  data = [setosa(:,fi),versicolor(:,fi),virginica(:,fi)];
  figure; boxplot(data); 
  set(gca,'XTickLabel',{'setosa','versicolor','virginica'});
  xlabel('species'); ylabel('feature value'); 
  title( sprintf('box plot for feature %d',fi) ); 
  saveas( gcf, sprintf('bp_fi_%d',fi), 'epsc' ); 
end