imager - images in r

¿Cómo encontrar a Waldo con R?

Question

Inspirado por este hilo ¿Cómo encuentro a Waldo con Mathematica?

Nunca he hecho procesamiento de imágenes en R, pero tal vez otras personas que quieran compartir ...

¡Gracias!

Answer 1

Aquí hay un comienzo, usando el paquete raster . No sé si tendré tiempo para trabajar en el método de correlación cruzada utilizado en la versión de Mathematica de la pregunta, pero una desviación estándar local en las partes rojas de la imagen parece detectar a Waldo en este caso ...

library(raster)
waldo = stack("/Users/Benjamin/Desktop/DepartmentStore.jpg")

r = waldo[[1]] - waldo[[2]] - waldo[[3]]
r[is.na(r)] = 0
r_mask = Which(r > 0)
r_masked = r * r_mask

focalsd = focal(r_masked, w=3, fun=sd)
plot(focalsd)