library(EBImage)
“Two Macaws” from Kodak True Color Image Suite http://r0k.us/graphics/kodak/ http://r0k.us/graphics/kodak/kodim23.html
macaws <- readImage(system.file("images", "sample-color.png", package="EBImage"))
str(macaws)
## Formal class 'Image' [package "EBImage"] with 2 slots
## ..@ .Data : num [1:768, 1:512, 1:3] 0.455 0.459 0.471 0.467 0.471 ...
## ..@ colormode: int 2
display(macaws)