Create scaleImage.R