#read the target image
f1= system.file("extdata", "exImg2.jpg", package="CRImage")
targetImage=readImage(f1)
#read the image whose color values should be adapted
f2= system.file("extdata", "exImg3.jpg", package="CRImage")
imgToConvert=readImage(f2)
#calculate mean and standard deviation of target color channels
mst=calculateMeanStdTarget(targetImage)
# create a white pixel mask
whitePixelMask=imgToConvert[,,1]>0.85 & imgToConvert[,,2]>0.85 & imgToConvert[,,3]>0.85
#adapt color channels of image
imgCorrected=colorCorrection(imgToConvert,mst,whitePixelMask)
Run the code above in your browser using DataLab