R/rgb2chroma1.R

In ilgan/rgb2yuv:

#' Convert rgb image in png format into chroma1 image
#' Needs library(png)
#'
#'
#' @param img_png The name of the png impage file in the directory to be converted
#'
#' @return A matrix that is the sum of three channeles of the png file (R, G, and B) with the chroma 1 coefficiencies and normalization (for \code{rgb2chroma1}).
#'
#' @details
#' This function isn't complicated.
#'
#' Here are some reasons why putting a list in this section is excessive:
#' \itemize{
#'      \item These functions are quite simple.
#'      \item There's nothing else to say about these functions.
#' }
#'
#' function that these functions depend on.
#' @examples
#' rgb2chroma1()
#' @rdname rgb2chroma1
#' @export
#'

rgb2chroma1 <- function(img_png=TRUE){
	if (img_png == TRUE){
		return(FALSE)
	}
	else{
		rgbimg <- img_png
		#That's an array n by m by 3 . Now reduce to grey
		greyimg <- (-0.9991*rgbimg[,,1] + (-0.33609*rgbimg[,,2]) + 0.436*rgbimg[,,3])
		#Normalize
		rgb2grey <- greyimg / max(greyimg)
		return(rgb2grey)
	}
}