HI,

You can also try this:
d<-1:25
A<-sample(combn(20:30,2))
B<-sample(combn(20:30,2))
lapply(d,function(x) matrix(c(1,A[x],B[x],1),2,2))
[[1]]
     [,1] [,2]
[1,]    1   23
[2,]   27    1

[[2]]
     [,1] [,2]
[1,]    1   21
[2,]   21    1

[[3]]
     [,1] [,2]
[1,]    1   29
[2,]   23    1

[[4]]
     [,1] [,2]
[1,]    1   25
[2,]   20    1

[[5]]
     [,1] [,2]
[1,]    1   23
[2,]   28    1
------------
-----------
[[24]]
     [,1] [,2]
[1,]    1   24
[2,]   26    1

[[25]]
     [,1] [,2]
[1,]    1   22
[2,]   22    1

A.K.




______________________________________
If you reply to this email, your message will be added to the discussion below:
http://r.789695.n4.nabble.com/sapply-and-matrix-command-tp4637769p4638821.html
This email was sent by arun kirshna (via Nabble)
To receive all replies by email, subscribe to this discussion: http://r.789695.n4.nabble.com/template/NamlServlet.jtp?macro=subscribe_by_code&node=4637769&code=ci1oZWxwQHItcHJvamVjdC5vcmd8NDYzNzc2OXwtNzg0MjM1NTA4
	[[alternative HTML version deleted]]

