R/getBrightness.R

In bnasr/hazer: Identifying Foggy and Cloudy Images by Quantifying Haziness

#' The brighness map of an image (0 to 1).
#'
#' @param rgbArray RGB array (W x H x 3) where the third dimension contains R, G and B channels, values varying from 0 to 1.
#' @return a numeric matrix (W x H) giving the brightness for each pixel of the image.
#' @seealso \code{\link{getDarkness}}, \code{\link{getContrast}} and \code{\link{getHazeFactor}}
#' @export
#' @examples
#' library(jpeg)
#'
#' img <- readJPEG(system.file("img", "Rlogo.jpg", package="jpeg"))
#'
#' b <- getBrightness(img)
#'
#' par(mfrow=c(2,1), mar = c(0.5, 1, 0.5, 1))
#'
#' plotRGBArray(img)
#' plotRGBArray(b)
getBrightness <- function(rgbArray){
  bI <- apply(rgbArray, 1:2, max)
  bI
}