* The file 'crying.dat' contains 2 observations per day, ;

* one for the 'control' infants, 1 for the 'exptl' infant ;



* do loop creates a file with one observation per infant;

* if infant cried, time set to 90, uncensored (i.e. event=1);

* if infant did not cry, time set to 90, censored (i.e. event=0);

 

OPTIONS LS=75;



DATA A ;



  INFILE 'crying.dat' ; /* may need to supply full path */

  

  INPUT day group n ncry;

  

  do j = 1 to n;

  

     event=0; time =  90;

	 

     if j <= ncry then event=1;

	 

     output;

	 

  end;