## 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')
## tile
xt = tile(xt, 3)
display(xt, title='Tiles')
## untile
xu = untile(img, c(3, 3))
display(xu, title='Blocks')
Run the code above in your browser using DataLab