RosettaCodeData/Task/Matrix-transposition/R/matrix-transposition.r

6 lines
78 B
R

b <- 1:5
m <- matrix(c(b, b^2, b^3, b^4), 5, 4)
print(m)
tm <- t(m)
print(tm)