## The function is currently defined as
function (x)
{
xx <- as.data.frame(x)
xx <- rev(xx)
xx <- as.matrix(xx)
xx
}
# Example
flir<-palette.choose("flir")
par(mfrow=c(2,1),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<-mirror.matrix(m)
image(mf,axes=FALSE,col=flir)
box()
text(.5,.5,"Mirror",col="white")Run the code above in your browser using DataLab