OPTIONS LINESIZE=88 PAGESIZE=53 NOCENTER NODATE NONUMBER NOFMTERR;
********************************************************************* ***;
* PROJECT NAME: Learning to Use SAS                                      ;
*             PROGRAM NAME        DATE                    PROGRAMMER     ;
TITLE1 "Source:lec24p1.sas   C:\ed\web\be691f\webready  11/30/98  EJS "  ;
* Description:  Program select a sample from a binomial distribution of n=7;
*     observations, and then get the average of the sample               ;
*     INPUT:  none                                                       ;
*    Output:  none                                                       ;
*************************************************************************;

***********************************;
*** Generate 7  binomial RV and    ;
*** estimate sample proportion     ;
***  Construct bar chart           ;
***********************************;
DATA d;
  DO day=1 TO 7;
    x=RANUNI(334433);
    IF x LT .2 THEN sick=1;
      ELSE sick=0;
    OUTPUT;

  END;
/*
PROC PRINT;
  ID day;
  TITLE2 "Table 1. List of results for Random Sample of 7 days";
*/
PROC CHART;
  HBAR sick /TYPE=PERCENT DISCRETE;
  TITLE2 "Figure 1.  Percent Response from Simple Random Sample with P=0.2, n=7";

RUN;