"Ales Ziberna" <[EMAIL PROTECTED]> writes:
> Does this do what you want?
> n<-10
> k<-5
> expand.grid(rep(list(1:n),k))
>
> However be carful, even this small example prouces matrix with100000 rows.
I'm not sure this is what was wanted, since it is generating the same
samples multiple times. Consider
m <- expand.grid(rep(list(1:3),3))
table(apply(apply(m,1,sort),2,paste,collapse=" "))
1 1 1 1 1 2 1 1 3 1 2 2 1 2 3 1 3 3 2 2 2 2 2 3 2 3 3 3 3 3
1 3 3 3 6 3 1 3 3 1
It is possible that "Globe Trotter" wanted essentially the names of
the table, or maybe unique(t(apply(m,1,sort))). There's probably a
faster way of generating those. However, to use them for anything
probabilistic, you also need to keep track of the counts (using
multinomial coefficients).
> Best,
> Ales Ziberna
> ----- Original Message -----
> From: "Globe Trotter" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>; <[email protected]>
> Sent: Friday, November 25, 2005 6:22 AM
> Subject: [R] OT: algorithm for generating all possible combinations
> withreplacement
>
>
> > Dear all,
> >
> > I have n objects and I want to select k of these with replacement. Do you
> > know
> > of code which would generate all the possible arrangements? Note that this
> > is
> > different from the selection of k of n objects without replacement and
> > wanting
> > to generate all the possible permutations.
> >
> > Any suggestions? Existing C code would be fantastic btw, but I would be
> > happy
> > with an algorithm.
> >
> > Best wishes!
> >
> > ______________________________________________
> > [email protected] mailing list
> > https://stat.ethz.ch/mailman/listinfo/r-help
> > PLEASE do read the posting guide!
> > http://www.R-project.org/posting-guide.html
>
> ______________________________________________
> [email protected] mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html
>
--
O__ ---- Peter Dalgaard Øster Farimagsgade 5, Entr.B
c/ /'_ --- Dept. of Biostatistics PO Box 2099, 1014 Cph. K
(*) \(*) -- University of Copenhagen Denmark Ph: (+45) 35327918
~~~~~~~~~~ - ([EMAIL PROTECTED]) FAX: (+45) 35327907
______________________________________________
[email protected] mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html
