/* SAS example of lack of fit test */

/* The data are from the bank example discussed in class. */

/* deposit will be our predictor variable (X). */
/* accounts will be our response variable (Y). */

data studio;
  input deposit accounts;
cards;
  125  160
  100  112
  200  124
   75   28
  150  152
  175  156
   75   42
  175  124
  125  150
  200  104
  100  136
  ;
run;

/* The option "lackfit" produces the results from the lack-of-fit test. */

PROC REG DATA = studio;
  MODEL accounts = deposit / lackfit;
run;


/* Find the results of the lack-of-fit F-test in the SAS output. */

/* Compare the results in the SAS output to the results in the */
/* book (Sec. 3.7) for the banks example.                      */