OPTIONS LS=64 PS=60 NODATE NONUMBER;
/*
FILENAME GRAPH 'BEADS.PS';

GOPTIONS
VSIZE=5IN
GSFNAME=GRAPH
GSFLEN=132
GSFMODE=APPEND
DEVICE=PS;
*/
************************************************;
*** DRAW 1 BEAD FROM A POUCH WITH 11 YELLOW, ***;
*** 16 BLUE, AND 23 RED BEADS.               ***;
*** RECORD THE COLOR OF THE BEAD OBSERVED.   ***;
************************************************;

DATA IN; INPUT COLOR $ @@; CARDS;
R B B Y B R B R R R B R R B Y R R Y B R R
R Y B Y R R Y R R R R Y Y R B R B R R B B B R B
R Y B Y R Y Y B B Y R R B B B B Y B B R Y B R R R
 ;
DATA IN; SET IN;
  RETAIN R 0 B 0 Y 0;
  N = _N_;
  IF COLOR = 'R' THEN R=R+1;
  IF COLOR = 'B' THEN B=B+1;
  IF COLOR = 'Y' THEN Y=Y+1;
  MISSING = .;
  RF_R=R/N;    RF_B=B/N;    RF_Y=Y/N;

PROC GPLOT DATA=IN;
     PLOT (RF_R RF_B RF_Y)*N
          / OVERLAY HAXIS=0 TO 70 BY 10 HMINOR=1
                    VAXIS=0 TO 1 BY .10 VMINOR=1 FRAME;
     SYMBOL1 L=1 I=JOIN W=3 C=BLACK V='R';
     SYMBOL2 L=1 I=JOIN W=3 C=BLACK V='B';
     SYMBOL3 L=1 I=JOIN W=3 C=BLACK V='Y';

     LABEL N='TRIAL' RF_R='RELATIVE FREQUENCY';

     TITLE H=.5CM 'CUMULATIVE RELATIVE FREQUENCIES';
     TITLE2 H=.5CM 'OF THE COLOR WHEN 1 BEAD IS DRAWN';

RUN;