RNotes | EBImage


library(EBImage)

Make a set of blurred images

img <- readImage(system.file("images", "sample-color.png", package="EBImage"))[257:768,,]
x <- resize(img, 128, 128)
xt <- list()
for (t in seq(0.1, 5, len=9)) xt=c(xt, list(gblur(x, s=t)))
xt <- combine(xt)
display(xt, title='Blurred images', all=TRUE)