# Re: [R] Generating list of vector coordinates

From: Gabor Grothendieck <ggrothendieck_at_gmail.com>
Date: Tue 29 Mar 2005 - 10:59:22 EST

If the odometer order in your post is essential then you could try this:

expand.grid(1:5, 1:4, 1:3)[,3:1]

If R's reverse odometer order is ok then you could simplify it to this:

expand.grid(1:3, 1:4, 1:5)

On Mon, 28 Mar 2005 15:20:46 -0800, Ronnen Levinson <RML27@cornell.edu> wrote:
>
> Hi.
> Can anyone suggest a simple way to obtain in R a list of vector
> coordinates of the following form? The code below is Mathematica.
>
> In[5]:=
> Flatten[Table[{i,j,k},{i,3},{j,4},{k,5}], 2]
> Out[5]=
> {{1,1,1},{1,1,2},{1,1,3},{1,1,4},{1,1,5},{1,2,1},{1,2,2},{1,2,3},{1
> ,2,4},{1,2,
>
> 5},{1,3,1},{1,3,2},{1,3,3},{1,3,4},{1,3,5},{1,4,1},{1,4,2},{1,4,3},
> {1,4,
>
> 4},{1,4,5},{2,1,1},{2,1,2},{2,1,3},{2,1,4},{2,1,5},{2,2,1},{2,2,2},
> {2,2,
>
> 3},{2,2,4},{2,2,5},{2,3,1},{2,3,2},{2,3,3},{2,3,4},{2,3,5},{2,4,1},
> {2,4,
>
> 2},{2,4,3},{2,4,4},{2,4,5},{3,1,1},{3,1,2},{3,1,3},{3,1,4},{3,1,5},
> {3,2,
>
> 1},{3,2,2},{3,2,3},{3,2,4},{3,2,5},{3,3,1},{3,3,2},{3,3,3},{3,3,4},
> {3,3,
> 5},{3,4,1},{3,4,2},{3,4,3},{3,4,4},{3,4,5}}
>
> I've been futzing with apply(), outer(), and so on but haven't found
> an elegant solution.
> Thanks,
> Ronnen.
> P.S. E-mailed CCs of posted replies appreciated.
> ______________________________________________
> R-help@stat.math.ethz.ch mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help