powered by
squarematrix(x)
matrix
# m <- matrix(1:6, 2, dimnames=list(2:3,1:3)) m squarematrix(m) #
Run the code above in your browser using DataLab