如何找R与沃尔多?

受此线程启发如何findMathematica的Waldo?

我从来没有在R做过image processing,但也许其他人想分享…

谢谢!

这是一个使用raster包的开始。 我不知道是否有时间来处理Mathematica版本中使用的互相关方法,但是在这种情况下,图像的红色部分的局部标准偏差看起来像沃尔多(Waldo)。

 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)