# NOT RUN {
eList <- Choptank_eList
# Water Year:
# }
# NOT RUN {
tableChange(eList, fluxUnit=6, yearPoints=c(2001,2005,2008,2009))
tableChange(eList, fluxUnit=9)
tableChange(eList, fluxUnit=9, flowNormYear=c(2001:2006, 2008:2009))
# Winter:
eList <- setPA(eList, paStart=12,paLong=3)
tableChange(eList, fluxUnit=6,yearPoints=c(2001,2005,2008,2009))
# Water Year:
#This returns concentration ASCII table in the console:
tableChangeSingle(eList, fluxUnit=6,yearPoints=c(2001,2005,2008,2009), flux=FALSE)
#Returns a data frame:
change <- tableChangeSingle(eList, fluxUnit=6,yearPoints=c(2001,2005,2008,2009),
flowNormYears=c(2003:2004, 2006:2009), flux=FALSE)
#This returns flux values ASCII table in the console
df <- tableChangeSingle(eList, fluxUnit=6,yearPoints=c(2001,2005,2008,2009), flux=TRUE)
# Winter:
eList <- setPA(eList, paStart=12,paLong=3)
tableChangeSingle(eList, fluxUnit=6,yearPoints=c(2001,2005,2008,2009), flux=FALSE)
# }
Run the code above in your browser using DataLab