path <- system.file("extdata", package = "satellite")
files <- list.files(path, pattern = glob2rx("LE07*.TIF"), full.names = TRUE)
sat <- satellite(files)
calcTOAIrradTable(sat)
calcTOAIrradTable(x = "LE7", normalize = FALSE,
calcEarthSunDist("2015-01-01"))
Run the code above in your browser using DataLab