Provides functions to calculate the Water Deficit Index (WDI) and the Evaporative Fraction (EF) using geospatial raster data such as fractional vegetation cover (FVC) and surface-air temperature difference (TS-TA). The package automates regression-based edge fitting and produces continuous spatial maps of surface moisture and evaporative dynamics.
The wdiEF package provides tools to calculate the Water Deficit Index (WDI) and the Evaporative Fraction (EF) from raster data. It utilizes fractional vegetation cover (FVC) and surface-air temperature difference (TS-TA) to generate the WDI or EF raster.
You can install the development version of wdiEF directly from your local folder:
The input rasters (TS and TA) must have the same unit of
measurement (Kelvin preferably) to ensure accurate calculations of TS-TA and
the Water Deficit Index (WDI) or the Evaporative Fraction (EF).
The input rasters (FVC and TS-TA) must:
If these conditions are not met, the function attempt to align the rasters automatically (with warnings).
The wdiEF package automatically manages the following dependencies: -
terra for raster manipulation. - dplyr for data manipulation. -
stats for statistical calculations.
You do not need to load these packages manually; they are handled
internally by wdiEF
wdiEF PackageTo use the wdiEF package, start by loading the necessary library in R.
Define the paths to the input files (FVC and TS-TA rasters) and the output path for the calculated WDI raster.
library(wdiEF)
FVC_path <- "path/to/FVC.tif" TS_TA_path <- "path/to/TS_TA.tif"
output_path <- "path/to/WDI.tif"
calculate_WDI( FVC_path = FVC_path, TS_TA_path = TS_TA_path, output_path = output_path, n_intervals = 20, percentile = 0.01 )
WDI <- terra::rast(output_path) plot(WDI)
Define the paths to the input files (FVC and TS-TA rasters) and the output path for the calculated EF raster.
library(wdiEF)
FVC_path <- "path/to/FVC.tif" TS_TA_path <- "path/to/TS_TA.tif"
output_path <- "path/to/EF.tif"
calculate_EF( FVC_path = FVC_path, TS_TA_path = TS_TA_path, output_path = output_path, n_intervals = 20, percentile = 0.01 )
EF <- terra::rast(output_path) plot(EF)