/* Exercise 2.33, page 130. */
 
options nodate nonumber;
data milage;
infile 'C:\1_Courses\223\temp\ta01_010.txt' delimiter='09'x; 
input type $ city hwy;
datalines;

symbol1 value=circle color=black;
symbol2 value=square color=red;
proc gplot data=milage;
title 'Highway milage vs City milage';
plot hwy*city=type;
run;

proc corr data=milage;
title 'Correlation Between Highway Milage and City Milage';
var hwy city;
run;

data milage2;
set milage;
city2 = city;
if city2 ne 60 then output;
keep type city2 hwy;
run;

symbol1 value=circle color=black;
symbol2 value=square color=red;
proc gplot data=milage2;
title 'Highway milage vs City milage';
title2 '(without Honda Insight)';
plot hwy*city2=type;
run;

proc corr data=milage2;
title 'Correlation Between Highway Milage and City Milage';
title2 '(without Honda Insight)';
var hwy city2;
run;