DM 'LOG;CLEAR;OUT;CLEAR';
OPTIONS NODATE NONUMBER LS=72 PS=54;

************************************;
*** EXAMPLE 1: SRS FROM FIGURE 1 ***;
************************************;

DATA SRS_Fig1; 
   wgt = 400/10;     *** = N/n   USED FOR ESTIMATION OF TAU ***;
   input count @@; 
datalines;
33 33 30 34 39 27 32 36 35 42
;
PROC SURVEYMEANS DATA=SRS_Fig1 total = 400 mean clm sum clsum;
     var count;
     weight wgt;
TITLE  'Simple Random Sample -- Figure 1';
TITLE2 'Estimating the population mean and total';

************************************;
*** EXAMPLE 2: SRS FROM FIGURE 3 ***;
************************************;
DATA SRS_Fig2; 
   wgt = 400/20;     *** = N/n   USED FOR ESTIMATION OF TAU ***;
   input count @@; 
datalines;
1 0 0 14 1 0 0 3 0 6 0 0 0 1 3 0 0 0 2 0
;
PROC SURVEYMEANS DATA=SRS_Fig2 total = 400 mean clm sum clsum;
     var count;
     weight wgt;
TITLE  'Simple Random Sample -- Figure 2';
TITLE2 'Estimating the population mean and total';

************************************;
*** EXAMPLE 3: SRS FROM FIGURE 3 ***;
************************************;

DATA SRS_Fig3; 
   INPUT ind @@;
DATALINES;
1 1 1 1 1 1 1 0 0 1 1 0 1 1 1 1 0 1 1 1 0 1 1 0 0
;
DATA SRS_Fig3; set SRS_Fig3;
   IF ind = 0 then pa = 'absent ';
   IF ind = 1 then pa = 'present';

PROC SURVEYMEANS DATA=SRS_Fig3 TOTAL = 400 ALPHA = .10;
     VAR pa;
TITLE  'Simple Random Sample -- Figure 3';
TITLE2 'Estimating population proportion p';
RUN;