# NOT RUN {
# 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")
# Plot the estimated Penman open-water evaporation against average temperature
ETForcings(processeddata, results, forcing = "Tmax")
# }
Run the code above in your browser using DataLab