SWA {LST}

Split-window algorithm

Description

This function calculates Land Surface Temperature using split-window algorithm

Usage

SWA(
  TIR_10 = TIR_10,
  TIR_11 = TIR_11,
  tau_10 = tau_10,
  tau_11 = tau_11,
  E_10 = E_10,
  E_11 = E_11
)

Arguments

TIR_10

Raster* object, Landsat band 10

TIR_11

Raster* object, Landsat band 11

tau_10

Atmospheric transmittance for Landsat band 10

tau_11

Atmospheric transmittance for Landsat band 11

E_10

Raster* object, Land Surface Emissivity for Landsat band 10 calculated according to Skokovic et al. 2014 or Yu et al. 2014

E_11

Raster* object, Land Surface Emissivity for Landsat band 11 calculated according to Skokovic et al. 2014 or Yu et al. 2014

Value

RasterLayer

Examples

TIR_10 <- raster::raster(ncol=100, nrow=100)
set.seed(2)
raster::values(TIR_10) = runif(10000, min=27791, max=30878)
TIR_11 <- raster::raster(ncol=100, nrow=100)
set.seed(2)
raster::values(TIR_11) = runif(10000, min=25686, max=28069)
E_10 <- raster::raster(ncol=100, nrow=100)
set.seed(1)
raster::values(E_10) = runif(10000, min=0.96, max=0.99)
E_11 <- raster::raster(ncol=100, nrow=100)
set.seed(2)
raster::values(E_11) = runif(10000, min=0.96, max=0.99)
Ts_SWA <- SWA(TIR_10=TIR_10, TIR_11=TIR_11, tau_10=0.86, 
		tau_11=0.87, E_10=E_10, E_11=E_11)