# NOT RUN {
library (png)
library (colorspace)
#adapted from png package
im0 <- readPNG (system.file ("img", "Rlogo.png", package="png") )
#multichannel images
im <- ImageArray (2)
im [[1]] <- as.MImage (im0)
im [[2]] <- as.MImage (im0, storage="HCL")
decomp.plot (im)
# }
Run the code above in your browser using DataLab