b.diag(1, matrix(1:3, 3,4), diag(3:2))
b.diag(matrix(1:6, 2), as.character(2))
lists <- list(1, 2:3, diag(4:6), 7, cbind(8,9:12), 13:15)
b.diag(lists)
identical(b.diag(lists), b.diag(lapply(lists, as.matrix)))
b.diag(replicate(3, matrix(round(rnorm(9)), 3, 3), simplify=FALSE))
Run the code above in your browser using DataLab