* This is file SEALS.SAS  ; 
title 'Seal Thermal Conductivity'; 
DATA SEALS; 
     infile seals; 
     input Cb Ta; 
     T2 = Ta**2; 
     LABEL Cb= 'Coductivity' 
           Ta= 'Ambient Temperature' 
           T2= 'Ambient Temperature Squared'; 
proc REG  data=seals; 
        model Cb=Ta T2; 
*       The following produces residual plots needed for                ; 
*       the residual analysis in Chapter 4.                             ; 
proc REG data=seals; 
     model Cb=Ta; 
     output out=sealplot R=RawRes P=Chat; 
proc PLOT data=sealplot; 
     plot RawRes*Ta/ vref=0 vpos=18 hpos=60; 
     plot RawRes*Chat/ vref=0 vpos=18  hpos=60;