Update rgb2col.Rscript