# NOT RUN {
library(raster)
B10 <- raster(system.file("extdata/3047_20190517_B10.tif", package="nightmares"))
B11 <- raster(system.file("extdata/3047_20190517_B11.tif", package="nightmares"))
thermal_oli(B10, 10, "Celsius")
thermal_oli(B11, 11, "Fahrenheit")
# }
Run the code above in your browser using DataLab