eList <- Choptank_eList
fluxBiasMulti(eList)
# Water year:
pdf("fluxBiasMulti.pdf", height=9, width=8)
fluxBiasMulti(eList)
dev.off()
# Graphs consisting of Jun-Aug
eList <- setPA(eList,paStart=6,paLong=3)
pdf("fluxBiasMultiSummer.pdf", height=9, width=8)
fluxBiasMulti(eList)
dev.off()
Run the code above in your browser using DataLab