powered by
blkdiag(...)
Diag
a1 <- matrix(c(1,2), 1) a2 <- as.matrix(c(1,2)) blkdiag(a1, diag(1, 2, 2), a2)
Run the code above in your browser using DataLab