如何找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)