A explicação do script a seguir está no artigo R na Prática – Parte 26.
> X=matrix(1:9,ncol=3,nrow=3)
> X
[,1] [,2] [,3]
[1,] 1 4 7
[2,] 2 5 8
[3,] 3 6 9
> tX=t(matrix(1:9,ncol=3,nrow=3))
> tX
[,1] [,2] [,3]
[1,] 1 2 3
[2,] 4 5 6
[3,] 7 8 9