R/invert.R

In kumeS/rMiW: rMiW - R package for providing the analysis workflow for microscopy-based images

Defines functions invert

Documented in invert

##' @title invert the image
##'
##' @param x
##'
##' @export invert
##' @author Satoshi Kume
##'

invert <- function(x) {
 if(mean(x) > .5)
  x <- 1 - x
 x
}