% SEPT. 4, 2009
% PULLOVER.DAT PLOT
% AUG. 24, 2009
clear all;
s=tdfread('pullover.dat',';'); 
sales=s.NOOFPULLOVER;
price=s.PRICE;
advert=s.COSTSOFAD;
ahours=s.HOURSOFSALES;
%
data=[sales,price,advert,ahours];
%figure(1);
%andrewsplot(data);
%figure(2);
%glyphplot(data);
%figure(3);
%glyphplot(data,'Glyph','face');
m=mean(data);
c=cov(data);
r=corrcoef(data);