Leyendo una Imagen Digital- Tarea I

Para realizar ésta tarea se consultaron las siguientes fuentes.

• Getting started with imager de Simon Barthelmé.
• Convert an RGB image to grayscale.

Ejercicio 1 y 2

1.Tome una imagen de usted mismo selfie. Asegúrese de que esté en escala de grises de 8 bits y aprenda cómo leer su imagen en R como una matriz.

2.Despliegue su imagen y obtenga una impresión.

Leyendo imagen original

library(imager)
mane <- load.image('D:/Dropbox/MsC UABC/3er Semestre/PDI/MatLab/img/mane.jpeg')
plot(mane,
     main = "Imagen RGB")

Convirtiendo a escala de grises

Como se puede observar, la imagen está en RGB, por lo tanto debe ser convertida a escala de grises para cumplir con los requisitos de la tarea.

maneBW <- grayscale(mane, method = "Luma", drop = TRUE)
plot(maneBW,
     main = "Imagen Escala de Grises")

Generando el histograma de luminiscencia de la imagen en blanco y negro.

maneBW %>% hist(breaks = 350,
                main="Valores de luminiscencia maneBW",
                ylab = "Frecuencia",
                col = "skyblue")