im1 <- as.cimg(function(x,y) x,100,100)
im2 <- as.cimg(function(x,y) y,100,100)
im3 <- as.cimg(function(x,y) cos(x/10),100,100)
l <- list(im1,im2,im3)
add(l) %>% plot #Add the images
average(l) %>% plot #Average the images
mult(l) %>% plot #Multiply
parmax(l) %>% plot #Parallel max
parmin(l) %>% plot #Parallel min
#Pseudo-artistic effects
llply(seq(1,35,5),function(v) boxblur(boats,v)) %>% parmin %>% plot
llply(seq(1,35,5),function(v) boxblur(boats,v)) %>% average %>% plot
Run the code above in your browser using DataLab