ETComparison {Evapotranspiration} | R Documentation |
Compare esimtated evapotranspiration among multiple sets of result
Description
Produce comparison plots for results and statistics from different estimations produced by using different formulations and/or different input data. The number of different sets of results can be between 2 and 7. Plotting type can be selected among daily aggregation, monthly aggregation, annual aggregation, monthly average and annual average. For each type three comparison plots will be produced including time series, non-exceedance probability and box plot.
Usage
ETComparison(results1, results2, results3 = NULL, results4 = NULL, results5 = NULL,
results6 = NULL, results7 = NULL, labs, Sdate = NULL, Edate = NULL,
type = "Monthly", ylim = rep(NA,2))
Arguments
results1 |
A list named |
results2 |
A list named |
results3 |
A list named |
results4 |
A list named |
results5 |
A list named |
results6 |
A list named |
results7 |
A list named |
labs |
A character vector with the length equal to the number of sets of results to compare, defining the labels for the comparison plots |
Sdate |
Only used when argument |
Edate |
Only used when argument |
ylim |
A numeric vector of length 2 defining the lower and upper limit of the y-axis for plotting, if missing the default is from 0 to 1.5 times of maximum value from the first set of result that is used to compare with others. |
type |
A character string indicating the type of plot produced, can be one of the following: |
Value
Three plots are generated for each type of comparison plot selected, including:
1) time series plot of the estimated/aggregated/averaged values from each set of result;
2) non-exceedance plot of the distribution of estimated/aggregated/averaged values from each set of result;
3) box plot of the distribution of estimated/aggregated/averaged values from each set of result.
Author(s)
Danlu Guo
See Also
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_Penman <- ET.Penman(processeddata, constants, ts="daily", solar="sunshine hours",
wind="yes", windfunction_ver = "1948", alpha = 0.08, z0 = 0.001, save.csv="no")
# Call ET.PenmanMonteith under the generic function ET
results_PenmanMonteith <- ET.PenmanMonteith(processeddata, constants, ts="daily",
solar="sunshine hours", wind="yes", crop = "short", save.csv="no")
# Plot the estimated Penman open-water evaporation against average temperature
ETComparison(results_Penman, results_PenmanMonteith, type = "Monthly", ylim=c(0,400),
labs=c("Penman","PenmanMonteith"))