albedo_reflected is used to calculate mean albedo of surfaces surrounding a location from which radiation is reflected.
albedo_reflected(alb, e = extent(alb))
a raster object, two-dimensional array or matrix of surface albedo values (range 0 - 1) derived using
an optional extent object indicating the geographic extent of
A small proportion of radiation received at any given location is in the
form of reflected radiation, and this function permits the albedo of
surrounding surfaces to be calculated. An inverse distance-weighting is
applied (range 0 to 1). If
alb is a raster object, then a raster object is returned
e can be determined from
a raster object, two-dimensional array or matrix of values representing the mean albedo of surfaces surrounding each pixel of a two-dimension albedo array (range 0 - 1).
1 2 3 4 5 6 7 8 9 10 11
library(raster) alb <- albedo(aerial_image[,,1], aerial_image[,,2], aerial_image[,,3], aerial_image[,,4]) alb <- alb[901:1000, 901:1000] e <- extent(c(169900, 170000, 12900, 13000)) rt <-raster(e, res = 1) r_alb <- albedo_reflected(alb, e) par(mfrow = c(2, 1)) plot(if_raster(alb, rt), main = "Surface albedo", col= gray(0:255/255)) plot(if_raster(r_alb, rt), main = "Albedo of surrounding surfaces", col= gray(0:255/255))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.