  This example uses the SAS capability to compute                       00000040
  correlation coefficients and slope/intercept data                     00000050
  in two different SAS procedures, passing the results                  00000060
  of these computations to separate SAS datasets.                       00000070
                                                                        00000080
  The results are merged and renamed and printed in                     00000090
  a single table, using a series of SAS "data" steps and                00000100
  one PROC PRINT.                                                       00000110
                                                                        00000120
  Additionally, PROC PLOT is used to display both predicted             00000130
  and actual values from the regression.                                00000140
                                                                        00000150
  A simple translate table has been used here to improve the            00000160
  readability of the report by converting numeric species codes         00000170
  to their text form.                                                   00000180
                                                                        00000190
                                                                        00000200
PGM=RET,PURP=307/EPA,MORE=SAS,PRT=NO,                                   00000210
A=21WIS,S=453057,S=723004,S=723002,S=02F,S=053210,S=053211,             00000220
S=03F,S=053004,A=21WIDNR,S=065,S=170,S=175,S=056,S=057,S=061,S=062,     00000230
S=063,S=055,S=050,S=051,S=141,S=176,S=058,S=059,S=060,S=054,S=140,      00000240
S=053,S=052,                                                            00000250
P=74990,                                                                00000260
P=39515,P=39105,                                                        00000270
NOECHO,                                                                 00000280
SASPARMS=BEGIN,                                                         00000290
OPTIONS LS=120;                                                         00000300
DATA RAWFCF;                                                            00000310
TITLE1 'ANALYSIS';                                                      00000320
TITLE2 'OF';                                                            00000330
TITLE3 'FISH-TISSUE LIPIDS';                                            00000340
TITLE4 'VS';                                                            00000350
TITLE5 'FISH-TISSUE PCB CONTENT';                                       00000360
TITLE6 '-------------------------';                                     00000370
FORMAT SPECIES $30.;                                                    00000380
*                                                                       00000390
INCLUDE (FCFREAD)                                                       00000400
IF P1=. THEN DELETE;                                                    00000410
IF P2=. AND P3=. THEN DELETE;                                           00000420
RENAME P1=P_74990 P2=PCBS P3=LIPIDS;                                    00000430
SPECIES=' UNSPECIFIED (CODE '||PUT(P1,2.)||')';                         00000440
IF P1=6 THEN SPECIES='BLOATER (CODE 6)';                                00000450
IF P1=8 THEN SPECIES='BLUEGILL SUNFISH (CODE 8)';                       00000460
IF P1=10 THEN SPECIES='BRIDGELIP SUCKER (CODE 10)';                     00000470
IF P1=12 THEN SPECIES='CARP (CODE 12)';                                 00000480
IF P1=20 THEN SPECIES='FRESHWATER DRUM (CODE 20)';                      00000490
IF P1=16 THEN SPECIES='CHANNEL CATFISH (CODE 16)';                      00000500
IF P1=29 THEN SPECIES='LAKE TROUT (CODE 29)';                           00000510
IF P1=30 THEN SPECIES='LAKE WHITEFISH (CODE 30)';                       00000520
IF P1=31 THEN SPECIES='LARGEMOUTH BASS (CODE 31)';                      00000530
IF P1=36 THEN SPECIES='NORTHERN PIKE (CODE 36)';                        00000540
IF P1=41 THEN SPECIES='REDHORSE SUCKER (CODE 41)';                      00000550
IF P1=47 THEN SPECIES='SMALLMOUTH BASS (CODE 47)';                      00000560
IF P1=52 THEN SPECIES='STRIPED BASS (CODE 52)';                         00000570
IF P1=55 THEN SPECIES='WALLEYE (CODE 55)';                              00000580
IF P1=57 THEN SPECIES='WHITE BASS (CODE 57)';                           00000590
IF P1=60 THEN SPECIES='WHITE PERCH (CODE 60)';                          00000600
IF P1=63 THEN SPECIES='YELLOW PERCH (CODE 63)';                         00000610
IF P1=81 THEN SPECIES='COHO SALMON (CODE 81)';                          00000620
IF P1=83 THEN SPECIES='CHINOOK SALMON (CODE 83)';                       00000630
IF P1=164 THEN SPECIES='AMERICAN SHAD (CODE 164)';                      00000640
DROP P4-P50 R4-R50 USGSRMK BEGDATE BEGTIME ENDDATE ENDTIME              00000650
AGENCY MORE TYPE CALC NUMBER;                                           00000660
* ;                                                                     00000670
PROC SORT DATA=RAWFCF; BY SPECIES P_74990 STATION DATE TIME DEPTH;      00000680
* ;                                                                     00000690
PROC PRINT DATA=RAWFCF;BY SPECIES;ID STATION;                           00000700
* ;                                                                     00000710
PROC CORR DATA=RAWFCF OUT=CORRCOEF NOPRINT; BY SPECIES;                 00000720
VAR LIPIDS PCBS;                                                        00000730
* ;                                                                     00000740
DATA CORCOEF1; SET CORRCOEF;                                            00000750
IF _TYPE_='CORR' AND _NAME_='LIPIDS';                                   00000760
RENAME PCBS=CORR_CFF;                                                   00000770
DROP _TYPE_ _NAME_ LIPIDS;                                              00000780
* ;                                                                     00000790
PROC SYSREG DATA=RAWFCF OUT=RESULT OUTEST=ESTIM; BY SPECIES;            00000800
MODEL LIPIDS=PCBS ;                                                     00000810
OUTPUT P=E_LIPID;                                                       00000820
* ;                                                                     00000830
DATA ESTIM1; SET ESTIM;                                                 00000840
RENAME PCBS=SLOPE;                                                      00000850
DROP _TYPE_ _MODEL_ _SIGMA_ LIPIDS;                                     00000860
* ;                                                                     00000870
DATA RESULT0;                                                           00000880
MERGE CORCOEF1 ESTIM1; BY SPECIES;                                      00000890
* ;                                                                     00000900
PROC PRINT DATA=RESULT0; ID SPECIES;                                    00000910
* ;                                                                     00000920
PROC PLOT DATA=RESULT; BY SPECIES;                                      00000930
LABEL PCBS='PCBS IN FISH TISSUE, MG/KG';                                00000940
LABEL E_LIPID='ACTUAL AND PREDICTED LIPIDS %';                          00000950
LABEL  LIPIDS='ACTUAL AND PREDICTED LIPIDS %';                          00000960
PLOT  E_LIPID*PCBS='*'  LIPIDS*PCBS='O' / VPOS=40 HPOS=80 OVERLAY;      00000970
STOPSAS,                                                                00000980
./III      JOB (AAAASTORP,MIII),STORET,NOTIFY=III,TIME=5,               00000990
./             MSGLEVEL=(1,1),PRTY=1                                    00001000
**ROUTE  PRINT HOLD                                                     00001010
**JOBPARM LINES=10                                                      00001020
