powered by
ilply(im, axis, fun, ...)
parrots <- load.example("parrots") ilply(parrots,"c",mean) #mean luminance per colour channel
Run the code above in your browser using DataLab