%include goptions;
*goptions htext=2.6pct htitle=4pct;
goptions hsize=6.5in vsize=6.5in;

%include data(davis);
title 'Davis data: Weight and Reported weight';
proc reg data=davis;
	model Weight = Rep_Wt;
	identity: test Rep_Wt=1, intercept=0;
	run;

data ident;
	xsys='2'; ysys='2'; line=31; color='black';
	x = 40;  y=40;  function='move';  output;
	x =120; y=120;  function='draw';  output;
	
%contour(data=davis,
	y=Weight, x=Rep_Wt, interp=rl, inanno=ident);

title 'Davis data:  excluding subj 12';
proc reg data=davis;
	model Weight = Rep_Wt;
	reweight obs.=12 / weight=0;
	identity: test Rep_Wt=1, intercept=0;

data davis;
	set davis;
	if _n_ ^= 12;
%contour(data=davis,
	y=Weight, x=Rep_Wt, interp=rl, inanno=ident);