# NOT RUN {
a <- raster::raster(ncol=100, nrow=100)
set.seed(2)
raster::values(a) = runif(10000, min=27791, max=30878)
b <- raster::raster(ncol=100, nrow=100)
set.seed(2)
raster::values(b) = runif(10000, min=25686, max=28069)
BT(Landsat_10 = a, Landsat_11 = b)
# }
Run the code above in your browser using DataLab