# Use processed existing data set from kent Town, Adelaide
data("processeddata")
data("constants")
# Set data class to be "ChapmanAustralian" to call function
funname <- "ChapmanAustralian"
class(data) <- funname
# Call generic function Evapotranspiration(data, ...) with class "ChapmanAustralian"
results <- Evapotranspiration(data, constants, Penpan = TRUE, sunshine.hours = "data", alpha = 0.23)Run the code above in your browser using DataLab