R/mirrorMatrix.r

In jrminter/rXEDS: Process X-ray EDS spectra from NIST DTSA-II and data cubes from NIST Lispix.

#' mirror.matrix
#' 
#' From http://www1.maths.lth.se/help/R/image/
#'
#' @param x input matrix.
#'
#' @return The mirrored matrix
#'
#' @keywords keywords
#'
#' @export
mirror.matrix <- function(x) {
  xx <- as.data.frame(x)
  xx <- rev(xx)
  xx <- as.matrix(xx)
  return(xx)
}