R help - Nov 2009 - How to combine matrix with sapply function?

I want an 'apply' function that can give me results by bind the result
from each function call of g. Could somebody let me know how to do it?

g<-function(x){
  if(x==1){
    rbind(c(1,3,8))
  } else if(x==2) {
    rbind(c(4,7,2), c(3,7,3)) #if I use line, sapply() below gives me a list
    #rbind(c(4,7,2)) #if I use this line, sapply() below gives me a matrix
  } else if(x==3) {
    rbind(c(4,3,1))
  }
}

x=1:3

sapply(x,g)

Peng Yu <pengyu.ut <at> gmail.com> writes:
> 
> I want an 'apply' function that can give me results by bind the
result
> from each function call of g. Could somebody let me know how to do it?
> 
> g<-function(x){
  [snip]
> }
> 
> x=1:3
> 
> sapply(x,g) 
do.call(rbind,sapply(x,g))    ?