powered by
liply(lst, fun, axis, ...)
build.im <- function(size) as.cimg(function(x,y) (x+y)/size,size,size) liply(c(10,50,100),build.im,"y") %>% plot
Run the code above in your browser using DataLab