powered by
idply(im, axis, fun, ...)
parrots <- load.image(system.file('extdata/parrots.png',package='imager')) idply(parrots,"c",mean) #mean luminance per colour channel
Run the code above in your browser using DataLab