albedo_adjust is used to correct albedo derived from aerial imagery for image brightness and contrast using MODIS data.
a raster object with numeric albedo values derived from high-resolution aerial imagery, as derived by
a raster object with numeric albedo values derived from MODIS imagery covering the same extent as
a raster object with numeric values representing the adjusted surface albedo values (range 0 to 1).
1 2 3 4 5 6 7 8 9
library(raster) alb <- albedo(aerial_image[,,1], aerial_image[,,2], aerial_image[,,3], aerial_image[,,4]) img <- if_raster(alb, dtm1m) mds <- raster(modis, xmn = 169000, xmx = 170000, ymn = 12000, ymx = 13000) alb2 <- albedo_adjust(img, mds) par(mfrow=c(2, 1)) plot(img, main = "Raw albedo", col = gray(0:255/255)) plot(alb2, main = "Adjusted albedo", col = gray(0:255/255))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.