/* Program for labnote 1 */

data myel;
input id dur status treat renal;
cards;
1  8 1 1 1
2 180 1 2 0
3 632 1 2 0
4 852 0 1 0
5 52  1 1 1
6 2240 0 2 0
7 220 1 1  0
8 63  1 1  1
9 195 1 2 0
10 76 1 2 0
11 70 1 2 0
12 8 1 1 0
13 13 1 2 1
14 1990 0 2 0
15 1976 0 1 0
16 18 1 2 1
17 700 1 2 0
18 1296 0 1 0
19 1460 0 1 0
20  210 1 2 0
21  63 1 1 1
22  1328 0 1 0
23  1296 1 2 0
24  365 0 1 0
25  23 1 2 1
;

DATA myel2;
    INFILE 'F:\survival\labs\lab1\myel.dat';
    INPUT id dur status treat renal;
RUN;

proc print;
run;

libname mydir "F:\survival\labs\lab1\";
data mydir.myel;
set myel;
run;


data example1;
input doa mmddyy9. dls mmddyy9.;
dur=dls-doa;
cards;
11/15/67 01/03/68
01/02/68 01/07/68
run;


data example2;
input doa mmddyy9. dls mmddyy9.;
dur=dls-doa;
format doa mmddyys10. dls mmddyys10.;
cards;
11/15/67 01/03/68
01/02/68 01/07/68
run;


data example3;
input doa mmddyy9. dls mmddyy9.;
dur=dls-doa;
format doa mmddyys10. dls mmddyys10.;
cards;
11/15/99 01/03/00
01/02/99 01/07/00
run;