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