/* This sas program will produce the estimates in Example 6.5
    of Sampling:  Design and Analysis by Sharon L. Lohr,
    using Version 7 of SAS */

 /* Author:  S. Lohr, 3/99.  Copyright (c) Sharon L. Lohr, 1999*/

options ls=78 ps=35;
 
data statepop;
   infile '~atsll/public/stp535/bookdata/statepop.dat' delimiter=',' firstobs=2;
   input state $ county $ landarea popn phys farmpop numfarm farmacre 
        veterans percviet;
   wt = 2550775.36/popn;  /* weight is 255077535/(popn * n) */

proc print data=statepop;

 /* We leave out the 'total' option because sampling is with replacement */

proc surveymeans data=statepop nobs mean sum;
   var phys;
   weight wt;