ETPlot {Evapotranspiration}

Plot the daily, monthly and annual aggregations of esimtated evapotranspiration

Description

Produce plot of aggregated estimations of evapotranspiration in daily, monthly and annual steps, or averaged daily estimations in monthly or annual steps.

Usage

ETPlot(results, type = "Aggregation", OBS, OBSplot, Sdate = time(results$ET.Daily)[1],
Edate = time(results$ET.Daily)[length(results$ET.Daily)])

Arguments

results

A list named results which has been derived from function ET..().

type

A character string of either Aggregation or Average to indicate the type of plot required. The default is Aggregation. For aggregation plot the user can define the start and end date of plotting or by default using the calculation period for plotting. For average plot the plotting period equals to the calculation period.

OBS

A list named OBS which has been derived from function ReadOBSEvaporation.

OBSplot

Must be eith TRUE or FALSE. TRUE indicates that the observed evaporation will be plotted together with the estimations and FALSE indicates that the observations will not be shown on the plots.

Sdate

Only used when type = Aggregation to define the start date for the plotting windows, the default is the first day for the estimate evapotranspiration, but can be defined by user in the format YYYY-MM-DD.

Edate

Only used when type = Aggregation to define the end date for the plotting windows, the default is the last day for the estimate evapotranspiration, but can be defined by user in the format YYYY-MM-DD.

Value

If argument type is Aggregation, three plots are displayed in the following order (the next one appears after pressing enter):
1) Daily evapotranspiration estimates;
2) Monthly evapotranspiration estimates aggregated from daily estimates;
3) Annual evapotranspiration estimates aggregated from daily estimates.

If argument type is Average, two plots are displayed in the following order
1) Monthly averaged daily estimations of evapotranspiration;
2) Annually averaged daily estiamtions of evapotranspriation.

Author(s)

Danlu Guo

See Also

ETComparison

Examples

# Use processed existing data set and constants from kent Town, Adelaide
data("processeddata")
data("constants")

# Call ET.Penman under the generic function ET
results <- ET.Penman(processeddata, constants, ts="daily", solar="sunshine hours",
wind="yes", windfunction_ver = "1948", alpha = 0.08, z0 = 0.001, save.csv="no")


# Read evaporation data
data("E_OBS")
OBS <- ReadOBSEvaporation(E_OBS, processeddata)

# Plot the aggregation of estimated Penman open-water evaporation with observed evaporation
ETPlot(results, type = "Aggregation", OBS, OBSplot = TRUE, Sdate = "2001-05-01",
Edate = "2004-05-01")