# NOT RUN {
library (png)
#adapted from png package
im0 <- readPNG (system.file ("img", "Rlogo.png", package="png") )
#multichannel image
im <- as.MImage (im0)
plot (im)
headt (as.raster (im) )
# }
Run the code above in your browser using DataLab