*****************************************************
* ODS10B.SAS                                         *
* REGRESSION - OLD AND NEW GRAPHS                   *
*****************************************************;

* THIS CODE CREATES A DATA SET (COEFFICIENTS) CONTAINING THE
* PARAMETERS OF THE REGRESSION EQUATION;
proc transpose data=estimates
	out=COEFFICIENTS prefix=COEF;
	var estimate;
	run;

*THIS CODE COMBINES THE COEFFICIENT AND ORIGINAL DATA
	AND CALCULATES THE RESIDUALS;
data predict; set art;
if _N_=1 then set coefficients;
intercept=coef1;
slope=coef2;
predicted=intercept+create*slope;
residual=task-predicted;
keep subject create task intercept slope predicted residual;
run;
* DISPLAY RESULTS;
ods listing close;
ods RTF;
proc print data=predict;var subject create task predicted residual;
run;
ods RTF close;
ods listing;