/* ch 6 data organizing */
options ls=72;
 data beads;
  INPUT sizelet $ sizecat finglet $ finglnth fingcat time;
  htime=log10(tan((time*3.14159/180)/2)-.3);
  code=sizecat*10+fingcat;
  letcode=trim(sizelet)||trim(finglet);
  LINES;
  s 1 t 64 1 100
  s 1 a 72 2 140
  s 1 b 76 3 93
  m 2 t 70 1 85
  m 2 a 71 2 45
  m 2 b 79 3 105
  l 3 t 70 1 40
  l 3 a 75 2 37
  l 3 b 77 3 35
;
PROC PRINT;
run; quit;