Re: hypergeometric distribution

["Alan Hochberg" <alan.hochberg@prosanos.com>]

Manuel,

The sample() function should do what you want, like this:

> drawing <- function(m,n,k) { sample(c(rep(0,m),rep(1,n)),size=k) }
>  drawing(1,10,7)
[1] 1 1 1 1 1 0 1
> drawing(5,5,10)
 [1] 1 1 0 1 1 1 0 0 0 0
> drawing(5,5,10)
 [1] 0 0 0 0 1 1 1 0 1 1

Alan

Alan Hochberg
Vice President, Research
ProSanos Corp.
225 Market Street
Suite 502
Harrisburg, PA 17101
Tel. 717-635-2124