imappend(list(boats,boats),"x") %>% plot
imappend(list(boats,boats),"y") %>% plot
plyr::rlply(3,imnoise(100,100)) %>% imappend("c") %>% plot
boats.gs <- grayscale(boats)
plyr::llply(seq(1,5,l=3),function(v) isoblur(boats.gs,v)) %>% imappend("c") %>% plot
Run the code above in your browser using DataLab