# view available performance metrics
viewTankMetrics()
# load example climate data to run the system model
data(tankDat)
systemArgs <- list(roofArea = 205, nPeople = 1, tankVol = 2400,
firstFlush = 2.0, write.file = FALSE)
tankWrapper(tank_obs, systemArgs,
metrics = c("average daily deficit (L)", "reliability (fraction)"))
Run the code above in your browser using DataLab