Here I present some functions I wrote to recreate some of the most common image effect available in all image editor.
They require the library rimage.
To load the image, use:
y <- read.jpeg("path")
To display the image, use:
plot(y)
Original image
Sepia tone
rgb2sepia <- function(img){
iRed <- img*255
iGreen <- img*255
iBlue <- img*255
oRed <- iRed * .393...







Zero Inflated Models and Generalized Linear Mixed Models with R.
Zuur, Saveliev, Ieno (2012).