Hi Mohamed, It works. Thank you very much. Best, Robert 2010/11/20 <mohamed.lajnef at inserm.fr>: > Hi Robert, > > Try to do this > > Len <- max(sapply(my.list, length)) > > fun1 <- lapply(my.list, function(x){ > c(x, rep(0, Len))[1:Len] > }) > do.call(rbind, fun1) > > M > Regards