%%
  close all
  clear all
  disp('Cordband')
   
% Data from Crowder et al. (1991) lists strength measurements (in coded units)
% for 48 pieces of weathered cord. Seven of the pieces of cord were damaged
% and yielded strength measurements that are considered right censored. That is,
% because the damaged cord was taken off test, we know only the lower limit of
% its strength.   Vector 'data' represents the strength measurements,
% and the vector 'censor' indicates (with 1) if the corresponding
% observation in cord is censored.

% Crowder, M. J.; Kimber, A. C.; Smith, R. L.; Sweeting, T. J.. 
% Statistical Analysis of Reliability Data  
%  Published by London. UK : Chapman & Hall. 1st edition 1991, 
% 1991. ISBN 10: 0412305607 

lw = 2.5; 
  set(0, 'DefaultAxesFontSize', 16);
  fs = 15;
  msize = 10;
 
 data=[36.3,41.7,43.9,49.9,50.1,50.8,51.9,52.1,52.3,52.3,52.4,52.6,...
 52.7,53.1,53.6,53.6,53.9,53.9,54.1,54.6,54.8,54.8,55.1,55.4,55.9,...
 56.0,56.1,56.5,56.9,57.1,57.1,57.3,57.7,57.8,58.1,58.9,59.0,59.1,...
 59.6,60.4,60.7,26.8,29.6,33.4,35.0,40.0,41.9,42.5];
  censor=[zeros(1,41),ones(1,7)];
% 
[table] = ple(data, censor)
 %print  -depsc 'C:\STAT\Survival\Survivaleps\cordbandF.eps'