RNotes | EBImage
library(EBImage)
x <- readImage(system.file("images", "sample-color.png", package="EBImage"))[257:768,,] display(x, "Sample")