Date:         Mon, 27 Aug 2001 21:36:29 -0500
Reply-To:     aldi@wubios.wustl.edu
Sender:       "SAS(r) Discussion" <SAS-L@LISTSERV.UGA.EDU>
From:         Aldi Kraja <aldi@WUBIOS.WUSTL.EDU>
Organization: Washington University
Subject:      random 0s and 1s:
Content-Type: text/plain; charset=us-ascii

Good afternoon,

Is there any other method that outputs random 0s and 1s?

  data random;
   do m=1 to 10000;
      seed=-1;
          y=0.5+ rannor(seed);
          if y>0.499999999999999 then y=1; else y=0;
          output;
   end;
run;
proc univariate normal plot;
var y;
run;

TIA,
Aldi
--