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