/*
** The sequential pbc data set
*/
libname save 'sasdata';

data temp;
    infile 'data.pbcseq';
    input id fu_days status drug age sex day ascites hepatom spiders
	  edema bili chol albumin alk_phos sgot platelet protime stage;

    age = age/365.24;

proc sort; by id descending day;

data temp2; set temp;
    by id;
    retain stop;

    if (first.id) then do;
	stop = fu_days;
	event= status;
	end;
    else event =0;

    start = day;
    output;
    stop = start;

proc sort; by id start;

data save.pbcseq; set temp2;