%include goptions;
*goptions htext=2.6pct htitle=4pct;
goptions hsize=6.5in vsize=6.5in;
%include data(davis);

title /*'Influential observations'
	j=c */'Self-Reports of Height and Weight';

data anno;
	retain xsys ysys '2';
	color='blue'; line=34;
	x = 40; y=40;   function='move'; output;
	x = 130; y=130; function='draw'; output;

proc gplot data=davis anno=anno;
	plot weight * rep_wt = sex /hm=1 vm=1 legend=legend1 vaxis=axis1;
	axis1 label=(a=90 r=0);
	symbol1 v=dot c=black i=rl h=1.5;
	symbol2 v=circle c=red i=rl h=1.5;
	legend1 across=2 
		position=(bottom inside right) offset=(-8pct,2pct)
		cborder=blue;
run; quit;
%gskip;
proc gplot data=davis anno=anno;
	plot rep_wt * weight = sex /hm=1 vm=1 legend=legend1 vaxis=axis1;
run; quit;
%gskip;

*scatmat(data=davis, var=Weight Rep_Wt Height Rep_Ht, group=sex,
	interp=rl, symbols=dot circle);
*gskip;
	
data davis;
	set davis;
	drop t;
	if _n_=12 then do;
		t = weight;
		weight = height;
		height = t;
		end;

*scatmat(data=davis, var=Weight Rep_Wt Height Rep_Ht, group=sex,
	interp=rl, symbols=dot circle);