View source: R/radiationtools.R
albedo_adjust | R Documentation |
albedo_adjust
is used to correct albedo derived from aerial imagery for image brightness and contrast using MODIS data.
albedo_adjust(alb_image, alb_modis)
alb_image |
a SpatRaster object with numeric albedo values derived from high-resolution aerial imagery, as derived by |
alb_modis |
a SpatRaster object with numeric albedo values derived from MODIS imagery covering the same extent as |
a SpatRaster object with numeric values representing the adjusted surface albedo values (range 0 to 1).
library(terra)
alb <- albedo(aerial_image[,,1], aerial_image[,,2], aerial_image[,,3],
aerial_image[,,4])
img <- if_raster(alb, dtm1m)
mds <- rast(modis)
ext(mds)<-c(169000, 170000, 12000, 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.