Message-ID: <0dc79673a6b6eb9850aea048aa258cd4@huesing.name>
Date: 2008-09-27T05:20:39Z
From: Johannes Hüsing
Subject: apply
In-Reply-To: <48DD7453020000CB00038CD6@medicine.umaryland.edu>
Am 27.09.2008 um 05:46 schrieb John Sorkin:
> Windows XP
> R 2.7.1
>
> I am trying to use apply (or lapply, sapply) to get the sample
> function to select 1000 samples of size 10 from c(1,2,3) with
> probability c(0.1,0.2,0.7), i.e.
>
> for (i in 1:1000)
> {
> j<-sample(c(1,2,3),10,replace=TRUE,prob=c(0.1,0.2,0.7))
> print(j)
> }
>
matrix(sample(c(1, 2, 3), 10000, replace=TRUE, prob=c(.1, .2, .7)),
nrow=10)
or
replicate(sample(c(1, 2, 3), 10, replace=TRUE, prob=c(.1, .2, .7)),
1000)