Create ToTOAReflectance.R