Comment trouver Waldo avec R?

Question

Inspiré par ce fil Comment puis-je trouver Waldo avec Mathematica?

Je n'ai jamais fait de traitement de l'image dans R, mais peut-être que d'autres personnes qui ont envie de partager...

merci!

Answer 1

Ici est un début, à l'aide de l' raster package. Je ne sais pas si je vais avoir le temps de travailler sur la corrélation croisée de la méthode utilisée dans le Mathematica version de la question, mais d'un local écart-type sur les parties rouges de l'image semble spot Valdes dans ce cas...

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)

Answer 2

Voici une analyse plus complète de cette question, également à l'aide de la trame paquet.

Malheureusement, il est impossible de toujours trouver Waldo...