efg’s R Notes: EBImage: Tiling and Untiling Images

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)

tile

xt <- tile(xt, 3)
display(xt, title='Tiles', all=TRUE)

untile

xu <- untile(img, c(3, 3))
display(xu, title='Blocks', all=TRUE)

---

packageVersion("EBImage")

## [1] '4.8.2'

efg
2015-01-18 2029