******************************************;
*** Multiply censored data example 1   ***;
***   From Nelson handout (page 13)    ***;
******************************************;

OPTIONS NODATE NONUMBER LS=72 PS=80;

DATA example1;
     INPUT cycles censor n @@;
LABEL cycles = 'NUMBER OF CYCLES TO FAILURE';
CARDS;
  45 1 1     47 0 1     73 0 1    136 1 5    145 0 1
 190 1 2    281 1 1    311 0 1    417 1 1    485 1 2
 490 0 1    569 1 1    571 1 1    571 0 1    575 0 1
 608 1 12   608 0 2    630 0 1    670 0 2    731 1 1
 838 0 1    964 0 2   1164 1 7   1198 1 1   1198 0 1
1300 1 3
;
PROC LIFETEST DATA= example1 PLOTS=(LS,LLS,S) OUTSURV=survive GRAPHICS;
   TITLE F=SWISSB H=.6 CM 'RELIABILITY ANALYSIS: EXAMPLE 1';
   TIME cycles*censor(1);
   FREQ n;
   SYMBOL1 H=1 V=DOT W=2;
   NOTE F=SWISSB H=.35 CM MOVE=(18,65)PCT 'LIFETIMES OF';
   NOTE F=SWISSB H=.35 CM MOVE=(18,63)PCT 'APPLIANCE COMPONENTS';
   NOTE F=SWISSB H=.35 CM MOVE=(18,61)PCT 'PRODUCT-MOMENT METHOD';
PROC PRINT DATA=survive;
RUN;