## The function is currently defined as
function (x)
{
xx <- rev(x)
dim(xx) <- dim(x)
xx
}
# flir<-palette.choose("flir")
# set.seed(5)
# par(mfrow=c(1,2),mar=c(1,1,1,1))
# r<-c(1:100,rnorm(1:100)*10,1:100)
# m<-matrix(r,50)
# image(m, axes=FALSE, col=flir)
# box()
# text(.5,.5,"Matrix",col="white")
# mf<-rotate180.matrix(m)
# image(mf,axes=FALSE,col=flir)
# box()
# text(.5,.5,"Rotate180",col="white")Run the code above in your browser using DataLab