reflectance.jan08NIR <- ToTOAReflectance(landsat8=lspre, band="nir") 	  # corrects the NIR band from the 08 Jan 2017 and assigns the name reflectance.jan08NIR     
reflectance.jan08SWIR2 <- ToTOAReflectance(landsat8=lspre, band="swir2")  # corrects the SWIR2 band from the 08 Jan 2017 and assigns the name reflectance.jan08SWIR2     

reflectance.feb25NIR <- ToTOAReflectance(landsat8=lspost, band="nir") 	  # corrects the NIR band from the 25 Feb 2017 and assigns the name reflectance.feb25NIR     
reflectance.feb25SWIR2 <- ToTOAReflectance(landsat8=lspost, band="swir2") # corrects the SWIR2 band from the 25 Feb 2017 and assigns the name reflectance.feb25SWIR2