gray_scale {ExpImage}

Function to get a grayscale image from a color image (Funcao para a obtencao de uma imagem em escala de cinza a partir de uma imagem colorida)

Description

Function to get a grayscale image from a color image (Esta funcao permite a obtencao de uma imagem em escala de cinza a partir de uma imagem colorida).

Usage

gray_scale(im,method="r",normalize=TRUE,plot=FALSE)

Arguments

im

:This object must contain an image in EBImage format (Este objeto deve conter uma imagem no formato do EBImage).

method

: Indicates the method for obtaining the gray scale (Este objeto indica o metodo para a obtencao da escala de cinza).:
"r" = extrair a banda de vermelho
"g" = extrair a banda de verde
"b" = extrair a banda de azul
"rg" = considera a media da banda de vermelho e verde: (r+g)/2
"rb" = considera a media da banda de vermelho e azul: (r+b)/2
"gb" = considera a media da banda de verde e azul: (g+b)/2
"rgb" = considera a media das 3 bandas: (r+g+b)/3
"r/g"=r/g
"r/b"=r/b
"g/r"=g/r
"g/b"=g/b
"b/r"=b/r
"b/g"=b/g
"S"=((R+G+B)-3*B)/(R+G+B) "BI"=sqrt((r^2+g^2+b^2)/3)
"BIM"=sqrt((2r+2g+2b)/3)
"SCI"=(r-g)/(r+g)
"GLI"=(2g-r-b)/(2g+r+b)
"HI"=(2r-g-b)/(g-b)
"NGRDI"=(g-r)/(g+r)
"SI"=(r-b)/(r+b)
"VARI"=(g-r)/(g+r-b)
"HUE"=atan(2(b-g-r)/30.5(g-r))
"MGVRI"=(g^2-r^2)/(g^2+r^2)
"GLI"=(2g-r-b)/(2g+r+b)
"MPRI"=(g-r)/(g+r)
"RGVBI"=(g-(br))/(g^2(br))
"ExG"=(2*g-r-b)
"VEG"=(g/(g^0.66667*b^0.66667))

normalize

Logic value, if true, the pixel values will be corrected to vary between 0 and 1 (Valor logico, se for verdadeiro os valores dos pixels sera corrigido para variar entre 0 e 1).

plot

:This object must contain an image in EBImage format (Indica se sera apresentada (TRUE) ou nao (FALSE) (default) a imagem segmentada).

Value

Returns an image with text over each object in the image (Retorna uma imagem com um texto sobreposto a cada objeto na imagem)

See Also

segmentation_logit

Examples

#Carregar imagem de exemplo
im=read_image(example_image(2))
##mostrar imagem
plot_image(im)


#Extraindo as camadas R, G e B
r=gray_scale(im,method = "r",plot=TRUE)
g=gray_scale(im,method = "g",plot=TRUE)
b=gray_scale(im,method = "b",plot=TRUE)