control <- defaultControl()
examplesoil <- defaultSoilParams(4)
x <- aspwbInput(0.75, control, examplesoil)
# Day to be simulated
d <- 100
meteovec <- unlist(examplemeteo[d,-1])
date <- as.character(examplemeteo$dates[d])
#Call simulation function for a single days
sd <- aspwb_day(x, date, meteovec,
latitude = 41.82592, elevation = 100)
#Call simulation function for multiple days
S <- aspwb(x, examplemeteo, latitude = 41.82592, elevation = 100)
Run the code above in your browser using DataLab