powered by
arot(a, rights = 1,pair=1:2)
arev
a <- array(1:16,rep(2,4)) arot(a) arot(a,c(1,3))
Run the code above in your browser using DataLab