dm'log;clear;output;clear';
/*******************************************************/
/* Ricker Recruitment Model                            */
/*   North Atlantic Plaice from Ricker (pg 294)        */
/*******************************************************/

OPTIONS NOCENTER LS=120 PS=61;

DATA ONE; INFILE CARDS MISSOVER;
       TITLE1 'North Atlantic Plaice from Ricker (pg 294)';
   INPUT P R;
        RP  = R / P;        LABEL RP = 'RECRUITS / PARENT';
        PR  = P / R;        LABEL PR = 'PARENTS / RECRUIT';
        LRP = LOG(R / P);   LABEL LRP= 'LOG(RECRUITS / PARENT)';
        IR  = 1 / R;        LABEL IR = 'INVERSE OF RECRUITS';
        IP  = 1 / P;        LABEL IP = 'INVERSE OF PARENTAL';
                            LABEL P  = 'PARENTAL STOCK';
                            LABEL R  = 'RECRUITS';
CARDS;
 9   13
 9   20
 9   45
10   13
10   13
10   20
10   21
10   26
11   11
11   12
12    8
12   15
18    7
18   10
19   17
20   16
21   11
21   15
26   16
32   33
35   10
45   23
54   13
70   13
82   12
88   24
;

PROC PRINT;      TITLE2 '*** RAW DATA LISTING ***';