albedo_adjust: Adjusts albedo to correct for image brightness and contrast

Description Usage Arguments Value Examples

View source: R/radiationtools.R

Description

albedo_adjust is used to correct albedo derived from aerial imagery for image brightness and contrast using MODIS data.

Usage

1
albedo_adjust(alb_image, alb_modis)

Arguments

alb_image

a raster object with numeric albedo values derived from high-resolution aerial imagery, as derived by albedo() and converted to a raster object.

alb_modis

a raster object with numeric albedo values derived from MODIS imagery covering the same extent as alb.image (range 0 to 1). If the extent of the alb.modis is greater than that of alb.image, alb.modis is cropped.

Value

a raster object with numeric values representing the adjusted surface albedo values (range 0 to 1).

Examples

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))

ilyamaclean/microclima documentation built on Dec. 14, 2018, 3:10 p.m.