Exchanging Indices of a Matrix

["Quinn, David" <David.Quinn@nrgenergy.com>]

Is there an easy way to do the following without the looping?  I'm guessing 
not, since I think the internal representation of a matrix is as a list.    -- 
Thanks, David

for (i in 1:x)
{
        for (j in 1:y)
        {
                for (k in 1:z)
                {
                        new.matrix[k,j,i] <- old.matrix[i,j,k]
                }
        }
}