Sensor characteristics
Get channel wavelength of implemented (multispectral) satellite sensors.
get.sensor.characteristics(sensor, response_function = FALSE)
sensor |
Character or integer. Name or numerical abbreviation of sensor. See 'sensor="help"' or 'sensor=0' for an overview of available sensors. |
response_function |
If TRUE, the spectral response function is returned. |
The following sensors are currently implemented: ALI, EnMAP, Hyperion, Landsat4, Landsat5, Landsat7, Landsat8, MODIS, Quickbird, RapidEye, Sentinel2a, Sentinel2b, WorldView2-4, WorldView2-8.
Spectral response functions are available for the following ones: Landsat4, Landsat5, Landsat7, Landsat8, Quickbird, RapidEye, Sentinel2a, Sentinel2b, WorldView2-4, WorldView2-8.
Lukas Lehnert
## Return implemented sensors
get.sensor.characteristics(0)
## Sentinel 2A
data_s2a <- get.sensor.characteristics("Sentinel2a", TRUE)
## Plot response functions
plot(c(0,1)~c(attr(data_s2a$response, "minwl"),
attr(data_s2a$response, "maxwl")),
type = "n", xlab = "Wavelength [nm]",
ylab = "Spectral response")
xwl_response <- seq.int(attr(data_s2a$response, "minwl"),
attr(data_s2a$response, "maxwl"),
attr(data_s2a$response, "stepsize"))
for (i in 1:nrow(data_s2a$characteristics))
lines(xwl_response, data_s2a$response[,i], col = i)
## Sentinel 2B
data_s2b <- get.sensor.characteristics("Sentinel2b", TRUE)
## Add response functions
for (i in 1:nrow(data_s2b$characteristics))
lines(xwl_response, data_s2b$response[,i], col = i, lty = "dashed")
legend("topright", legend = c("Sentinel2a", "Sentinel2b"),
lty = c("solid", "dashed"))Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.